上次在PPT中用VBA编制了一个计时器,实现了倒计时功能,但是我觉得这个计时器不够酷炫,如果采用7段数码管显示数字,那就够COOL了。为了实现这个功能,我把任务进行了分解,今天先完成第一步,如何用VBA实现7段数码管的数字显示。
最开始,我想采用画线的方法,但是VBA不支持Picture控件,所以得另外想招。我想到一个办法,添加7个小长条的Image控件,通过控制背景颜色的方式来实现数码管的功能。
下面是源代码,加入了Timer用以控制循环,实现了从0-9的数字显示。
程序资源我已经上传到我的博客中,欢迎下载。