问题已解决2

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

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

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

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

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你一点都不懂啊..
你所说的程序是什么程序？外部程序还是有代码的VB程序？

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

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

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

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

一个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