API定时器

leolee82

 

[增加了个简陋版]

非原创

 

 

为方便使用，修改的别人的。具体见附件

Jm1mgyz1.rar (13.57 KB, 下载次数: 53)

2009-10-20 18:40 上传

点击文件名下载附件
[分享]API-定时器
下面再加个容易看懂的简陋版：

Private Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerProc As Long) As Long
Private Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long

Dim i As Long
Dim Interval As Long
Dim lngTimerID As Long
Sub test2()
Interval = 1000
lngTimerID = SetTimer(0, 0, Interval, AddressOf mysub)
End Sub

Sub mysub()
If i = 5 Then KillTimer 0, lngTimerID
Debug.Print i
i = i + 1
End Sub

[此贴子已经被作者于2009-10-20 19:36:49编辑过]

leolee82

喜欢拿来主义[em04]

雨狐

顶一下学学

雨狐

学了一下不会

瑾暟

下载学习[em01]

领风飞翔

[em02]收藏

hxqzccct

学习       [em02]

yuang68

学习一下，看看别人怎么做的

yaoxuejian

[em01]看看吧··

degydw

学习一下