VB中timer的小问题,高手请留步~
现在的情况~~有个主窗体,有个"退出",代码是form16.show
目的是弹出一个窗口,显示"感谢使用",然后两秒钟后自动退出整个工程
在form16里我添加完timer控件了,代码是
Dim i As Byte '通用
Private Sub Timer1_Timer()
i = i + 1
If i = 2 Then
unload me
End If
End Sub
Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
可是这个只能关闭我当前这form16窗口呀,并不能关闭整个工程,上网找了好久也没找到办法,哪位高手能指点一二~~~ --------------------编程问答-------------------- Private Sub Timer1_Timer()
i = i + 1
If i = 2 Then
unload me
end '或者 Unload Mainform
End If
End Sub
--------------------编程问答-------------------- 这个...我没有mainform,呵呵,我主窗体就是form2,新手...
刚才我用您的方法在unload me下边加了一局unload form2
有时挺好使
可我又尝试,在打开其他form的情况下,点退出,这时只退出了form16和form2
别的新开的form还是退出不了
没有什么语句可以直接退出工程么???只能关闭窗体??? --------------------编程问答--------------------
这个...我没有mainform,呵呵,我主窗体就是form2,新手...
刚才我用您的方法在unload me下边加了一局unload form2
有时挺好使
可我又尝试,在打开其他form的情况下,点退出,这时只退出了form16和form2
别的新开的form还是退出不了
没有什么语句可以直接退出工程么???只能关闭窗体???
--------------------编程问答-------------------- Private Sub Timer1_Timer()
dim f as form
i = i + 1
If i = 2 Then
unload me
for each f in forms 'end '或者 Unload Mainform
unload f
next
End If
End Sub
--------------------编程问答--------------------
唉呀妈呀,神人呀! --------------------编程问答-------------------- 问题如果解决，结贴吧 --------------------编程问答-------------------- Dim i As Byte '通用
Private Sub Timer1_Timer()
i = i + 1
If i = 2 Then
unload me 改为 end 就可以了
End If
End Sub
Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub --------------------编程问答-------------------- End语句可以结束整个App，缺点是好像不负责资源释放，会造成内存浪费。 --------------------编程问答--------------------
C看多了吧,呵呵
--------------------编程问答-------------------- 你为什么要这样做呢 --------------------编程问答-------------------- 禁用End语句
Google: VB "End语句" site:topic.csdn.net
补充：VB , 控件
