[已解决]如何用代码 来触发控件的单击事件，而不去真的单击它

qlh1978

比如：窗体上有个 Lable1 控件，该控件设置了单击事件
希望能使用一个过程代码来触发该控件的单击事件，而不是真的在窗体上单击。

最佳答案

月排行榜 / 总排行榜

老司机带带我

2016-7-3 20:28

把窗体中的Private Sub Label1_Click改成Public Sub Label1_Click即把私有事件改成公共事件，然后就可以在其他模块中进行调用，调用格式如下：

1. Sub xx()
   
2.     Call UserForm1.Label1_Click
   
3. End Sub

复制代码

跳转到最佳答案楼层

老司机带带我

把窗体中的Private Sub Label1_Click改成Public Sub Label1_Click即把私有事件改成公共事件，然后就可以在其他模块中进行调用，调用格式如下：

1. Sub xx()
   
2.     Call UserForm1.Label1_Click
   
3. End Sub

复制代码

qlh1978

老司机带带我 发表于 2016-7-3 20:28
把窗体中的Private Sub Label1_Click改成Public Sub Label1_Click即把私有事件改成公共事件，然后就可以在其 ...

已经测试通过，特此感谢
另外，还有一个延伸问题带解决
就是说，如果多个同类控件是通过类的方式来设置单击事件的话，又如果在过程成临时调用某个指定控件的事件
详见附件，根据此前独立事件的案例尝试了几种写法，但是均告失败，恳请再次指教！

老司机带带我

qlh1978 发表于 2016-7-4 12:24
已经测试通过，特此感谢
另外，还有一个延伸问题带解决
就是说，如果多个同类控件是通过类的方式来设置 ...

你的窗体中压根就没有Label2_Click事件，怎么运行？另外两个用类模块实现，类模块我不怎么熟悉，回头研究下你这个！

qlh1978

老司机带带我 发表于 2016-7-4 13:41
你的窗体中压根就没有Label2_Click事件，怎么运行？另外两个用类模块实现，类模块我不怎么熟悉，回头研究 ...

是的，除了Label1有独立的事件外，其他5个是类的事件，现在就是希望调用类事件