1.メッセージボックスを表示する(38_Msg_01) (旧、SampleNo.099) |
1.メッセージボックスを表示する 2. 3. 4. 5. 6. |
下記プログラムコードに関する補足・注意事項 動作確認:Windows 8.1 (Windows 7) / VB2013 (VB2010) / Framework 4.5.1 / 対象の CPU:x86 Option :[Compare Text] [Explicit On] [Infer On] [Strict On] Imports :追加なし 参照設定:追加なし その他 : : このサンプル等の内容を無断で転載、掲載、配布する事はお断りします。(私の修正・改訂・削除等が及ばなくなるので) 必要ならリンクをはるようにして下さい。(引用の場合は引用元のリンクを明記して下さい) |
1.メッセージボックスを表示する |
Private mText As String = "" Private mCaption As String = "" Private mButtons As MessageBoxButtons = MessageBoxButtons.YesNo Private mResult As DialogResult Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click mText = "** ファイルを削除しますか?" mCaption = "削除確認" mButtons = MessageBoxButtons.YesNo mResult = MessageBox.Show(Me, mText, mCaption, mButtons) 'どのボタンをクリックしたかを調べる If mResult = Windows.Forms.DialogResult.Yes Then 'ファイル削除のコード '一番単純なメッセージボックスを表示 MessageBox.Show("ファイルを削除しました") End If End Sub 詳しくは、MSDN で MessageBox クラスをご覧下さい。 |
2. |
3. |
4. |
5. |
6. |
検索キーワード及びサンプルコードの別名(機能名) |