Question

VB计时器问题。。

我想做个计时器，时间一到就打开程序。可是程序却一直打开。。停止不了
高手指点下啊... 顺便再问下。怎么能做到 时间一到，程序一打开就结束计时器程序？

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

Private Sub Timer1_Timer()
Static Count As Integer
Count = IIf(Count < 120, Count + 1, 120)
If Count = 120 Then MsgBox "时间到": Timer1.Enabled = False
Shell "X:\XX.exe"
End Sub
一楼的---提示语句错误
二楼的---程序无反应，没自动打开程序
三楼的---就是X:\XX.exe一打开，计时器（生成EXE后的）自动关闭

Answer 1

Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled =True
End Sub

Private Sub Timer1_Timer()
Static Count As Integer
Count = IIf(Count < 120, Count + 1, 120)
If Count = 120 Then MsgBox "时间到": Timer1.Enabled = False
Shell "X:\XX.exe"
End '或者加unload me
End Sub

'这里end表示强制的结束进程，unload(From.hWnd )这里表示卸载指定窗体，(From.hWnd ).Hide 这里表示隐藏窗体，你可以选择使用。
'unload 和 hide语法如下：unload 窗体,或者A=unload(me)这样A不等于0的话证明卸载失败，hide如下：me.hide隐藏当前窗体，窗体.hide,隐藏名字叫窗体的窗体，隐藏归隐藏，在系统管理器还能看到，并且程序还可以继续执行，比如某些病毒``嘿嘿。

Answer 2

哈！
问题就在Shell "X:\XX.exe" 上，
你这样的话程序每1000毫秒会打开
"X:\XX.exe" 一次。

把代码修改一下：
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Static Count As Integer
Count = IIf(Count < 120, Count + 1, 120)
If Count = 120 Then MsgBox "时间到"
If Count = 120 Then Shell "X:\XX.exe"
If Count = 120 Then Timer1.Enabled =False
End Sub

这样时间一到，程序一打开就结束计时器程序
你试一试吧！

Answer 3

你的意思是要让X:\XX.exe自动结束吗？

要时间一到，程序一打开就结束计时器程序，可以在Timer1_Timer()中的Shell后加入End语句

Answer 4

计时器的Interval 设为零了它就不动了。
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Static Count As Integer
Count = IIf(Count < 120, Count + 1, 120)
If Count = 120 Then MsgBox "时间到": Timer1.Interval =0
Shell "X:\XX.exe"
End Sub

Answer 5

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

Private Sub Timer1_Timer()
Static Count As Integer
Count = IIf(Count < 120, Count + 1, 120)
If Count = 120 Then
MsgBox "时间到"
Shell "X:\XX.exe"
Timer1.Enabled = False
end if
End Sub