２．Form1 から Form2 を表示する(34_Frm_02)　(旧、SampleNo.085)

１．Form1 から Form2 をモードレスで表示する ２．Form1 から Form2 をモーダルで表示する ３．Form1 から Form2 をモードレスで複数表示されないように表示する ４． ５． ６．

下記プログラムコードに関する補足・注意事項　 動作確認：Windows 8.1 (Windows 7) / VB2013 (VB2010) / Framework 4.5.1 / 対象の CPU：x86 Option　：[Compare Text] [Explicit On] [Infer On] [Strict On] Imports ：追加なし 参照設定：追加なし 使用コン：Form1 / Form2 /Button1 / Button2 /Button3 トロール：(この場合、Form2 上には、プログラムコードを記入する必要はありません) このサンプル等の内容を無断で転載、掲載、配布する事はお断りします。(私の修正・改訂・削除等が及ばなくなるので) 必要ならリンクをはるようにして下さい。(引用の場合は引用元のリンクを明記して下さい)

１．Form1 から Form2 をモードレスで表示する

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 'Form1 から Form2 をモードレスで表示する     Dim frm2 As New Form2     frm2.Show(Me) 'この場合再度クリックするとクリックの都度Form2 が複数表示されるので注意が必要。 End Sub

２．Form1 から Form2 をモーダルで表示する

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 'Form1 から Form2 をモーダルで表示する     Dim frm2 As New Form2     frm2.ShowDialog(Me)     frm2.Dispose() 'この場合はForm2 が閉じられるまでForm1 ではクリックできないので複数表示する事ができない。 End Sub

３．Form1 から Form2 をモードレスで複数表示されないように表示する

Private f2 As New Form2 Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click 'Form1 から Form2 をモードレスで複数表示されないように表示する     If f2 Is Nothing OrElse f2.IsDisposed Then         f2 = New Form2     End If     f2.Show() End Sub

４．

５．

６．

検索キーワード及びサンプルコードの別名(機能名)

フォーム１からフォーム２を表示する