メッセージボックスを表示する方法を記載します。

メッセージボックスを表示するには、MsgBox関数を使う方法と、MessageBoxクラスを使う方法があります。

MsgBoxを使用する方法

Dim result As MsgBoxResult = MsgBox("説明文",
                                     MsgBoxStyle.YesNo Or MsgBoxStyle.Exclamation,      'メッセージボックスのスタイルを設定
                                     "タイトル")

If result = MsgBoxResult.Yes Then
End If

MsgBoxStyle列挙体

 

MessageBoxを使用する方法

Dim result As DialogResult = MessageBox.Show("説明文",
                                             "タイトル",
                                             MessageBoxButtons.YesNo,                    'メッセージボックスのボタン
                                             MessageBoxIcon.Exclamation,                 'メッセージボックスのアイコン
                                             MessageBoxDefaultButton.Button1,            'ボタンのフォーカスデフォルト
                                             MessageBoxOptions.RightAlign)               'メッセージボックスのオプション

If result = DialogResult.Yes Then
End If

MessageBoxButtons列挙体

MessageBoxIcon列挙体

MessageBoxDefaultButton列挙体

MessageBoxOptions列挙体

 

オーナーウィンドウを指定する

MessageBox.Show(Me,
                "説明文")

・Showの1番目のパラメータにオーナーウインドウが指定できます。指定が無い場合は、アクティブウィンドウがオーナーとなります。