Funktion MsgBox

Zeigt einen Dialog mit einer Meldung an und gibt einen Wert zurĂźck.

Syntax:


MsgBox (Prompt As String [,Buttons = MB_OK [,Title As String]]) As Integer

Parameter:

prompt: String expression displayed as a message in the dialog box. Line breaks can be inserted with Chr$(13).

title: String expression displayed in the title bar of the dialog. If omitted, the title bar displays the name of the respective application.

buttons: Any integer expression that specifies the dialog type, as well as the number and type of buttons to display, and the icon type. buttons represents a combination of bit patterns, that is, a combination of elements can be defined by adding their respective values:

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_ABORTRETRYCANCEL

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.


RĂźckgabewert:

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


Fehlercodes:

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_ABORTRETRYCANCEL, "Dialogtitel")
End Sub

Bitte unterstĂźtzen Sie uns!