Fermeture automatique d'une fenêtre msgbox

Question

Bonjour,

Comment fermer automatiquement une fenêtre Msgbox après 30sec d'affichage, sans intervention de l'utilisateur?

Merci pour vos réponses

mortalino · Answer

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

@++ 

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>

Renfield · Answer

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

cs_casy · Answer

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 #

cs_JMO · Answer

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

ratala · Answer

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

pccrash74 · Answer

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

cs_JMO · Answer

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

Fermeture automatique d'une fenêtre msgbox

7 réponses

Votre réponse

Discussions similaires