|
分類:[VB.NET/VB2005 以降]
親フォームを最小化した後に子フォームを開きたいです。
どのようにすれば良いのか、ご教授のほどお願いします。
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.SetBounds(0, 0, 1000, 800, BoundsSpecified.All)
'このフォームを MDI コンテナとして設定
Me.IsMdiContainer = True
End Sub
'子フォーム Test1を開く
Private Sub Test1ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles Test1ToolStripMenuItem.Click
Dim frmchild As New Form2
frmchild.MdiParent = Me
frmchild.Show()
'自分自身のフォームを最小化
'Me.WindowState = FormWindowState.Minimized
End Sub
End Class
Public Class Form2
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.SetBounds(300, 100, 500, 200, BoundsSpecified.All)
End Sub
'このフォームを閉じる
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.Close()
End Sub
End Class
|