最小化的问题
我设计了一个界面,是两个窗体拼成一个。上面的是主窗体,点击最小化按钮,下面的窗体也最小化
代码如下:
Private Sub Form_Resize()
If WindowState = 1 Then
If Form7_8_Flag = 7 Then Form7.WindowState = 1
If Form7_8_Flag = 8 Then Form8.WindowState = 1
If Form7_8_Flag = 9 Then Form9.WindowState = 1
If Form7_8_Flag = 11 Then Form11.WindowState = 1
End If
If WindowState = 0 Then
If Form7_8_Flag = 7 Then Form7.WindowState = 0
If Form7_8_Flag = 8 Then Form8.WindowState = 0
If Form7_8_Flag = 9 Then Form9.WindowState = 0
If Form7_8_Flag = 11 Then Form11.WindowState = 0
End If
End Sub
设断点,运行可以。全速运行,下面的窗体不最小化。
请问高手,哪里的问题?谢谢!