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 |
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