[分享]【附件已上传】VBA可用的自定义Timer控件

Moneky · 发表于 2008-6-4 22:23

在ExcelVBA中某些时候需要间隔几秒自动执行一些代码，目前大多数代码都是采取的API函数（SetTimer）和循环+DoEvents两种方法，不过在VB中就可以直接在窗体上加入一个Timer控件，不幸的是VBA中似乎不能用（也许是我没有找到方法）。
虽然用SetTimer也可以完成同样的工作，但用API总是感觉比控件更麻烦，于是用VB6写了一个自定义控件将VB6自带的Timer控件移植到了VBA中（其实就是单独提取出来的形式），现在可以像在VB中使用Timer一样在VBA的窗体中使用vbaTimer了（先要注册控件），然后只需要在vbaTimer的Timer事件中写入需要重复执行的代码就可以了。避免了API的苦涩难懂
下面的附件中包含了3个文件，一个是演示Excel文件，一个是控件，另一个是注册控件的bat文件。打开演示文件前先要注册控件
该控件创建过程已经分享，链接http://club.excelhome.net/viewth ... =&page=1#337291

[ 本帖最后由 Moneky 于 2009-8-26 19:50 编辑 ]

Moneky · 发表于 2008-6-5 08:54

历尽千辛万苦终于把附件传上来了

M3300 · 发表于 2008-7-9 15:43

非常感谢！！！

清风_ll · 发表于 2008-7-10 10:12

好用.

如果楼主有时间的话,是否可以详细介绍一下制作过程,也让大家学习学习.谢谢

Moneky · 发表于 2008-7-12 07:40

QUOTE:

以下是引用清风_ll在2008-7-10 10:12:02的发言：

好用.

如果楼主有时间的话,是否可以详细介绍一下制作过程,也让大家学习学习.谢谢

居然得到版主肯定，等两天就把过程发上来。

weide_yang · 发表于 2008-7-12 09:13

请教楼主，如果要以秒为激发定时器的时间单位，应怎样修改代码，谢谢！

jilijun · 发表于 2008-7-12 11:54

真不错，期待制作过程的发布

sunsoncheng · 发表于 2008-7-12 12:02

一直在用ONTIME,这个先做个记号吧

Moneky · 发表于 2008-7-12 12:20

根据公式换算，1s=1000ms

Moneky · 发表于 2008-7-12 13:44

该控件创建过程已经分享，链接：http://club.excelhome.net/viewthread.php?tid=337291&extra=&page=1#337291

		自动登录	找回密码
密码			免费注册

[分享] [分享]【附件已上传】VBA可用的自定义Timer控件