如何用类模块使vba窗体中的同类型控件共用一段事件代码?

在用vba 窗体的过程中,有时候会遇到需要设计N个同类型的控件,如下图所示

 

 

用户窗体上有10个Label控件,每次单击Label控件都要执行一个相似的代码。

 

除了每个Label控件都写一个代码以外,还可以使用类模块设计使其共享一段代码。

 

步骤如下:

1.插入一个类模块,重命名为”clsForm”

 

2.在类模块中插入如下代码:

 

 

3.插入一个标准模块,输入如下的代码:

 

 

4.在用户窗体的启动事件中输入如下的代码:

 

 

经过以上4个步骤,就使得10个标签控件同时响应一个事件了,就可以单击任意一个标签控件,就可以弹出这个标签的名称了。

       

发表评论