我能的原因就是主窗体最小化的时候,因为某个事件或别的什么条件触发弹出modal窗体,此时form1也不能操作。解决的方法之一就是弹出窗体前判断主窗体的状态。Option ExplicitPrivate Sub Command1_Click() Me.WindowState = 1 DoEvents Timer1.Interval = 3000 Timer1.Enabled = True End SubPrivate Sub Timer1_Timer() If Me.WindowState = 1 Then Exit Sub Form2.Show vbModal, Me Timer1.Enabled = False End Sub
假设FORM1是主窗体.里面有个按钮,点一下出来FORM2
你这个FORM2是显示模式的,只有多FORM2进行操作完后,关闭这个窗体才能对FORM1进行操作,我不明白你怎么能在FORM2还没关闭前对FORM1进行最小化
Form1的这个程序是最小化的,但这时候Form2还是无情的弹了出来
Me.WindowState = 1
DoEvents
Timer1.Interval = 3000
Timer1.Enabled = True
End SubPrivate Sub Timer1_Timer()
If Me.WindowState = 1 Then Exit Sub
Form2.Show vbModal, Me
Timer1.Enabled = False
End Sub