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

名前

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

本文 やっと出来ました…。 [VB.NET] '///////////////////////// Option Explicit On '///////////////////////// '/// Class1.vb '///////////////////////// Public Class Class1 Private Frm2 As Form2 Friend Sub ShowFrm2(ByRef Frm1 As Form) If Me.Frm2 Is Nothing Then Me.Frm2 = New Form2(Me) End If Me.Frm2.MdiParent = Frm1 Me.Frm2.Show() Me.Frm2.BringToFront() End Sub Friend Sub SetForm2Nothing() Me.Frm2 = Nothing End SubEnd Class '///////////////////////// Option Explicit On '///////////////////////// '/// Form1.vb '///////////////////////// Public Class Form1 Inherits System.Windows.Forms.Form ' Windows フォーム デザイナで生成されたコード Private mParentClass As New Class1 Friend Sub New(ByRef ParentClass As Class1) Me.New() Me.mParentClass = ParentClass End Sub Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem1.Click Me.mParentClass.ShowFrm2(Me) End Sub End Class '///////////////////////// Option Explicit On '///////////////////////// '/// Form2.vb '///////////////////////// Public Class Form2 Inherits System.Windows.Forms.Form ' Windows フォーム デザイナで生成されたコード Private mParentClass As Class1 Public Sub New(ByRef ParentClass As Class1) Me.New() Me.mParentClass = ParentClass End Sub Private Sub Form2_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing Me.mParentClass.SetForm2Nothing() End Sub End Class という感じです。どうでしょう？ 親フォームの設定を、引数で渡していなかったので、子フォームとならず、ちょっと苦労しました。 何冊か本も購入しやっていますが、まだまだ勉強不足のようです…。 特攻隊長まるるうさん、ありがとうございました！