投稿日 | : 2002/11/15(Fri) 10:56 |
投稿者 | : nobu |
Eメール | : |
URL | : |
タイトル | : Re: IF文について |
> msgbox"終わります",vbokcancel,""
> の後にIfでOKならば”ありがとうございました。"キャンセルなら”もう一度やり直して下さい”
> と表示させたいのですがどちらを選んでも”ありがとうございました”が出てしまいます。
> if vbOkCancel=1 then
> Msgbox"ありがとうございました"
> Elseif vbOkCancel=" then
> Msgbox"もう一度やり直して下さい"
> End if
下記の様にMSGBOXからの戻り値で判断するようにして下さい。
Private Sub Form_Load()
Dim ans As Integer
ans = MsgBox("終わります", vbOKCancel, "終了確認")
If ans = vbOK Then
MsgBox ("ありがとうございました。")
End
Else
MsgBox ("もう一度やり直して下さい。")
End If
End Sub