Bonjour,

Comment fermer automatiquement une fenêtre Msgbox après 30sec d'affichage, sans intervention de l'utilisateur?

Merci pour vos réponses

Salut,

il suffit de chercher le handle de ta MsgBox (avec le titre de la fenêtre) via l'API FindWindow, et un timer qui ferme ta MsgBox au bout de 30 secondes via l'API CloseWindow

@++

---

si la msgbox n'est pas dans ton programme, oui (le FindWindo a blinder avec une verification du ProcessIDà

si c'est dans ton programme, moins évident ^^
puisque la MsgBox prend la main...
solution ? hooker la MsgBox


Renfield
Admin CodeS-SourceS- MVP Visual Basic

Le problème étant que la messagebox étant affichée en modal, tout code suivant l'appel à la messagebox ne sera executer que lorsque cette dernière sera fermée.

La solution la plus simple consiste à laisser tomber la messagebox classique de VB et de te faire ta propre messagebox à partir d'une banale form et d'y gerer dedant la durée d'affichage. Deplus te pourra même de cette manière en gérer les différents paramètres comme la taille ou le couleur du texte, la couleur de la fenetre, plus tout ce que tu peux imaginer. Tout cela n'étant pas possible avec celle de VB


---- Sevyc64  (alias Casy) ----

---

# LE PARTAGE EST NOTRE FORCE #

 Bonjour à tous


Il y a aussi le Popup.

Dim WshShell, BtnCode
Set WshShell = WScript.CreateObject("WScript.Shell")

BtnCode = WshShell.Popup("Comment allez-vous ?", 7, "Repondez à la question:", 3 + 32)

Select Case BtnCode
   case 6      WScript.Echo "Je suis ravi d'apprendre que vous allez bien."
   case 7      WScript.Echo "J'espère que vous irez mieux."
   case -1     ' WScript.Echo "Y-a-t-il quelqu'un ?"
   case 2      WScript.Echo "Bouton annuler: Y-a-t-il quelqu'un ?"
End Select

MsgBox "suite"

jean-marc

Ou alors tu utilise l'api messagebox qui ne bloque pas le processus

La solution du Popup est très interessante, mais est-il possible de supprimer l'affichage du bouton OK?
Je voudrais juste afficher une fenêtre d'information qui se fermera automatiquement au bout de 10 sec.

Merci

 Bonjour



Les options du popup sont limitées...

Const TIMEOUT = 5
Set objShell = WScript.CreateObject("WScript.Shell")

Reponse = objShell.Popup(vbCrLf & _
 "Ce Popup remplace un MsgBox" &vbCrLf&vbCrLf& "Sans action de votre part," &vbCrLf&vbCrLf&_
  "ce popup s'effacera dans " &vbCrLf& TIMEOUT & " secondes" &vbCrLf&vbCrLf&_
  "Vous ne pouvez pas fermer ce popup par la croix !!!" ,TIMEOUT, _
  "MsgBox personnalisé",2)
 
Select Case Reponse
   Case vbYes: objShell.Popup "Vous avez cliqué sur Oui" & vbCrLf & vbCrLf & vbCrLf,TIMEOUT
   Case vbNo:  objShell.Popup "Vous avez cliqué sur Non" & vbCrLf & vbCrLf & vbCrLf,TIMEOUT
   Case -1:    Wscript.Quit
End Select

Button Types

Value	Description
0	Show OK button.
1	Show OK and Cancel buttons.
2	Show Abort, Retry, and Ignore buttons.
3	Show Yes, No, and Cancel buttons.
4	Show Yes and No buttons.
5	Show Retry and Cancel buttons.

jean-marc