IBM Lotus Symphony
|
メッセージ表示用のダイアログボックスを表示します。
MsgBox Text As String [,Type As Integer [,Dialogtitle As String]] (As Statement) または MsgBox (Text As String [,Type As Integer [,Dialogtitle As String]]) (As Function)
Text : ダイアログボックスにメッセージとして表示する文字列表式。表示メッセージを改行する場合は、該当箇所に Chr$(13) を挿入します。
DialogTitle : ダイアログボックスのタイトルバーに表示する文字列表式。指定を省略した場合、タイトルバーには該当するアプリケーション名が表示されます。
Type : ダイアログ本体の種類および、ダイアログ上に表示するボタンの数と種類とアイコンを指定する整数表式。Type の値は、ビットパターンの組み合わせで指定するもので、該当する個々のダイアログ要素を示す値の合計値を指定します。
0 : OK ボタンのみを表示させます。
1 : OK およびキャンセルの各ボタンを表示させます。
2 : 異常終了、再試行、無視の各ボタンを表示させます。
3 : はい、いいえ、キャンセルの各ボタンを表示させます。
4 : はい、いいえの各ボタンを表示させます。
5 : やり直しおよびキャンセルの各ボタンを表示させます。
16 : ダイアログ上にストップ記号のアイコンを表示させます。
32 : ダイアログ上に疑問符のアイコンを表示させます。
48 : ダイアログ上に感嘆符のアイコンを表示させます。
64 : ダイアログ上に情報アイコンを表示させます。
128 : ダイアログ上の 1 番目のボタンを、デフォルトボタンとします。
256 : ダイアログ上の 2 番目のボタンを、デフォルトボタンとします。
512 : ダイアログ上の 3 番目のボタンを、デフォルトボタンとします。
Sub ExampleMsgBox
Const sText1 = "An unexpected error occurred."
Const sText2 = "The program execution will continue, however."
Const sText3 = "Error"
MsgBox(sText1 + Chr(13) + sText2,16,sText3)
End sub