玄関へお回り下さい。
Form1 から Form2 を表示する(3個)              (SNo.085)

１．Form1 から Form2 をモードレスで表示する
２．Form1 から Form2 をモーダルで表示する
３．Form1 から Form2 をモードレスで複数表示されないように表示する
使用コントロール (Form1 = Button1 Button2　Button3 )　
(Form2 = )　
その他条件 WindowsXP(Vista)　Visual Basic 2005(VB2008)
プロジェクト→Windows フォームの追加→Windowsフォームを選択して開くをクリックしてフォームを追加して下さい。(以後 Form2 が必要時は同様です）　
１．Form1 から Form2 をモードレスで表示する

Private Sub Button1_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button1.Click
'Form1 から Form2 をモードレスで表示する
    Dim frm2 As New Form2
    frm2.Show()
'この場合再度クリックするとクリックの都度Form2 が複数表示されるので注意が必要。
'但し、 Load イベント等に記入する場合なら複数表示されない。
End Sub
２．Form1 から Form2 をモーダルで表示する

Private Sub Button2_Click(ByVal sender As System.Object, _
                          ByVal e As System.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(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button3.Click
'Form1 から Form2 をモードレスで複数表示されないように表示する
    If f2 Is Nothing OrElse f2.IsDisposed Then
        f2 = New Form2
    End If
    f2.Show()
End Sub
　　





2004/05/06
2005/10/11


VBレスキュー(花ちゃん)
VB.NET2003　　VB2005