返回列表下一主題上一主題發帖

64位元系統使用Application物件的SetTimer API函數出現問題解決辦法

jpu

小學生 Rank: 1

帖子: 1
主題: 1
精華: 0
積分: 3
點名: 0
作業系統: window 7
軟體版本: office 2010
閱讀權限: 10
性別: 男
註冊時間: 2013-9-29
最後登錄: 2013-9-30

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2013-9-29 19:14 | 只看該作者

64位元系統使用Application物件的SetTimer API函數出現問題解決辦法

Application物件的SetTimer API函數在32位元系統使用時正常，但在64位元系統下使用會出現錯誤，
解決方式如下:
將原始碼:
Option Explicit
Public Declare PtrSafe Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long, _
ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Public Declare PtrSafe Function KillTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long) As Long
.......
改成如下即可
Option Explicit
Public Declare PtrSafe Function SetTimer Lib "user32" (ByVal hWnd As LongPtr, ByVal nIDEvent As LongPtr, _
ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As LongPtr
Public Declare PtrSafe Function KillTimer Lib "user32" (ByVal hWnd As LongPtr, ByVal nIDEvent As LongPtr) As LongPtr
.......
各位先進可以試試看。