Interaction.MsgBox(Object, MsgBoxStyle, Object) Methode

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.ApplicationModal, Optional Title As Object = Nothing) As MsgBoxResult

Parameter

Gibt zurück

Mögliche Werte:

Ausnahmen

Beispiele

In diesem Beispiel wird die MsgBox Funktion verwendet, um eine Fehlermeldung in einem Dialogfeld mit den Schaltflächen "Ja" und "Nein" anzuzeigen. Die Schaltfläche "Nein" ist als Standardantwort angegeben. Dazu werden die MsgBox Konstantenwerte in einem numerischen Ausdruck kombiniert. In diesem Fall gibt das Hinzufügen von 4 (die Kombination aus Ja/Nein) und 16 (das Fenster " Kritische Nachricht ") und 256 (die zweite Schaltfläche als Standardschaltfläche) insgesamt 276. Der von der Funktion zurückgegebene Wert hängt von der MsgBox vom Benutzer gewählten Schaltfläche ab: Ja gibt den Wert 6 zurück; Nein gibt einen Wert von 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 keine Positionsargumente angeben, müssen Sie das entsprechende Kommatrennzeichen beibehalten.

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

Wenn das Dialogfeld die Schaltfläche Hilfe enthält, wird für das Dialogfeld eine kontextbezogene Hilfe zur Verfügung gestellt. Es wird jedoch kein Wert zurückgegeben, bis eine der anderen Schaltflächen ausgewählt wird. In Windows Formularanwendungen führt die Auswahl der Schaltfläche Help das ereignis HelpRequested für das Formular aus.

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

Die erste Gruppe von Werten (0-5) beschreibt die Anzahl und den Typ der Schaltflächen, die im Dialogfeld angezeigt werden. Die zweite Gruppe (16, 32, 48, 64) beschreibt die Symbolformatvorlage. Die dritte Gruppe (0, 256, 512) bestimmt, welche Schaltfläche die Standardeinstellung ist. Die vierte Gruppe (0, 4096) bestimmt die Modalität des Meldungsfelds, und die fünfte Gruppe gibt an, ob das Nachrichtenfeldfenster 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.

Weitere Informationen

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