message box invisible

Question

salutttt
j'ai une question qui me tracasse depuis une semaine
j'espere que vous pouvez m'aider

je veux afficher dans vb script une message box temporaire qui se ferme apres une certaine periode 
ou je veux l'afficher sans que l'utilisateur la vois
car dans mon systeme cela me permet d'ecraser une message box donne par le systeme

cs_JMO · Answer

Bonjour à tous,

Cela s'appelle un Popup.

Const TIMEOUT = 5  'secondes
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é",4)
 
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
msgbox "suite"

Par contre, j'ai pas saisi : 

ou je veux l'afficher sans que l'utilisateur la vois
car dans mon systeme cela me permet d'ecraser une message box donne par le systeme

jean-marc

cs_Exploreur · Answer

Salut,

Apparement d'après ce que je comprend, il veut peut-être masquer une messagbox

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_JMO · Answer

Re,

Salut Explorer,
donc:
'''''' msgbox "cette msgbox ne s'affichera pas"
ou
rem msgbox "cette msgbox ne s'affichera pas"

jean-marc

cs_Exploreur · Answer

Salut Jmo,

Lui seul pourra nous répondre...

A+
Exploreur

 Linux a un noyau, Windows un pépin

Message box invisible

4 réponses

Votre réponse

Discussions similaires