MDI親フォームから子フォームの表示について (ID:116961)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

うむ。面倒くさい事してるねw。ちゃんと理解できて
必要な部分だけ抜き出せればこれだけで済むと思うよ。
[VB.NET]
'/////////////////////////
Option Explicit On 
'/////////////////////////
'/// Form1.vb
'/////////////////////////
Public Class Form1
    Inherits System.Windows.Forms.Form

[省略] Windows フォーム デザイナで生成されたコード

Private ChildForm2 As Form2

Friend Sub SetForm2Nothing()
        Me.ChildForm2 = Nothing
    End Sub

Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem1.Click
        If Me.ChildForm2 Is Nothing Then
            Me.ChildForm2 = New Form2
            Me.ChildForm2.MdiParent = Me
        End If
        Me.ChildForm2.Show()
    End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.IsMdiContainer = True
    End Sub
End Class
'/////////////////////////
Option Explicit On 
'/////////////////////////
'/// Form2.vb
'/////////////////////////
Public Class Form2
    Inherits System.Windows.Forms.Form

[省略] Windows フォーム デザイナで生成されたコード

Private Sub Form2_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        Call CType(Me.MdiParent, Form1).SetForm2Nothing()
    End Sub

End Class

←解決時は質問者本人がここをチェックしてください。

戻る