VB中如何纯粹是用代码创建一个Timer,让循环每1分钟执行一次？:(riluo)(灌水之地)

Question

可以阿，如下：Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
do while     your code
     sleep(1000)
loop

Answer 1

上面写错了，应该是sleep(1000*60)才对阿

Answer 2

看来是不行了，除非你要有一个TIMER控件作为基础，然后才可以用程序创建新的。

Answer 3

VB高精度计时器编程的讨论:
http://www.applevb.com/art/timing.htm
纯API

Answer 4

你可以用settimer 和killtimer来实现Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Longprivate timerid as long private function CreateMyTimer( palTimeInterval as long) as boolean timerid = SetTimer(0, 0, 100, AddressOf MyTimerEvent)
 
 If timerid  Then createmytimer=true
end functionprivate sub KillMyTimer()
'但你不需要顶事器时，在这里把他亏掉
 KillTimer 0, timerid
end sub
'以下的程序必须放在moudle中，否则出错
public sub MyTimerEvent()
'这就是你需要定时触发的过程
 '
end sub

Answer 5

不好意思，修正一下
private function CreateMyTimer( palTimeInterval as long) as boolean
 'paltimerinterval是你想要的定时间隔
 timerid = SetTimer(0, 0, paltimerinterval, AddressOf MyTimerEvent)
 
 If timerid  Then createmytimer=true
end function