La boite de message - MsgBox - évoluée
On peut utiliser la boite MsgBox pour une plus grande
interactivité qu'un simple (stupide?) bouton de confirmation. C'est
le premier attribut (attribut-bouton), celui du choix des boutons.
Constante |
Bouton(s)
affiché(s) |
vbOk |
OK seulement (par défaut) |
vbOkCancel |
OK et Cancel |
vbAbortRetryIgnore |
Abort, Retry et Ignore |
vbYesNoCancel |
Yes, No et Cancel |
vbYesNo |
Yes et No |
vbRetryCancel |
Retry et Cancel |
On peut modifier la petite icône qui accompagne la boite de
message. C'est l'attribut-icône.
Constante |
Icône affichée |
vbCritical |
un X (pour erreur fatale) |
vbQuestion |
un point d'interrogation (pour une question) |
vbExclamation |
un point d'exclamation (pour une remarque) |
vbInformation |
un I (pour une information) |
Et si la mention "Visual Basic" de la fenêtre par défaut ne vous
enchante guère, le titre de cette fenêtre peut aussi être modifié.
La syntaxe bien entendu, évolue :
MsgBox "votre texte" , attribut-bouton
+ attribut-icône, "titre de la fenêtre"
MsgBox renvoie une valeur de retour qui
indique que le lecteur a cliqué sur tel ou tel bouton. Selon
l'évaluation de ce code retour (voir Chapitre "Les conditions") telle
ou telle action pourra être programmée. Ces codes sont 1 pour le
bouton OK, 2 pour le bouton Cancel, 3 pour le bouton Abort, 4 pour le
bouton Retry, 5 pour le bouton Ignore, 6 pour le bouton Yes et enfin
7 pour le bouton No.
On mettra ce code retour dans une variable
(ici code). L'écriture prendra la forme :
Dim code
code = MsgBox("texte" , attribut-bouton ) |