怎样用api 实现timer控件功能？在线等待… … …

Question

许多机器里面都没有vb的控件
所以  许多功能用api实现 兼容性会比较好。
谁知道请帮个忙吧……

Answer 1

谁知道settimer怎么用……
给个我能看懂的简单例子就行，谢谢

Answer 2

我记得timer控件是VB本身自带的//许多机器里面都没有vb的控件
//所以  许多功能用api实现 兼容性会比较好。
不明白

Answer 3

就是说  不用安装程序 直接用exe的……

Answer 4

SetTimer(0&, 0&, 100, AddressOf TimerProc)Sub TimerProc(ByVal hwnd As Long, ByVal uMsg As Long, _
                     ByVal idEvent As Long, ByVal dwTime As Long)
    '这里写你的代码就可以了
End Sub

Answer 5

timer控件打包本身就不用带控件文件.

Answer 6

'in module1
Option ExplicitPrivate Declare Function SetWindowText Lib "user32.dll" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As LongPublic Sub TimerProc(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
    SetWindowText hwnd, CStr(Time)
End Sub'in Form1
Option ExplicitPrivate Declare Function KillTimer Lib "user32.dll" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Private Declare Function SetTimer Lib "user32.dll" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As LongPrivate Sub Form_Load()
    SetTimer Me.hwnd, 0, 1000, AddressOf TimerProc
End SubPrivate Sub Form_Unload(Cancel As Integer)
    KillTimer Me.hwnd, 0
End Sub

Answer 7

呵呵！Timer控件是VB内置控件，含在Msvbvb60.dll中，如果你的Timer控件不能用，那你的VB程序根本就不能运行，API也调用不了的！
如果连VB内置控件都想自已做，建议转学VC。

Answer 8

homezj(小吉) 正确。
VB 常识要了解，否则不如不用。

Answer 9

Option ExplicitPrivate Sub Form_Load()
Me.Show
Dim mTime As Long
mTime = Timer
Do While Timer < mTime + 5
DoEvents
Me.Caption = CLng(Timer - mTime)
Loop
End
End Sub