如何将vb某窗体最小化后本模块内的所有窗体全部最小化

如何将 vb内某窗体最小化后，将模块内所有已打开的窗体最小化和还原呢？

注意：是本模块内的窗体，不是最小化所有打开任务栏的窗体。

'事件如下，如果有三个窗体，每个窗体都放一个timer 控件，interval=500

Private Sub Timer1_Timer()
If Me.WindowState = vbMinimized Then
Form1.WindowState = vbMinimized
Form2.WindowState = vbMinimized
Form3.WindowState = vbMinimized
End If
If Me.WindowState = vbNormal Then
Form1.WindowState = vbNormal
Form2.WindowState = vbNormal
Form3.WindowState = vbNormal
Me.SetFocus
End If
End Sub

不知道你所指的窗体是不是MDI子窗体,若是,代码如下：

Dim a As Integer For a = 1 To Forms.Count - 1 If Forms(a).MDIChild = True Then Forms(a).WindowState = 1 Next a

若不是MDI子窗体，代码如下：

Dim a As Integer For a = 1 To Forms.Count - 1 Forms(a).WindowState = 1 Next a

其中，Forms故名思议，就是指所有的窗体，也就是窗体集合。

楼主千万了别忘了加分哦！20分呢，我的QQ：596566303

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息