编程论坛 » VB6论坛 » 问题已解决2

菜鸟VB 发表于 2008-5-11 20:16

问题已解决2

怎样才能实现程序运行一段时间后自动关闭呢？
比如一个程序打开后过了5分钟自动关闭
这样的代码该怎么写呢？
跪求高手帮忙想想

[[it] 本帖最后由 菜鸟VB 于 2008-5-11 21:17 编辑 [/it]]

leilei88 发表于 2008-5-11 20:21

晕。。这么简单的东西还需要高手解答啊。。VB里不是有timer控件吗？那个就可以实现

菜鸟VB 发表于 2008-5-11 20:26

我知道有这个控件，但代码怎么写啊？

leilei88 发表于 2008-5-11 20:33

Private Sub Form_Load()
    Timer1.Enabled = True
    Timer2.Enabled = False
    Timer3.Enabled = False
    Timer4.Enabled = False
    Timer5.Enabled = False
    Timer1.Interval = 60000
    Timer2.Interval = 60000
    Timer3.Interval = 60000
    Timer4.Interval = 60000
    Timer5.Interval = 60000
End Sub

Private Sub Timer1_Timer()
    Timer2.Enabled = True
    Timer1.Enabled = False
End Sub

Private Sub Timer2_Timer()
    Timer2.Enabled = True
    Timer1.Enabled = False
End Sub

Private Sub Timer3_Timer()
    Timer2.Enabled = True
    Timer1.Enabled = False
End Sub

Private Sub Timer4_Timer()
    Timer2.Enabled = True
    Timer1.Enabled = False
End Sub

Private Sub Timer5_Timer()
    End
End Sub

定义5个timer控件，因为timer控件只能设置65536毫秒，约65秒

菜鸟VB 发表于 2008-5-11 20:54

我晕
这代码什么意思啊
测试没反应的啊

leilei88 发表于 2008-5-11 21:00

啊..VB你一点都不懂啊..
你所说的程序是什么程序？外部程序还是有代码的VB程序？

leilei88 发表于 2008-5-11 21:01

啊..VB你一点都不懂啊..
你所说的程序是什么程序？外部程序还是有代码的VB程序？

菜鸟VB 发表于 2008-5-11 21:06

是有代码的内部程序吧。。。。内部跟外部有啥关系啊

[[it] 本帖最后由 菜鸟VB 于 2008-5-11 21:08 编辑 [/it]]

菜鸟VB 发表于 2008-5-11 21:16

晕
我想得太复杂了
问题已经解决了
其实也很简单
用下面的代码就行了
Private Sub Timer1_Timer()
End
End Sub

hxfly 发表于 2008-5-11 21:18

一个timer就应该可以吧？
Dim i As Integer
Private Sub Form_Load()
    Timer1.Enabled = True
    Timer1.Interval = 60000
    i=0
End Sub
Private Sub Timer1_Timer()
    If i <= 5 Then
        i = i + 1
    Else
        End
    End If
End Sub

zougonghua 发表于 2008-5-12 12:07

直接把Interval 属性设成300000,然后就timer事件中写个end就可以了

leilei88 发表于 2008-5-12 13:07

[tk05] 5分钟的话应该是这样的吧~

Dim i As Integer
Private Sub Form_Load()
    Timer1.Enabled = True
    Timer1.Interval = 60000
    i=1
End Sub
Private Sub Timer1_Timer()
    If i < 5 Then
        i = i + 1
    Else
        End
    End If
End Sub

刨子头 发表于 2008-5-12 13:46

可以这样。
也可以Timer1.Interval = 300000，而再不需设置一个全局变量i

查看完整版本: 问题已解决2