如何让一个工程在运行10秒之后自动结束 - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → 如何让一个工程在运行10秒之后自动结束

标题：如何让一个工程在运行10秒之后自动结束

只看楼主

kaka_vb

等　级：新手上路
帖　子：2
专家分：0
注　册：2008-11-26

楼主

问题点数：0 回复次数：5

如何让一个工程在运行10秒之后自动结束

如题
希望各位高手能指点一下
谢谢

搜索更多相关主题的帖子: 结束　工程　自动　运行　

2008-11-26 22:30

逐日

等　级：新手上路
威　望：5
帖　子：117
专家分：2
注　册：2008-9-22

第 2 楼

得分:0

Private Sub Form_Load()
Timer1.Interval = 10000
End Sub

Private Sub Timer1_Timer()
Unload Me
End Sub

2008-11-27 08:24

jxyga111

来　自：中華人民共和國
等　级：贵宾
威　望：33
帖　子：6015
专家分：895
注　册：2008-3-21

第 3 楼

得分:0

用timer控件

烈焰照耀世界,斌凍凍千萬裏

2008-11-27 08:54

jyp19851119

等　级：新手上路
帖　子：157
专家分：0
注　册：2008-2-26

第 4 楼

得分:0

Private Sub Form_Load()
Timer1.Interval = 10000
End Sub

Private Sub Timer1_Timer()
Unload Me
End Sub
顶~~~~~~~~~~~~~~~楼上
也可以这样
Private Sub Form_Load()
Timer1.Interval = 1000
Private Sub Timer1_Timer()
dim a as Static
a=a+1
if a=10 then
Unload Me
End if
End Sub

2008-11-27 09:24

jyp19851119

等　级：新手上路
帖　子：157
专家分：0
注　册：2008-2-26

第 5 楼

得分:0

我丢了个End Sub

2008-11-27 09:25

kaka_vb

等　级：新手上路
帖　子：2
专家分：0
注　册：2008-11-26

第 6 楼

得分:0

谢谢!
谢谢!!