Funktion MsgBox
Zeigt einen Dialog mit einer Meldung an und gibt einen Wert zurĂŒck.
MsgBox (Prompt As String [,Buttons = MB_OK [,Title As String]]) As Integer
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 angibt und 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.
|
Integer
|
Benannte Konstante
|
Ganze Zahl
|
Definition
|
|
IDOK
|
1
|
OK
|
|
IDCANCEL
|
2
|
Beenden
|
|
IDABORT
|
3
|
Abbrechen
|
|
IDRETRY
|
4
|
Wiederholen
|
|
IDIGNORE
|
5
|
Ignorieren
|
|
IDYES
|
6
|
Ja
|
|
IDNO
|
7
|
Nein
|
5 UngĂŒltiger Prozeduraufruf
Beispiel:
Sub ExampleMsgBox
Dim sVar As Integer
sVar = MsgBox("Las Vegas")
sVar = MsgBox("Las Vegas",1)
sVar = MsgBox( "Las Vegas",256 + 16 + 2,"Dialogtitel")
sVar = MsgBox("Las Vegas", MB_DEFBUTTON2 + MB_ICONSTOP + MB_ABORTRETRYIGNORE, "Dialogtitel")
End Sub