如何编写在每隔一定时间就运行一段程序?

kaoruhide 2003-12-12 12:04:43
比如说到某个特定的时间,就要执行一段程序。
请指教
...全文
21 4 打赏 收藏 举报
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
lxcc 2003-12-12
设置timer1的Interval=1000
  • 打赏
  • 举报
回复
lxcc 2003-12-12
Private Sub Timer1_Timer()
Dim strCurTime As String
strCurTime = Format(CStr(Time), "hh:mm:ss")

If strCurTime = "08:00:00" Or strCurTime = "12:30:00" Or strCurTime = "18:30:00" Then
'DO Something!
End If
End Sub
  • 打赏
  • 举报
回复
海牛 2003-12-12
用Timer控件,将Interval设置短一点。

在Timer控件的Timer1_Interval事件里面判断当前时间是否>=指定时间,如果是,就执行程序,并将Timer控件置为无效。
  • 打赏
  • 举报
回复
ahbbnimor 2003-12-12
1 用Timer控件
2 还可以用api调用系统时间,或者直接用vb的函数
例:
dim a as long
dim b as long
a=timer 'timer 是取从午夜开始到现在的秒数
b = Timer
Do
DoEvents
b = Timer

If b - a > 10000 Then
'你想干什么就在这里做吧(不要做犯法的事哦)
End If

Loop
至于这段代码放在哪里,你就自己看着办吧.
  • 打赏
  • 举报
回复
相关推荐
发帖
VB基础类
加入

7592

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2003-12-12 12:04
社区公告
暂无公告