MsgBox függvény

Megjelenít egy üzenetet tartalmazó párbeszédablakot, és visszaad egy értéket.

Szintaxis:


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

Paraméterek:

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:

Nevesített konstans

Egész érték

Definíció

MB_OK

0

Csak az OK gombot jeleníti meg.

MB_OKCANCEL

1

Az OK és a Mégse gombot jeleníti meg.

MB_ABORTRETRYCANCEL

2

A Megszakítás, az Újra és a Mellőzés gombot jeleníti meg.

MB_YESNOCANCEL

3

Az Igen, a Nem és a Mégse gombot jeleníti meg.

MB_YESNO

4

Az Igen és a Nem gombot jeleníti meg.

MB_RETRYCANCEL

5

Az Újra és a Mégse gombot jeleníti meg.

MB_ICONSTOP

16

A Stop ikon hozzáadása a párbeszédablakhoz.

MB_ICONQUESTION

32

A Kérdőjel ikon hozzáadása a párbeszédablakhoz.

MB_ICONEXCLAMATION

48

A Felkiáltójel ikon hozzáadása a párbeszédablakhoz.

MB_ICONINFORMATION

64

Az Információ ikon hozzáadása a párbeszédablakhoz.

128

A párbeszédablak első gombja az alapértelmezett gomb.

MB_DEFBUTTON2

256

A párbeszédablak második gombja az alapértelmezett gomb.

MB_DEFBUTTON3

512

A párbeszédablak harmadik gombja az alapértelmezett gomb.


Visszatérési érték:

Integer (egész szám)

Nevesített konstans

Egész érték

Definíció

IDOK

1

OK

IDCANCEL

2

Mégse

IDABORT

3

Megszakítás

IDRETRY

4

Újra

IDIGNORE

5

Mellőzés

IDYES

6

Igen

IDNO

7

Nem


Hibakódok:

5 Érvénytelen eljáráshívás

Példa:


Sub ExampleMsgBox
Dim sVar As Integer
 sVar = MsgBox("Las Vegas")
 sVar = MsgBox("Las Vegas",1)
 sVar = MsgBox( "Las Vegas",256 + 16 + 2,"Párbeszédablak címe")
 sVar = MsgBox("Las Vegas", MB_DEFBUTTON2 + MB_ICONSTOP + MB_ABORTRETRYCANCEL, "Párbeszédablak címe")
End Sub

Támogasson minket!