VB.NET:モーダルで表示したフォームを最小化
Form2をForm1の所有として、モーダルで表示しました。
'------------------------
Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdChildMdl.Click
'Form2を開く
Dim frmN As New Form2
frmN.ShowDialog(Me) 'MeはForm1
End Sub
'------------------------
Form2が最小化された時に、親フォームであるForm1も最小化させたいと思い、
Form2のResizeメソッドに以下のようなコードを書きました。
'------------------------
Private Sub Form2_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Resize
Select Case Me.WindowState
Case FormWindowState.Minimized
'親フォームも最小化((1))
Me.Owner.WindowState = FormWindowState.Minimized
Case FormWindowState.Maximized
'親フォームも最大化((2))
Me.Owner.WindowState = FormWindowState.Maximized
Case FormWindowState.Normal
'親フォームも通常サイズ((3))
Me.Owner.WindowState = FormWindowState.Normal
End Select
End Sub
'------------------------
しかし、(2)、(3)は問題なく実行できるのですが、
(1)を実行すると、自フォーム(Form2)が閉じてしまうのです。
そういう仕様なのでしょうか?
ご存知の方、教えてください。よろしくお願いします。