MsgBox Function

En dialogruta som innehÄller ett meddelande visas och ett vÀrde returneras.

Syntax:

MsgBox (Text As String [,Typ As Integer [,Dialogtitel As String]])

ReturvÀrde:

Integer

Parameter:

Text: StrÀnguttryck visat som ett meddelande i dialogrutan. Radbrytningar kan infogas med Chr$(13).

DialogTitle: StrÀnguttryck visat i dialogrutans titellist. Om det utelÀmnas visas namnet pÄ respektive program.

Typ: Ett heltalsuttryck som anger dialogrutetypen och definierar hur mÄnga och vilken typ av knappar och ikoner som ska visas. Typ representerar en kombination av bitmönster (dialogruteelement som definierats genom att respektive vÀrde lagts till):

VĂ€rden

Named constant

Integer value

Definition

MB_OK

0

Display OK button only.

MB_OKCANCEL

1

Display OK and Cancel buttons.

MB_ABORTRETRYCANCEL

2

Display Abort, Retry, and Ignore buttons.

MB_YESNOCANCEL

3

Display Yes, No, and Cancel buttons.

MB_YESNO

4

Display Yes and No buttons.

MB_RETRYCANCEL

5

Display Retry and Cancel buttons.

MB_ICONSTOP

16

Add the Stop icon to the dialog.

MB_ICONQUESTION

32

Add the Question icon to the dialog.

MB_ICONEXCLAMATION

48

Add the Exclamation Point icon to the dialog.

MB_ICONINFORMATION

64

Add the Information icon to the dialog.

128

First button in the dialog as default button.

MB_DEFBUTTON2

256

Second button in the dialog as default button.

MB_DEFBUTTON3

512

Third button in the dialog as default button.


ReturvÀrde:

Named constant

Integer value

Definition

IDOK

1

OK

IDCANCEL

2

Cancel

IDABORT

3

Abort

IDRETRY

4

Retry

IDIGNORE

5

Ignore

IDYES

6

Yes

IDNO

7

No


Felkoder:

5 Felaktigt proceduranrop

Exempel:

Sub ExampleMsgBox

Dim sVar As Integer

 sVar = MsgBox("Las Vegas")

 sVar = MsgBox("Las Vegas",1)

 sVar = MsgBox( "Las Vegas",256 + 16 + 2,"Dialog title")

 sVar = MsgBox("Las Vegas", MB_DEFBUTTON2 + MB_ICONSTOP + MB_ABORTRETRYCANCEL, "Dialog title")

End Sub