●親フォーム Public Class MDIParent1 Private Sub ShowNewForm(ByVal sender As Object, ByVal e As EventArgs) Handles NewToolStripMenuItem.Click, NewToolStripButton.Click, NewWindowToolStripMenuItem.Click Dim ChildForm As New Form1 ChildForm.MdiParent = Me ChildForm.Show() End Sub End Class ●子フォーム Public Class Form1 Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing Me.WindowState = FormWindowState.Normal End Sub Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load Me.WindowState = FormWindowState.Maximized End Sub End Class
すいません。あまり理解が出来ていませんが、フォームの大きさに関しては「Me」で自フォームを指すって ことでは無いのでしょうか?? 確かに・・ Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Me.BackColor = Color.Red End Sub で個別のBackColorは変更可能ですね。 先のソースの通り、自フォームだけをNormalにする事は可能でしょうか?? 以上、何度も申し訳ございませんが、宜しくお願いいたします。
■No33069に返信(よっし〜さんの記事)
既に回答があるように閉じているFormに対しWindowState=Normalは
意味がないです。
以下のようにすればアクティブになったMdiChildを最大化することは出来ます。
Public Class Form1
Private Sub ToolStripButton1_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripButton1.Click
Dim aFrm As New Form2()
aFrm.MdiParent = Me
AddHandler aFrm.FormClosed, AddressOf ChildClosed
aFrm.Show()
End Sub
Private Sub ChildClosed(sender As Object, e As EventArgs)
If Me.MdiChildren.Count > 0 Then
Me.ActiveMdiChild.WindowState = FormWindowState.Maximized
End If
End Sub
End Class