关于SetTimer函数！在64位运行的问题

mutiantong

我想做一个数字秒表

1. 
   

复制代码

1. Option Explicit

复制代码

'窗口中的代码
Private Sub CmdStart_Click()
    timeX = 0
    iTimerID = SetTimer(0, 0, 100, AddressOf OnTimer)
End Sub

Private Sub CmdStop_Click()
    Call KillTimer(0, iTimerID)
End Sub

Private Sub UserForm_Terminate()
    Call KillTimer(0, iTimerID)
End Sub


错误的情况是：

mutiantong

1. Option Explicit
   
2. Public Declare PtrSafe Function SetTimer Lib "user32" (ByVal hWnd As LongPtr, ByVal nIDEvent As LongPtr, _
   
3.                 ByVal uElapse As LongPtr, ByVal lpTimerFunc As LongPtr) As LongPtr
   
4. Public Declare PtrSafe Function KillTimer Lib "user32" (ByVal hWnd As LongPtr, ByVal nIDEvent As LongPtr) As LongPtr
   
5. Public iTimerID As Long, timeX As Single

复制代码

1. Public Sub OnTimer()
   
2. 
   
3.     timeX = timeX + 0.1
   
4.     UserForm1.TextBox1 = Format(timeX, "0.0")
   
5. End Sub

复制代码

1. Sub ShowUserForm()
   
2.    UserForm1.Show
   
3. End Sub
   

复制代码

mutiantong

上面那个是模块里面的代码，编译没问题。在64的系统里面

wpxxsyzx

http://msdn.microsoft.com/library/ee691831.aspx

mutiantong

wpxxsyzx 发表于 2013-8-20 17:23
http://msdn.microsoft.com/library/ee691831.aspx

非常感谢你的回答。版主

Zidone

mutiantong 发表于 2013-8-20 16:41

您好  第一段代码在64位系统中需要怎么编写呀

★宁静森林★

指定时间执行

wangyihong99

mutiantong 发表于 2013-8-21 09:25
非常感谢你的回答。版主

楼主解决了，可以发一下完整代码吗？！！！！弄了一个早上了，还是解决不了！一样的问题

wangyihong99

http://www.cnhup.com/index.php/a ... and-windows-timers/

MOY838840554

挖坟，说明一下64位要改的地方'Api兼容32位与64位
#If VBA7 Then
    Public Declare PtrSafe Function SetTimer Lib "user32" ( _
        ByVal hwnd As Long, ByVal nIDEvent As Long, _
        ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As Long

    Public Declare PtrSafe Function KillTimer Lib "user32" ( _
        ByVal hwnd As Long, ByVal nIDEvent As LongPtr) As Long
#Else
    Public Declare Function SetTimer Lib "user32" ( _
        ByVal HWnd As Long, ByVal nIDEvent As Long, _
        ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long

    Public Declare Function KillTimer Lib "user32" ( _
        ByVal HWnd As Long, ByVal nIDEvent As Long) As Long
#End If

Public Timer甲 As Long，Timer乙 As Long'用时定义定时器名称，多个就定义多个

打开定时器：Timer甲 = SetTimer(0, 1, 1000, AddressOf 过程名) 红色是定时器序号，多个的时候不能一样
   打开多个：Timer乙 = SetTimer(0, 2, 1000, AddressOf 过程名) 红色是定时器序号，多个的时候不能一样

关闭定时器：Timer甲 = KillTimer(0, Timer甲)

                   Timer乙 = KillTimer(0, Timer乙)
其他说明，0是窗口句柄，在Office中就为0不需要改，第三个参数1000是定时时间，单位是毫秒