MsgBoxを使ってその後の処理を分岐させる
Dim ans As Integer
ans = MsgBox("処理を行いますか?", vbYesNo + vbQuestion, "動作確認")
If ans = vbYes Then
MsgBox "開始します"
Else
MsgBox "中断します"
End If
buttons の引数
定数 | 値 | 内容 |
---|---|---|
vbYesNo | 4 | [はい]と[いいえ] |
vbOKOnly | 0 | [OK]のみ |
vbRetryCancel | 5 | [再試行]と[キャンセル] |
buttons の引数(アイコン)
定数 | 値 | 内容 |
---|---|---|
vbQuestion | 32 | 問い合わせアイコン |
vbCritical | 16 | 警告アイコン |
vbExcla,ation | 48 | 注意アイコン |
vbInformation | 64 | 情報アイコン |
戻り値
定数 | 値 | 説明 |
---|---|---|
vbOk | 1 | [OK]ボタンが押された |
vbCancel | 2 | [キャンセル]ボタンが押された |
vbYes | 6 | [Yes]ボタンが押された |
vbNo | 7 | [No]ボタンが押された |
vbRetry | 4 | [再試行]ボタンが押された |