Fonction MsgBox
Affiche une boîte de dialogue contenant un message et renvoie une valeur.
MsgBox (Prompt As String [,Buttons = MB_OK [,Title As String]]) As Integer
prompt: expression de chaîne affichée comme un message dans la boîte de dialogue. Les sauts de lignes peuvent être insérés avec Chr$(13).
title: expression de chaîne affichée dans la barre de titre d'une boîte de dialogue. Si omise, la barre de titre affiche le nom de l'application correspondante.
buttons : expression au format nombre entier spécifiant le type de la boîte de dialogue, le nombre et le type de boutons à afficher, ainsi que le type d'icône. buttons représente une combinaison de motifs binaires, c'est-à-dire une combinaison d'éléments déterminée par l'ajout de leurs valeurs respectives :
|
Constante nommée
|
Valeur entière
|
Définition
|
|
MB_OK
|
0
|
Afficher uniquement le bouton OK.
|
|
MB_OKCANCEL
|
1
|
Afficher les boutons OK et Annuler.
|
|
MB_ABORTRETRYIGNORE
|
2
|
Afficher les boutons Abandonner, Réessayer et Ignorer.
|
|
MB_YESNOCANCEL
|
3
|
Afficher les boutons Oui, Non et Annuler.
|
|
MB_YESNO
|
4
|
Afficher les boutons Oui et Non.
|
|
MB_RETRYCANCEL
|
5
|
Afficher les boutons Réessayer et Annuler.
|
|
MB_ICONSTOP
|
16
|
Ajouter l'icône Message critique à la boîte de dialogue.
|
|
MB_ICONQUESTION
|
32
|
Ajouter l'icône Requête d'avertissement à la boîte de dialogue.
|
|
MB_ICONEXCLAMATION
|
48
|
Ajouter l'icône Message d'avertissement à la boîte de dialogue.
|
|
MB_ICONINFORMATION
|
64
|
Ajouter l'icône Message d'information à la boîte de dialogue.
|
|
|
128
|
Désigner le premier bouton de la boîte de dialogue comme bouton par défaut.
|
|
MB_DEFBUTTON2
|
256
|
Désigner le deuxième bouton de la boîte de dialogue comme bouton par défaut.
|
|
MB_DEFBUTTON3
|
512
|
Désigner le troisième bouton de la boîte de dialogue comme bouton par défaut.
|
Nombre entier
|
Constante nommée
|
Valeur entière
|
Définition
|
|
IDOK
|
1
|
OK
|
|
IDCANCEL
|
2
|
Annuler
|
|
IDABORT
|
3
|
Abandon
|
|
IDRETRY
|
4
|
Réessayer
|
|
IDIGNORE
|
5
|
Ignorer
|
|
IDYES
|
6
|
Oui
|
|
IDNO
|
7
|
Non
|
5 appel de procédure incorrect
Exemple :
Sub ExampleMsgBox
Dim sVar As Integer
sVar = MsgBox("Las Vegas")
sVar = MsgBox("Las Vegas",1)
sVar = MsgBox( "Las Vegas",256 + 16 + 2,"Titre de la boîte de dialogue")
sVar = MsgBox("Las Vegas", MB_DEFBUTTON2 + MB_ICONSTOP + MB_ABORTRETRYIGNORE, "Titre de la boîte de dialogue")
End Sub