Interaction.MsgBox(Object, MsgBoxStyle, Object) Methode

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

Parameter

Gibt zurück

Einer der folgenden Werte:

Ausnahmen

Beispiele

In diesem Beispiel wird die MsgBox Funktion verwendet, um eine kritische Fehlermeldung in einem Dialogfeld mit den Schaltflächen Ja und Nein anzuzeigen. Die Schaltfläche Nein wird als Standardantwort angegeben. Dies geschieht, indem die MsgBox Konstantenwerte in einem numerischen Ausdruck kombiniert werden. In diesem Fall ergibt das Hinzufügen von 4 (die Schaltflächenkombination Ja/Nein) und 16 (das Fenster Kritische Nachricht ) und 256 (die zweite Schaltfläche als Standardschaltfläche) insgesamt 276. Der von der MsgBox Funktion zurückgegebene Wert hängt von der vom Benutzer ausgewählten Schaltfläche ab: Ja gibt den Wert 6 zurück; No gibt den Wert 7 zurück.

' 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

Hinweise

Wenn Sie Positionsargumente weglassen, müssen Sie das entsprechende Kommastrennzeichen beibehalten.

Wenn im Dialogfeld die Schaltfläche Abbrechen angezeigt wird, hat das Drücken der ESC-Taste die gleiche Auswirkung wie das Klicken auf Abbrechen.

Wenn das Dialogfeld eine Hilfeschaltfläche enthält, wird kontextabhängige Hilfe für das Dialogfeld bereitgestellt. Es wird jedoch kein Wert zurückgegeben, bis eine der anderen Schaltflächen ausgewählt ist. Wenn Sie in Windows Form-Anwendungen die Schaltfläche Hilfe auswählen, wird das HelpRequested Ereignis für das Formular ausgeführt.

Die MsgBoxStyle Enumerationswerte sind in der folgenden Tabelle aufgeführt.

Die erste Gruppe von Werten (0-5) beschreibt die Anzahl und den Typ der im Dialogfeld angezeigten Schaltflächen. Die zweite Gruppe (16, 32, 48, 64) beschreibt den Symbolstil. Die dritte Gruppe (0, 256, 512) bestimmt, welche Schaltfläche die Standardeinstellung ist. Die vierte Gruppe (0, 4096) bestimmt die Modalität des Nachrichtenfelds, und die fünfte Gruppe gibt an, ob das Fenster des Nachrichtenfelds das Vordergrundfenster ist, zusammen mit der Ausrichtung und Richtung des Texts. Wenn Sie Zahlen hinzufügen, um einen endgültigen Wert für das Buttons Argument zu erstellen, verwenden Sie nur eine Zahl aus jeder Gruppe.

Gilt für:

Weitere Informationen

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