VB 每隔一段时间运行函数

来源：百度知道 编辑：UC知道 时间：2024/06/29 03:06:52
我怎么设置一个时间长度X，让VB每隔X分钟就执行这个函数。
我只用一个记时器，这一个记时器我还要用它在标签上显示当前的时间。如果我把时间设置成120分钟执行一次，而当前时间是每秒刷新一次的。

加一个timer控件就可以了。把这段加进去就好了。
dim jg as double=120*60 '间隔时间
Dim nowtime as date
Static oldtime As Date
Dim jgtime As TimeSpan
If oldtime .Year = 1 Then oldtime = Date.Now
nowtime = Date.Now
jgtime = nowtime - oldtime
if jgtime.TotalSeconds>jg then
'运行函数
oldtime=newtime
end if

用定时器。添加一个定时器，然后在定时器的属性中设置间隔时长，在定时器触发事件中放入你要执行的函数。

Dim i As Long
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
i = 0
End Sub

Private Sub Timer1_Timer()
i = i + 1
Me.Caption = i
If i Mod 60 = 0 Then Print "过了一分钟了。。"
End Sub

Dim n As Integer

Private Sub Timer1_Timer()
n = n + 1
Label1.Caption = Now
If n = 0.1 * 60 Then '设置时间为120 * 60(秒)
n = 0
'执行这个函数
End If
End Sub