VB中timer的小问题,高手请留步~

Question

现在的情况~~
有个主窗体,有个"退出",代码是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窗口呀,并不能关闭整个工程,上网找了好久也没找到办法,哪位高手能指点一二~~~

Answer 1

Private Sub Timer1_Timer()
i = i + 1
If i = 2 Then
unload me
end '或者 Unload Mainform
End If
End Sub

Answer 2

这个...我没有mainform,呵呵,我主窗体就是form2,新手...
刚才我用您的方法在unload me下边加了一局unload form2
有时挺好使
可我又尝试,在打开其他form的情况下,点退出,这时只退出了form16和form2
别的新开的form还是退出不了没有什么语句可以直接退出工程么???只能关闭窗体???

Answer 3

这个...我没有mainform,呵呵,我主窗体就是form2,新手...
刚才我用您的方法在unload me下边加了一局unload form2
有时挺好使
可我又尝试,在打开其他form的情况下,点退出,这时只退出了form16和form2
别的新开的form还是退出不了没有什么语句可以直接退出工程么???只能关闭窗体???

Answer 4

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

Answer 5

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

Answer 6

End语句可以结束整个App，缺点是好像不负责资源释放，会造成内存浪费。

Answer 7

禁用End语句
Google: VB "End语句" site:topic.csdn.net