Affichage momentané d'un MsgBox

Stef - 24 mai 2000 à 12:44
cs_mavreick Messages postés 9 Date d'inscription jeudi 27 janvier 2005 Statut Membre Dernière intervention 23 mai 2005 - 22 mai 2005 à 21:10
Est-il possible sous VB pour Excel ou VB d'afficher un MsgBox sans avoir à le fermer ? Par exemple, afficher un message pendant 5 sec et puis il se ferme tout seul.

Merci d'avance pour votre aide.

4 réponses

Mariner la grande gueule
24 mai 2000 à 20:52
Peut-être avec une fonction de l'API...

Mon approche serait de créer un clone du MsgBox standard contrôlé par une fonction à laquelle tu passe le délai.
La fonction se termine quand elle détecte que le feuille as été fermée ou quand le temps est passé. Si tu met cette fonction dans un module, tu pourrais très facilement mettre une variable Publique partagée entre ta feuille et ta fonction.

Quant à bloquer ton application, tu pourrais p-ê rendre ta feuille principale désactivée (disabled) avant ta fonction de MsgBox et le contraire quand le contrôle lui revient.
0
-------------------------------
Réponse au message :
-------------------------------

Peut-être avec une fonction de l'API...

Mon approche serait de créer un clone du MsgBox standard contrôlé par une fonction à laquelle tu passe le délai.
La fonction se termine quand elle détecte que le feuille as été fermée ou quand le temps est passé. Si tu met cette fonction dans un module, tu pourrais très facilement mettre une variable Publique partagée entre ta feuille et ta fonction.

Quant à bloquer ton application, tu pourrais p-ê rendre ta feuille principale désactivée (disabled) avant ta fonction de MsgBox et le contraire quand le contrôle lui revient.

-------------------------------
Réponse au message :
-------------------------------

Est-il possible sous VB pour Excel ou VB d'afficher un MsgBox sans avoir à le fermer ? Par exemple, afficher un message pendant 5 sec et puis il se ferme tout seul.

Merci d'avance pour votre aide.
-------------------------------
-------------------------------
0
Ajoutes tout simplement une feuille à ton projet, et donne lui l'apparence de la MessageBox dont tu as besoin.

pour l'afficher :

frmMessage.Show

pour l'effacer :

Unload frmMessage
0
cs_mavreick Messages postés 9 Date d'inscription jeudi 27 janvier 2005 Statut Membre Dernière intervention 23 mai 2005
22 mai 2005 à 21:10
CreateObject("WScript.Shell").Popup "Veuillez patienter, merci...", 2, " Ce message ce fermera dans 3 seconds", 64
0
Rejoignez-nous