一个应用定时器的例子

prome3

在VBA的用户窗体中使用定时器（Timer）一般有两种方法，其一是用Application.OnTime，这种方法不可避免地需要显式地调用自身，不够优雅；第二种方法是子类化用户窗体，在窗口过程中处理WM_TIMER消息，但如果仅为实现定时器功能而拖慢其它消息的处理速度实在没必要。最近偶然注意到在SetTimer中可以指定回调函数，一举解决上述两种方法所存在的问题，这就很有意思了。


查看了网上很多资料，很多都是10多年前写的，没有兼容64位环境，就算有，也没有用在窗体上，于是决定自己写一个。


这只是一个极简的例子，写出来让大伙儿看看有没有什么更好的写法或者做法，只做讨论交流。

aman1516

https://blog.csdn.net/xiaoyao961/article/details/131148204

prome3

aman1516 发表于 2023-9-20 20:58
https://blog.csdn.net/xiaoyao961/article/details/131148204

请问这是版主自己写的还是转发的？

prome3

2楼所发链接里面的代码，只能在Microsoft Office 2010以上版本的32位系统中运行。在2010以下版本的Office中皆不能运行，在Microsoft Office 2010以上版本的64位系统中不能运行。在64位环境中运行必会导致Office软件崩溃。

而我发的这段代码能在任何支持VBA的Office软件版本中运行，不管是32位的还是64位的。

caiyu93

vba是阉割了settimer,vb6是本来就自带的.要实现完美的计时功能就是回调settimer网上的方法有很多,细心找能找到,特别是c#的方法可以多去参考参考

prome3

caiyu93 发表于 2023-9-26 07:10
vba是阉割了settimer,vb6是本来就自带的.要实现完美的计时功能就是回调settimer网上的方法有很多,细心找能 ...

多谢补充。

我就是在看了网上很多资料之后，才写的这个例子。但估计别人不会和我一样这么有耐心地去查那些资料了。上面2楼所发链接里面那个文章开头写着“全球首发，独创”，这句话就说明那文章写那些代码的人压根没有先去查阅已有资料，要不然也不会写着“独创”了。

当然，说”细心找也能找到“也没必要，因为一搜一大把。

SetTimer是一个系统提供的API，换句话说，不管是用什么编程语言，要实现定时功能都得调用这个API，用C语言也好，C#也好，Java也好，或者VBA，本质都是一样的。若说最直接的方式，还是用C++来实现。

lujkhua

还有一种方法：VB制作Timer控件供VBA用

prome3

lujkhua 发表于 2023-12-29 08:10
还有一种方法：VB制作Timer控件供VBA用

久未回复，十分抱歉。我有好几年没碰VB了，之前用的还是VB6…VB6的Timer控件我还是有很深印象的，但是当时用VB6的时候没用VBA，一时半会儿不知道该怎么回。

不过，最近发现一个有趣的东西，叫 CommonControls (Replacement of the MS common controls)，是国外一个叫 Krool 的人做的，而且最近还在活跃更新。我之前尝试把这个用在VBA里面，没成功。其网站链接如下：
https://www.vbforums.com/showthread.php?698563-CommonControls-(Replacement-of-the-MS-common-controls)

大佬能不能看一下怎么弄，发个帖子出个教程什么的