以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]Label控件如何引用添加点击事件  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=174836)

--  作者:haotinghua
--  发布时间:2022/2/9 7:55:00
--  [求助]Label控件如何引用添加点击事件
Label控件本身有点击事件属性
但是在其余地方想通过代码控制点击,对应属性应该怎么写呢
Dim la As WinForm.Label = Forms("XXX").Controls("Label1")
la.????  如何添加点击事件

--  作者:有点蓝
--  发布时间:2022/2/9 8:36:00
--  
没有这种用法,只能是把代码整个复制到其它需要使用的地方。或者是把代码放到自定义函数里,给需要的地方调用
--  作者:xndd
--  发布时间:2022/2/9 8:52:00
--  

PerformClick

模拟单击此按钮。

示例

假定窗口有两个按钮,单击按钮1执行A操作,单击按钮2执行A、B两项操作,我们可以将按钮2的Click事件代码设置为:

Dim btn As WinForm.Button = Forms("窗口1").Controls("Button1")
btn.PerformClick()
\'B操作代码

这样就无需重复在两个按钮中编写A操作的代码,只需在按钮1中编写一次即可。


--  作者:有点蓝
--  发布时间:2022/2/9 8:55:00
--  
Label控件是没有PerformClick的