MsgBox - Instruction ou fonction ?

    Publicités

Users Who Are Viewing This Thread (Total: 0, Members: 0, Guests: 0)

Hutigh

Membre d'Honneur
V
Apr 10, 2010
1,543
6
954
28
Bonjour à tous !
Voici un tuto de Gilbert Miralles

alors commençons...

Cette instruction très utilisée dans Visual Basic permet de poser une question à l' utilisateur au travers d' une boîte de dialogue.
Celle-ci peut être paramétrée en définissant le nombre de boutons poussoir, l' icône de la boîte et le bouton par défaut, c' est à dire celui qui sera enfoncé quant vous appuyez sur la touche "Entrée".
La syntaxe de l' instruction MsgBox est la suivante :

Variable = MsgBox("Message", Type, "Titre de la fenêtre")
Variable : Variable de type Entier(Integer) recevant la valeur du bouton.
Message : Chaîne de caractères affichée comme message dans la boîte de dialogue.
Type : Expression numérique qui contrôle les boutons et les icônes à afficher.
Titre : Expression chaîne affichée dans la barre de titre de la boîte de dialogue.
Le paramètre Type représente l'addition de plusieurs constantes intégrées de Visual Basic.

Pour répondre à la question posée, MsgBox est utilisée en Instruction lorsque la syntaxe utilisée n'attend pas une réponse du système par exemple :

Instruction :
MsgBox Message$, 16 Titre$ Dans ce cas nous avons utilisé une instruction de VB.

Fonction :
Dans le cas d' une fonction, (qui attend une réponse du système) nous écrirons :
Code:
T$ = "Attention"      'Titre du message
M$ = "Désirez-vous vraiment quitter le programme ?"      'Message à afficher
si votre message à afficher est plus long, vous pouvez utiliser la concaténation suivante,
Code:
M$ = M$ + " suite du message" (vous pouvez aussi utiliser le caractère "&" à la place du caractère "+")
Reponse% = MsgBox(M$, 4 + 32, T$)

et voici la réponse que vous pouvez éventuellement utiliser :
Code:
If Reponse% = 6 Then End      'Sortie du programme


Le code suivant montre un exemple de paramétrage de boîte de dialogue MsgBox avec retour de valeur d' une variable
Code:
Private Sub Button_Supprime_Click ( )
Dim Sup
Sup = MsgBox("Veuillez confirmer la suppression du fichier", vbCritical + vbYesNo + 256, "Attention")
If Sup = vbYes Then
      MsgBox "Suppression confirmée"
End If
End Sub
Nous aurions pu écrire :
Code:
Sup = MsgBox("Veuillez confirmer la suppression du fichier", 16 + 4 + 256, "Attention")
Faites des essais avec toutes les combinaisons possibles ou bien téléchargez le module d' exemples qui vous permettra de constater de visu toutes les combinaisons possibles de MsgBox [ici]
Voici les fenêtres que vous devez obtenir :
window1.gif
window2.gif