IBM Lotus Symphony
|
Affiche une boîte de dialogue contenant un message et renvoie une valeur.
MsgBox (Text As String [,Type As Integer [,Dialogtitle As String]])
Nombre entier
Text : expression de type chaîne de caractères se présentant sous forme de message dans la boîte de dialogue. Vous pouvez insérer des passages à la ligne à l'aide de Chr$(13).
DialogTitle : expression de type chaîne de caractères affichée dans la barre de titre de la boîte de dialogue. Si ce paramètre n'est pas spécifié, le nom de l'application active s'affiche.
Type : expression de type nombre entier spécifiant le type de la boîte de dialogue et définissant le nombre et le type des boutons ou des icônes devant s'afficher. Type représente une combinaison de configurations binaires (éléments de boîte de dialogue définis par ajout de leurs valeurs respectives) :
Valeurs
0 : affiche uniquement le bouton OK.
1 : affiche les boutons OK et Annuler.
2 : affiche les boutons Interrompre, Réessayer et Ignorer.
3 : affiche les boutons Oui, Non et Annuler.
4 : affiche les boutons Oui et Non.
5 : affiche les boutons Réessayer et Annuler.
16 : ajoute l'icône Arrêt dans la boîte de dialogue.
32 : ajoute l'icône Question à la boîte de dialogue.
48 : ajoute l'icône Point d'exclamation à la boîte de dialogue.
64 : ajoute l'icône Message d'information à la boîte de dialogue.
128 : désigne le premier bouton de la boîte de dialogue comme bouton par défaut.
256 : désigne le deuxième bouton de la boîte de dialogue comme bouton par défaut.
512 : désigne le troisième bouton de la boîte de dialogue comme bouton par défaut.
Valeur de retour :
1 : OK
2 : Annuler
3 : Interrompre
4 : Réessayer
5 : Ignorer
6 : Oui
7 : Non
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")
end sub