VBA 时钟控件

中华少帅

废话一堆：
我自己也很久没回excelhome了，记得注册都好几年了，都没有给论坛的各位那怕一点奉献，现为大家发一个ActiveX控件，因为不知啥时候见到有人问，刚好五一，在空闲之余把这个控件制作出来了。

使用方法：
1.控件存放的位置：
（1）如果是32位Windows操作系统：
将Clock.ocx文件复制到“X:\Windows\system32\”目录下 (X代表您系统所在目录盘符，如：C:\Windowssystem32\);
（2）如果是64位Windows操作系统：
将Clock.ocx文件复制到“X:\Windows\SysWOW64\”目录下 (X代表您系统所在目录盘符，如：C:\WindowsSysWOW64\);
当然，也可以将该文件复制到其他地方。
2.控件的注册：
方法（1）如果Clock.ocx文件是复制到上述（1）（2）目录下，那么直接注册：打开【开始菜单】，【运行】，输入“regsvr32 Clock.ocx”（不含“”）；如果是其他的位置，那么您首先要复制该文件的绝对路径，同上使用regsvr32 右键粘贴。
方法（2）（如果您的系统有安装这个功能）选中Clock.ocx控件文件，右键，见下图

方法（3）我给大家一个文件进行注册。
3.控件的反注册（如果不需要该控件，或者移动文件位置，请执行此步骤）：
......
废话不多说，本文的目的不在于写如何注册控件，不懂的、有需要的可以搜一下，论坛有不少教程，这里我也会给大家一个控件反注册的文件，下面还是进入正题：
控件的演示：

打开Excel进入VBE，新建一个用户窗体


右键工具箱的空白处，选择【附件控件】选项


选择Clock Control选项，点击【确定】


红色框框就是刚添加的时钟控件，左键点击它


在刚才新建的用户窗体上拖动鼠标左键，建立一个时钟，如上图


点击红色框框的按钮，或者使用快捷键F5


如果弹出这个窗口，点击【确定】


结果如上图

演示结束。

这是一个很简单的控件，是使用C++语言写出来的，并且还加上了一些常用的属性、方法和事件。
写了不到一半，然后测试，发现这个控件在VC和VB中能正常使用各种属性、方法和事件，而在VBA中不能使用这些，只能正常显示时间，估计是接口的问题。但是时间比较仓促，控件就先写到这里。
我曾经也用VBA代码制作了一个时钟，但是会一闪一闪，效果很差。
程序的介绍：
1.使用了透明背景
2.文字背景透明
......
相信论坛里有很多高手，欢迎各位高手指点，希望各位能测试一下本控件，如果各位有什么疑问请直接指出，希望在后续能抽空完善本控件，也希望自己能写出各种控件服务大家。如果大家有需要，请联系我，因为我平时除了工作外，极少会上网，所以大家有需要的请在五一期间联系我，后续的话最好发邮件给我：964749281@qq.com
不过说句真心话，平时确实很忙，没办法，人在江湖，只为混口饭吃，现在楼价、车价...都贵的要我们穷二代的命
本文也不需要隐藏、阅读权限，本控件在Windows7 64位 MS Office2013下通过测试
最后祝大家五一快乐
时钟控件 控件注册 控件反注册.zip (9.27 KB, 下载次数: 299)

2016-5-1 18:20 上传

点击文件名下载附件

fuligonow

请问如何更改控件中文字大小呢？

fuligonow

d:\资助系统\主界面.jpg

fuligonow

这个文字大小不能更改不知怎么回事。