在VB中如何实现定时执行程序

Question

现在要在VB中点击一个按钮执行一段程序，想要在以后的时间内每隔30秒再执行一次这段程序，好可以实现！ 请各位大侠帮帮忙，急用的！！ 谢谢！！！

Answer 1

Option ExplicitPrivate Sub Command1_Click()
    prog
    Timer1.Enabled = True
End SubPrivate Sub Form_Load()
    Timer1.Enabled = False
    Timer1.Interval = 30000
End SubPrivate Sub Timer1_Timer()
    prog
End Sub'执行程序段
Private Sub prog()
    Debug.Print "hello"
    '...........
    
End Sub

Answer 2

在一个timer里设置时间间隔为30秒
在timer事件中写：
shell 程序名称
end sub

Answer 3

timer，在timer里写你要执行的程序，
在设计阶段将Timer的enable设为False,在一个Button的事件中讲timer的enable设为ture.

Answer 4

to 左左:
shell后面加的不是WINDOWS可执行的EXE程序吗?
他说的执行VB中的子程序
好象不能用shell吧~~
学习中~~~~

Answer 5

用goodname008(卢培培，想学好VB) 的代码即可.

Answer 6

用goodname008(卢培培，想学好VB) 的代码即可
要实现你的要求就得用Timer1_Timer