Home
ユーザーインターフェース関数
ユーザーインターフェース関数とは、メッセージの表示や簡単な入力を行う際に関数として標準搭載された簡易フォームです。
| 書式 | Msgbox(メッセージ [,種類][,タイトル]) |
| 機能 | メッセージボックスを表示します。 |
ボタンの種類
| 定数 | 値 | 内容 |
|---|
| 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 | [いいえ] ボタン |
アイコンの種類
| 定数 | 値 | 内容 |
|---|
| vbCritical | 16 | 警告メッセージアイコン |
| vbQuestion | 32 | 問い合わせメッセージアイコン |
| vbExclamation | 48 | 注意メッセージアイコン |
| vbinformation | 64 | 情報メッセージアイコン |
その他
| 定数 | 値 | 内容 |
|---|
| vbDefaultButton1 | 0 | 第１ボタンを標準ボタンにする |
| vbDefaultButton2 | 256 | 第２ボタンを標準ボタンにする |
| vbDefaultButton3 | 512 | 第３ボタンを標準ボタンにする |
| vbDefaultButton4 | 768 | 第４ボタンを標準ボタンにする |
以下の例では[OK] [キャンセル] ボタン表示させて処理を分岐させています。
Sub Sample
Dim intRet As Integer
intRet=MsgBox("処理を続行します。よろしいですか？",vbOKCancel)
If intRet= vbCancel Then
Msgbox "処理がキャンセルされました。"
Exit Sub
End If
Msgbox "処理が終了しました。"
End Sub
メッセージボックスのアイコン、スタイルを指定する場合はOrで引数の値を連結します。
Sub Sample
Dim intRet As Integer
intRet=MsgBox("処理を続行します。よろしいですか？", _
vbOKCancel Or vbQuestion Or vbDefaultButton1)
If intRet= vbCancel Then
Msgbox "処理がキャンセルされました。"
Exit Sub
End If
Msgbox "処理が終了しました。"
End Sub
| 書式 | InputBox(メッセージ [,タイトル][,デフォルト値]) |
| 機能 | インプットボックスを表示します。 |
Sub Sample
Dim strMsg As String
strMsg=InputBox("文字列を入力してください。", _
"文字列入力","文字列を入力してください。")
Msgbox strMsg
End Sub