若要在64位系统上运行，怎么修改？

gdhdlzy

zpy2

Declare PtrSafe Function SetTimer Lib "user32" Alias "SetTimer" (ByVal hWnd As LongPtr, ByVal nIDEvent As LongPtr, ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As LongPtr


http://e.anyoupin.cn/EData/?p=tools.ceshi.index/win32api

可以参考一下这里

gdhdlzy

兄弟，我不会，你帮忙在附件里改一下吧。谢谢！

shenjianrong163

先试下这样:

#If VBA7 Then
    ' user32.dll 中的设定定时器
    Declare PtrSafe Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimeFunc As Long) As Long
    ' user32.dll 中的删除定时器
    Declare PtrSafe Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
#Else
    ' user32.dll 中的设定定时器
    Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimeFunc As Long) As Long
    ' user32.dll 中的删除定时器
    Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
#End If

gdhdlzy

帮我在附件里做一下吧？谢谢！

shenjianrong163

gdhdlzy 发表于 2023-5-9 14:11
帮我在附件里做一下吧？谢谢！

试试这个插件中的“计时器”功能，有正计时、倒计时和显示系统时间
PPT小秘书 https://kdocs.cn/l/cqK5o5cOF0X4