Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
Msgbox ou Popup sans le bouton OK
72 views
Skip to first unread message
ericlbt
May 8, 2009, 4:03:01 AM5/8/09
to
Bonjour,
Je souhaite créer une boîte message qui disparait après quelques secondes et
qui n'affiche aucun bouton (pas de OK).
Comment faire ?
J'arrive à fermer la fenêtre après un certain délai, en utilisant Msgbox ou
Popup mais pas encore de solution pour le bouton OK.
Autre question : comment ajouter un icône dans la fenêtre message ?
Par exemple le code 64 pour information.
J'ai une liste de codes mais je ne sais pas comment les inclure dans la ligne.
Merci par avance pour votre aide.
MichDenis
May 8, 2009, 6:54:38 AM5/8/09
to
Bonjour Eric,
Tu affiches ton message dans un formulaire.
et pour la durée de l'affichage de ce dernier, tu utilises la procédure
événementielle "Userform_Activate".
Le 3 signifie 3 secondes
La procédure ressemblerait à ceci :
'--------------------------------------------
Private Sub UserForm_Activate()
UserForm1.Repaint
T = Timer + 3
Do While Timer <= T
DoEvents
Loop
UserForm1.Hide
Unload Me
End Sub
'--------------------------------------------
"ericlbt" <eri...@discussions.microsoft.com> a écrit dans le message de groupe de discussion : 67ACEBBF-2670-4AB7...@microsoft.com...
Tu affiches ton message dans un formulaire.
et pour la durée de l'affichage de ce dernier, tu utilises la procédure
événementielle "Userform_Activate".
Le 3 signifie 3 secondes
La procédure ressemblerait à ceci :
'--------------------------------------------
Private Sub UserForm_Activate()
UserForm1.Repaint
T = Timer + 3
Do While Timer <= T
DoEvents
Loop
UserForm1.Hide
Unload Me
End Sub
'--------------------------------------------
"ericlbt" <eri...@discussions.microsoft.com> a écrit dans le message de groupe de discussion : 67ACEBBF-2670-4AB7...@microsoft.com...
0 new messages