VBA制作定时器

时间:2024-10-16 09:29:40

1、打开Access数据库,新建一个空的数据库。

VBA制作定时器

2、点击工具栏创建-->窗体设计。

VBA制作定时器

3、窗体的具体布局如图所示。Label1的初始值设置为0.

VBA制作定时器

4、找到窗体属性,找到计时器间隔设醅呓择锗置参数为1000并选择计时器触发属性为【事件过程】,点击后面的 "..."按钮进入事件过程编写代码。

VBA制作定时器

5、定义flag类型为布尔值类型变量。timer事件中,当flag为真时,Label1标签加一

VBA制作定时器

6、找到开始计时按钮的点击事件,进入代码编辑,设置flag=true。

VBA制作定时器
VBA制作定时器

7、停止计时按钮点击事件,设置flag=false

VBA制作定时器

8、点击窗体视图进行测试。点击开始计时按钮从0开始计时,点击停止计时按钮就会停止。

VBA制作定时器
© 手抄报圈