ユーザーインターフェース関数とは、メッセージの表示や簡単な入力を行う際に関数として標準搭載された簡易フォームです。

書式Msgbox(メッセージ [,種類][,タイトル])
機能メッセージボックスを表示します。
  1. ボタンの種類
  2. 定数内容
    vbOKonly0[OK]ボタンのみ表示
    vbOKCancel1[OK] [キャンセル] ボタン表示
    vbAbortRetryignore2[中止] [再試行] [無視] ボタン表示
    vbYesNoCancel3[はい] [いいえ] [キャンセル] ボタン表示
    vbYesNo4[はい] [いいえ] ボタン表示
    vbRetryCancel5[再試行 ] [キャンセル ] ボタン表示
  3. 戻り値
  4. 定数内容
    vbOK1[OK]ボタン
    vbCancel2[キャンセル] ボタン
    vbAbort3[中止] ボタン
    vbRetry4[再試行] ボタン
    vbignore5[無視] ボタン
    vbYes6[はい] ボタン
    vbNo7[いいえ] ボタン
  5. アイコンの種類
  6. 定数内容
    vbCritical16警告メッセージアイコン
    vbQuestion32問い合わせメッセージアイコン
    vbExclamation48注意メッセージアイコン
    vbinformation64情報メッセージアイコン
  7. その他
  8. 定数内容
    vbDefaultButton10第1ボタンを標準ボタンにする
    vbDefaultButton2256第2ボタンを標準ボタンにする
    vbDefaultButton3512第3ボタンを標準ボタンにする
    vbDefaultButton4768第4ボタンを標準ボタンにする


以下の例では[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