MsgBox( メッセージ [,ボタン+アイコン] [,タイトル])
アイコン
| 名称 |
値 |
説明 |
| vbCritical |
16 |
[ × ] 警告 |
| vbQuestion |
32 |
[？] 問い合わせ |
| vbExclamation |
48 |
[！] 注意 |
| vbinformation |
64 |
[ ｉ ] 情報 |
ボタン
| 名称 |
値 |
説明 |
| vbOKonly |
0 |
[OK] |
| vbOKCancel |
1 |
[OK][キャンセル] |
| vbAbortRetryignore |
2 |
[中止][再試行][無視] |
| vbYesNoCancel |
3 |
[はい][いいえ][キャンセル] |
| vbYesNo |
4 |
[はい][いいえ] |
| vbRetryCancel |
5 |
[再試行 ] [キャンセル ] |
ボタン押下した時の戻り値
| 名称 |
値 |
説明 |
| vbOK |
1 |
[OK] |
| vbCancel |
2 |
[キャンセル] |
| vbAbort |
3 |
[中止] |
| vbRetry |
4 |
[再試行] |
| vbignore |
5 |
[無視] |
| vbYes |
6 |
[はい] |
| vbNo |
7 |
[いいえ] |
If vbOK = MsgBox("MsgBoxは理解しましたか？", vbOKCancel+vbQuestion, "お試し") Then
MsgBox "OK～！"
Else
MsgBox "あらら..."
End If