vb 模式窗口最小化，高！

来源：百度知道 编辑：UC知道 时间：2024/06/02 08:42:21
我发现，在vfoxpro中不论打开几层模式窗口，只要点vfoxpro主窗口的最小化按钮，则主窗口与模式一起最小化，很方便，但是在vb中怎么实现呢？

比如说：
在form1中form2.show 1
在form2中form3.show 1
如何直接按form1的最小化按钮，form2与from3一起最小化呢？
各位搞错了,模式窗口打开的时候,其它前一窗口是动不了的!
难道你们不知道吗?

把下面放在FORM1
Private Sub Form_Resize()
If Form1.WindowState = 1 Then
If Form2.Visible = True Then Form2.WindowState = 1
If Form3.Visible = True Then Form3.WindowState = 1
End If
If Form1.WindowState = 0 Then
If Form2.Visible = True Then Form2.WindowState = 0
If Form3.Visible = True Then Form3.WindowState = 0
End If
End Sub
模式窗口打开的时候,其它前一窗口是动不了的，那你怎么最少化FORM1

要捕获窗体上的最小化事件是很难的（起码我不懂），不过可以在MID窗体上添加一个“最小化所有窗体”的菜单项:
Private Sub MDIForm_Load()
Form1.Show
Form2.Show
End Sub

Private Sub setAllMin_Click() 'setAllMin为菜单上的项
Form1.WindowState = 1
Form2.WindowState = 1
End Sub

'将下面放在Form1
'区分窗口最小化模式.
Private Sub Form_Resize()
If Form1.WindowState = 1 Then
If Form2.Visible = True Then Form2.WindowState = 1
If Form3.Visible = True Then Form3.WindowState = 1
End If
If Form1.WindowState = 0 Then
If Form2.Visible = True Then Form2.Win