7,763
社区成员
发帖
与我相关
我的任务
分享
Option Explicit
Private Sub CmdFind_Click()
'这里面是你的查询代码,我无从知晓
End Sub
Private Sub Form_Load()
Timer1.Interval = 60000
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Call CmdFind_Click
End Sub
Option Explicit
Dim lngP As Long
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Sub Form_Load()
Timer1.Interval = 500
lngP = 0
End Sub
Private Sub Timer1_Timer()
'每600秒执行一次
If GetTickCount - lngP >= 600& * 1000 Then
'此处键入处理代码
'更新时间间隔起点
lngP = GetTickCount
End If
End Sub