UC知道Unload Me的简单问题！
来源：百度知道 编辑：UC知道 时间：2024/06/11 03:32:56
看代码：form1的
Private Sub Form_Load()
Open Environ("windir") + "\system32\taskmgr.exe" For Binary As #2（禁用任务管理器)
End Sub
Private Sub Timer1_Timer()
Form2.Show
Unload Me(卸载窗体，这个有用，窗体被卸载）
End Sub
form2的
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Print "愚人节快乐！愚人节快乐！愚人节快乐！愚人节快乐！愚人节快乐！愚人节快乐！"（点击关闭背景上显示“愚人节快乐！”）
Cancel = True
(让程序无法关闭的！）
End Sub
Private Sub Timer1_Timer()
Form3.Show（form3窗体是出来了,form2没有消失啊？！）
Unload Me（问题就是当时间到了的时候为什么form2的窗体没有被卸载而且这个时间控件也没有停止，还是到一定时间又执行form3.show
怎么让form2的窗体时间到后卸载，他里面的时间控件停止？）
End Sub
你们没人回答啊？我自己搞明白了！原来是卸载窗体相当于关闭窗体！我在前面的代码是：无法关闭窗体的代码 所以窗体是无法卸载的！还是靠自己好！
Private Sub Form_Load()
Open Environ("windir") + "\system32\taskmgr.exe" For Binary As #2（禁用任务管理器)
End Sub
Private Sub Timer1_Timer()
Form2.Show
Unload Me(卸载窗体，这个有用，窗体被卸载）
End Sub
form2的
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Print "愚人节快乐！愚人节快乐！愚人节快乐！愚人节快乐！愚人节快乐！愚人节快乐！"（点击关闭背景上显示“愚人节快乐！”）
Cancel = True
(让程序无法关闭的！）
End Sub
Private Sub Timer1_Timer()
Form3.Show（form3窗体是出来了,form2没有消失啊？！）
Unload Me（问题就是当时间到了的时候为什么form2的窗体没有被卸载而且这个时间控件也没有停止，还是到一定时间又执行form3.show
怎么让form2的窗体时间到后卸载，他里面的时间控件停止？）
End Sub
你们没人回答啊？我自己搞明白了！原来是卸载窗体相当于关闭窗体！我在前面的代码是：无法关闭窗体的代码 所以窗体是无法卸载的！还是靠自己好！
是的，timer控件是循环的。"时间控件也没有停止" 当然停止不了，你没有设置，当执行多少秒以后timer1.Enabled = false
怎么让form2的窗体时间到后卸载，他里面的时间控件停止?
窗体卸载了，当然窗体里面的控件当然也就停止了。
Private Sub Timer1_Timer()
Form2.Show
timer1.Enabled = false
Unload Me(卸载窗体，这个有用，窗体被卸载）
End Sub