Anweisung MsgBox

Stellt einen Dialog auf dem Bildschirm dar, der einen Hinweistext enthält.

Syntax:


   MsgBox prompt As String [,buttons = MB_OK [,title As String]]
   response = MsgBox( prompt As String [,buttons = MB_OK [,title As String]])

Parameter:

Meldung: Zeichenfolgenausdruck, der im Dialog als Meldung angezeigt wird. Zeilenumbrüche können Sie mit Chr$(13) einfügen.

Dialogtitel: Zeichenfolgenausdruck, der in der Titelleiste des Dialoges angezeigt wird. Wird dieser weggelassen, so erscheint in der Titelleiste der Name der jeweiligen Anwendung.

Schaltflächen: Ein beliebiger Ausdruck vom Typ Integer, der den Dialogtyp und die Anzahl und Art der angezeigten Schaltflächen sowie die Art des Symbols festlegt. Schaltflächen stellt eine Kombination von Bitmustern dar. Durch Addition ihrer jeweiligen Werte können also mehrere Dialogelemente definiert werden:

Benannte Konstante	Ganze Zahl	Definition
MB_OK	0	Nur die Schaltfläche OK wird dargestellt.
MB_OKCANCEL	1	Die Schaltflächen OK und Beenden werden dargestellt.
MB_ABORTRETRYIGNORE	2	Die Schaltflächen Abbrechen, Wiederholen und Ignorieren werden dargestellt.
MB_YESNOCANCEL	3	Die Schaltflächen Ja, Nein und Beenden werden dargestellt.
MB_YESNO	4	Die Schaltflächen Ja und Nein werden dargestellt.
MB_RETRYCANCEL	5	Die Schaltflächen Wiederholen und Beenden werden dargestellt.
MB_ICONSTOP	16	Das Symbol Stop wird dem Dialog hinzugefügt.
MB_ICONQUESTION	32	Das Symbol Fragezeichen wird dem Dialog hinzugefügt.
MB_ICONEXCLAMATION	48	Das Symbol Ausrufezeichen wird dem Dialog hinzugefügt.
MB_ICONINFORMATION	64	Das Symbol Information wird dem Dialog hinzugefügt.
	128	Die erste Schaltfläche des Dialogs ist die Standardschaltfläche.
MB_DEFBUTTON2	256	Die zweite Schaltfläche des Dialogs ist die Standardschaltfläche.
MB_DEFBUTTON3	512	Die dritte Schaltfläche des Dialogs ist die Standardschaltfläche.

Fehlercodes:

5 Ungültiger Prozeduraufruf

Beispiel:


Sub ExampleMsgBox
 Const sText1 = "Es trat ein unerwarteter Fehler auf."
 Const sText2 = "Es wird jedoch mit dem Programmablauf fortgefahren."
 Const sText3 = "Fehler"
 MsgBox(sText1 + Chr(13) + sText2,16,sText3)
 MsgBox(sText1 + Chr(13) + sText2, MB_ICONSTOP, sText3)
End Sub