Interaction.MsgBox(Object, MsgBoxStyle, Object) Méthode

public static Microsoft.VisualBasic.MsgBoxResult MsgBox (object Prompt, Microsoft.VisualBasic.MsgBoxStyle Buttons = Microsoft.VisualBasic.MsgBoxStyle.OkOnly, object? Title = default);

public static Microsoft.VisualBasic.MsgBoxResult MsgBox (object Prompt, Microsoft.VisualBasic.MsgBoxStyle Buttons = Microsoft.VisualBasic.MsgBoxStyle.ApplicationModal, object Title = default);

static member MsgBox : obj * Microsoft.VisualBasic.MsgBoxStyle * obj -> Microsoft.VisualBasic.MsgBoxResult

Public Function MsgBox (Prompt As Object, Optional Buttons As MsgBoxStyle = Microsoft.VisualBasic.MsgBoxStyle.OkOnly, Optional Title As Object = Nothing) As MsgBoxResult

Public Function MsgBox (Prompt As Object, Optional Buttons As MsgBoxStyle = Microsoft.VisualBasic.MsgBoxStyle.ApplicationModal, Optional Title As Object = Nothing) As MsgBoxResult

Paramètres

Retours

Une des valeurs suivantes :

Exceptions

Exemples

Cet exemple utilise la MsgBox fonction pour afficher un message d’erreur critique dans une boîte de dialogue avec les boutons Oui et Non. Le bouton Non est spécifié comme réponse par défaut. Pour ce faire, vous combinez les MsgBox valeurs constantes en une seule expression numérique. Dans ce cas, l’ajout de 4 (la combinaison de boutons Oui/Non) et 16 (fenêtre Message critique ) et 256 (deuxième bouton par défaut) donne un total de 276. La valeur retournée par la MsgBox fonction dépend du bouton choisi par l’utilisateur : Oui retourne la valeur 6 ; No retourne la valeur 7.

' The following example requires that Option Infer be set to On.

' Define the message you want to see inside the message box.
Dim msg = "Do you want to continue?"

' Display a simple message box.
MsgBox(msg)

' Define a title for the message box.
Dim title = "MsgBox Demonstration"

' Add the title to the display.
MsgBox(msg, , title)

' Now define a style for the message box. In this example, the
' message box will have Yes and No buttons, the default will be
' the No button, and a Critical Message icon will be present.
Dim style = MsgBoxStyle.YesNo Or MsgBoxStyle.DefaultButton2 Or
            MsgBoxStyle.Critical

' Display the message box and save the response, Yes or No.
Dim response = MsgBox(msg, style, title)

' Take some action based on the response.
If response = MsgBoxResult.Yes Then
    MsgBox("YES, continue!!", , title)
Else
    MsgBox("NO, stop!!", , title)
End If

Remarques

Si vous omettez des arguments positionnels, vous devez conserver le délimiteur de virgules correspondant.

Si la boîte de dialogue affiche un bouton Annuler , appuyer sur la touche Échap a le même effet que cliquer sur Annuler

Si la boîte de dialogue contient un bouton Aide , l’aide contextuelle est fournie pour la boîte de dialogue. Toutefois, aucune valeur n’est retournée tant que l’un des autres boutons n’est pas choisi. Dans les applications Windows Form, le fait de choisir le bouton Aide exécute l’événement HelpRequested pour le formulaire.

Les MsgBoxStyle valeurs d’énumération sont répertoriées dans le tableau suivant.

Le premier groupe de valeurs (0-5) décrit le nombre et le type de boutons affichés dans la boîte de dialogue. Le deuxième groupe (16, 32, 48, 64) décrit le style d’icône. Le troisième groupe (0, 256, 512) détermine le bouton par défaut. Le quatrième groupe (0, 4096) détermine la modalité de la zone de message, et le cinquième groupe spécifie si la fenêtre de la zone de message est ou non la fenêtre de premier plan, ainsi que l’alignement et la direction du texte. Lorsque vous ajoutez des nombres pour créer une valeur finale pour l’argument Buttons , utilisez un seul nombre de chaque groupe.

S’applique à

Voir aussi

• InputBox(String, String, String, Int32, Int32)
• Show(String)