VBA下完全功能的Timer类

winland · 发表于 2010-9-23 21:33

大家都知道，VBA中没有像VB那样提供Timer控件，而是用一个简单的onTime方法来实现定时功能。论坛里也有一些使用API函数构造的Timer类，但是因为AddressOf函数的问题，有些Timer类只能实现一个实例运行。

Joforn之前在趣味作品大赛里分享了一个扫雷游戏。里面使用了大量的API函数构造一个完美的Windows窗体程序，其中也使用了Paul Caton的类模块Call Back函数。有了这个类模块CallBack函数，便可以在类模块中实现AddressOf函数的功能。

根据这个方法，做了一个Timer类，实现了和VB中Timer控件完全一样的功能。
属性：
Enabled：Boolean类型；设为True，启动计时器；设为False，则关闭计时器，默认为False。
Interval：Long类型；计时器间隔时间，单位为毫秒，默认为0。
事件：
Timer

有兴趣的试试看。注意在关闭文件之前需要停止Timer类，否则会导致Excel崩溃。

TimerClass_FullFunction.zip (30.6 KB, 下载次数: 4673)

lb_bn · 发表于 2010-9-23 21:38

谢谢版主分享，学习学习。

liuyan819 · 发表于 2010-9-23 21:47

谢谢版主分享啊,收藏学习

lhw78535 · 发表于 2010-9-23 21:58

谢谢分享！

HHAAMM · 发表于 2010-9-23 22:09

谢谢八版分享！！
可惜是api，不去理解了，用到时只管拿来用了

HHAAMM · 发表于 2010-9-23 22:16

vba里没有Timer控件真的是个遗憾

俺的几个小游戏可以用这个改造下了

[ 本帖最后由 HHAAMM 于 2010-9-23 22:22 编辑 ]

taller · 发表于 2010-9-23 22:53

谢谢文版分享，解决了VBA中的一个大难题。

gfs57 · 发表于 2010-9-23 22:58

谢谢版主分享，慢慢学习，慢慢消化。

HHAAMM · 发表于 2010-9-23 23:14

控件数组用类搞定，论坛里多是对窗体里控件实现的
http://club.excelhome.net/viewth ... p;page=1#pid4216085
帖子的5楼6楼是对表中的控件实现了控件数组，拿出来分享

bibisin · 发表于 2010-9-24 01:15

原先学过Visual Foxpro的窗体，对其中的Timer之强大早有体会，感谢winland自主的分享，现在在VBA中也能用了，呵呵

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

[分享] VBA下完全功能的Timer类

评分

回复 1楼 winland 的帖子