[求助]PowerPoint 中的VBA中怎样才能支持 Application.OnTime？

stanleypan

关于TIMER(定时器), DOS时代是没有进程线程等概念的，那时候要想做到定时真是有些麻烦.通常的做法是死循环不断监测时间，发现时间到了就做特定的事情或截取系统的时钟中断.

Windows是个伟大的进步, 系统提供了Timer支持. Win32 API中有个SetTimer函数，可以创建一个定时器，这个定时器会定时产生消息WM_TIMER调用.

VB中的TIMER的VBA中的TIMER 的源代码都是用到了SetTimer.关于这一点.我记得BUTTON兄几年前的帖子中有提过. 请参考:(1.VBA定时器的使用.2.API函数)

http://www.officefans.net/cdb/viewthread.php?tid=23280&extra=page%3D5

lss001

Declare PtrSafe Function SetTimer Lib "user32" (ByVal hWnd As Long, _
    ByVal a As Long, ByVal b As Long, ByVal c As Long) As Long
Declare PtrSafe Function KillTimer Lib "user32" _
    (ByVal hWnd As Long, ByVal a As Long) As Long
Dim MyTimer As Long, ds As Object, n
Sub sTimer()
    n = 1: MyTimer = SetTimer(0, 0, 1000, AddressOf sNow) '每秒执行一次
End Sub
Sub sNow(ByVal hWnd As Long, ByVal a As Long, ByVal b As Long, ByVal c As Long)
    If n = 1 Then clearAll Else KillTimer 0, MyTimer '执行程序clearAll
    DoEvents
End Sub
Sub nStop()
    n = 0 '停止执行程序
End Sub

dongdonggege

lss001 发表于 2020-3-19 14:11
Declare PtrSafe Function SetTimer Lib "user32" (ByVal hWnd As Long, _
    ByVal a As Long, ByVal b  ...

这个程序会死，我试了多次，但没找到原因。我已经有了新的程序，正在加你，那个东东哥就是我。

dongdonggege

lss001 发表于 2020-3-19 14:11
Declare PtrSafe Function SetTimer Lib "user32" (ByVal hWnd As Long, _
    ByVal a As Long, ByVal b  ...

《光速动画，为什么读取不了》，麻烦老师出手帮助，谢谢。
https://club.excelhome.net/thread-1650290-1-1.html

dongdonggege

lss001 发表于 2020-3-19 14:11
Declare PtrSafe Function SetTimer Lib "user32" (ByVal hWnd As Long, _
    ByVal a As Long, ByVal b  ...

老师，我有个2003经典菜单不会，Excel的做出来了，但是PowerPoint的做不出来，麻烦帮帮我，谢谢了。
https://club.excelhome.net/thread-1654181-1-1.html

lss001

dongdonggege 发表于 2023-2-23 10:15
老师，我有个2003经典菜单不会，Excel的做出来了，但是PowerPoint的做不出来，麻烦帮帮我，谢谢了。
htt ...

已经阅读回复请参考原帖

mmwwdd

ppt用vba会更强大

dongdonggege

mmwwdd 发表于 2023-2-26 20:42
ppt用vba会更强大

老师，能帮帮我吗？