引数により外観変更

MessageBox.Show メソッドは、引数の指定方法によって、メッセージボックスの外観を変更することが可能です。

MessageBox.Show(引数)

第1引数のみを指定した場合メッセージのみ表示
MessageBox.Show(message)

タイトルバーにテキスト表示なし
[OK]ボタン表示
[OK]ボタンにフォーカス

' MessageBox.Showメソッドの第1引数設定
' メッセージボックスに表示するテキスト
Dim message As String = "Hello World"

MessageBox.Show(message)

第2引数はタイトルバーテキスト
MessageBox.Show(message, caption)

タイトルバーにテキスト表示あり（第2引数で指定）
[OK]ボタン表示
[OK]ボタンにフォーカス

' メッセージボックスに表示するテキスト
Dim message As String = "Hello World"

' タイトルバーに表示するテキスト
Dim caption As String = "MessageBox.Showメソッド"

MessageBox.Show(message, caption)

第3引数はボタンの数とボタンテキスト
MessageBox.Show(message, caption, buttons)

第3引数
値	表示ボタン
MessageBoxButtons.AbortRetryIgnore	[中止]、[再試行]、[無視]
MessageBoxButtons.OK	[OK]
MessageBoxButtons.OKCancel	[OK]と[キャンセル]
MessageBoxButtons.RetryCance	[再試行]と[キャンセル]
MessageBoxButtons.YesNo	[はい]と[いいえ]
MessageBoxButtons.YesNoCancel	[はい]、[いいえ]、[キャンセル]

タイトルバーにテキスト表示あり（第2引数で指定）
[OK]ボタンと[キャンセル]ボタンを表示（第3引数で指定）
[OK]ボタンにフォーカス

' メッセージボックスに表示するテキスト
Dim message As String = "Hello World"

' タイトルバーに表示するテキスト
Dim caption As String = "MessageBox.Showメソッド"

' 表示するボタン([OK]ボタンと[キャンセル]ボタン)
Dim buttons As MessageBoxButtons = MessageBoxButtons.OKCancel

MessageBox.Show(message, caption, buttons)

第4引数はアイコン種類と背景色
MessageBox.Show(message, caption, buttons, icon)

第4引数
値	アイコン形	背景色	表示内容
MessageBoxIcon.Asterisk	○	白	ｉ
MessageBoxIcon.Error	○	赤	×
MessageBoxIcon.Exclamation	△	黄	！
MessageBoxIcon.Hand	○	赤	×
MessageBoxIcon.Information	○	白	ｉ
MessageBoxIcon.None	表示しない	－	－
MessageBoxIcon.Question	○	白	？
MessageBoxIcon.Stop	○	赤	×
MessageBoxIcon.Warning	△	黄	！

タイトルバーにテキスト表示あり（第2引数で指定）
[OK]ボタンと[キャンセル]ボタンを表示（第3引数で指定）
iを丸く囲ったアイコンを表示（第4引数で指定）
[OK]ボタンにフォーカス

' メッセージボックスに表示するテキスト
Dim message As String = "Hello World"

' タイトルバーに表示するテキスト
Dim caption As String = "MessageBox.Showメソッド"

' 表示するボタン([OK]ボタンと[キャンセル]ボタン)
Dim buttons As MessageBoxButtons = MessageBoxButtons.OKCancel

' 表示するアイコン(円で囲まれた小文字の'i')
Dim icon As MessageBoxIcon = MessageBoxIcon.Information

MessageBox.Show(message, caption, buttons, icon)

第5引数はボタンのフォーカス指定
MessageBox.Show(message, caption, buttons, icon, defaultBtn)

第5引数
値	フォーカス位置
MessageBoxDefaultButton.Button1	第1ボタン
MessageBoxDefaultButton.Button2	第2ボタン
MessageBoxDefaultButton.Button3	第3ボタン

タイトルバーにテキスト表示あり（第2引数で指定）
[OK]ボタンと[キャンセル]ボタンを表示（第3引数で指定）
iを丸く囲ったアイコンを表示（第4引数で指定）
[キャンセル]ボタンにフォーカスを変更（第5引数で指定）

' メッセージボックスに表示するテキスト
Dim message As String = "Hello World"

' タイトルバーに表示するテキスト
Dim caption As String = "MessageBox.Showメソッド"

' 表示するボタン([OK]ボタンと[キャンセル]ボタン)
Dim buttons As MessageBoxButtons = MessageBoxButtons.OKCancel

' 表示するアイコン(円で囲まれた小文字の'i')
Dim icon As MessageBoxIcon = MessageBoxIcon.Information

' フォーカスを設定するボタン(2番目のボタン)
Dim defaultBtn As MessageBoxDefaultButton _
    = MessageBoxDefaultButton.Button2

MessageBox.Show(message, caption, buttons, icon, defaultBtn)