64位元系統使用Application物件的SetTimer API函數出現問題解決辦法
- 帖子
- 1
- 主題
- 1
- 精華
- 0
- 積分
- 3
- 點名
- 0
- 作業系統
- window 7
- 軟體版本
- office 2010
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2013-9-29
- 最後登錄
- 2013-9-30
|
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
.......
各位先進可以試試看。 |
|
|
|
|
|
|
|
發表於 2013-9-29 19:14
| 
