メッセージボックス

HOME >>メッセージボックス

今回はメッセージボックスについて書いていきます。

これは処理を続けていいか？などの時などによく使用します。

Msgboxの中身は↓

MsgBox(prompt,buttons,title,helpfile,context)

Ｐｒｏｍｐｔだけを指定すればメッセージだけは出すことが出来ます。

Buttonsを使用することで、ＯＫやＮＯなどを使用する事が出来ます。

簡単な例は↓

Private Sub CommandButton1_Click()
Dim i As Ｓｔｒｉｎｇ
'どちらのボタンが押されたのかを変数に入れる
i = MsgBox("処理を続けていい？", vbOKCancel)
'キャンセルボタンが押された時の処理
If a = 2 Then
Exit Sub
End If
'キャンセルされなければ
MsgBox ("処理を続行します")

End Sub

上の処理ではｖｂＯＫＣａｎｃｅｌを使用してるので、ＯＫかキャンセルが表示されます。

キャンセルの値が２の為、次のＩＦ文で２かどうかをチェックしています。

定数名と値↓

ｖｂＯＫ	1	ＯＫ
ｖｂＣａｎｃｅｌ	２	キャンセル
ｖｂＡｂｏｒｔ	３	中止
ｖｂＲｅｔｒｙ	４	再試行
ｖｂIgnore	５	無視
ｖｂＹｅｓ	６	はい
ｖｂＮｏ	７	いいえ

ですので、上では２と書きましたが、ｖｂＣａｎｃｅｌと書いても同じ意味です。

Ｔｉｔｌｅは指定するとメッセージボックスの表示が変わります。

helpfile,contextは

ヘルプを設定するために、使用するヘルプファイルの名前を示す文字列式を指定します。

指定すると文字チェックなどが出来ます。

この二つはあまり使用することはないとは思います。

buttonsの機能を使用することによっていろいろな処理が出来るようになります。

次はＦｏｒ　Ｅａｃｈ文について書いていきます。