Office中国论坛/Access中国论坛

标题: [原创技巧]通用的调用控件事件的一种方法 [打印本页]

---

作者: tmtony    时间: 2014-10-26 09:25
标题: [原创技巧]通用的调用控件事件的一种方法

通用的调用控件事件的一种方法(原创)

---

问题描述:

我们是否有时需要调用控件的单点事件,双击事件.
但一般我们要找到控件单击或双击事件的具体名称,然后在代码中写死
如
Call  cmdHelp_Click   
Call  cmdAdd_DoubleClick   

解答: 但有一种比较通用的方法

1. 
   
2. Dim ctl As Control
   
3. Dim varTemp As Variant
   
4. dim strCtrName as string '控件名变量
   
5. strCtrName ="cmdHelp"
   
6. 
   
7. Set ctl = me.controls(strCtrName)
   
8. If (Left(ctl.OnClick, 1) = "=") Then   '如果控件的单击是调用的是事件 前面有=符号
   
9.      varTemp = Eval(Mid(ctl.OnClick,2))
   
10. Else                                                   '如果控件的单击是调用的是宏
    
11.      DoCmd.RunMacro ctl.OnClick
    
12. End If

复制代码

---

作者: zhuyiwen    时间: 2014-10-26 13:46
呵呵，高明，赞一个

---

作者: zhidao    时间: 2014-10-26 17:54
绝对的支持

---

作者: purplerose    时间: 2016-4-8 10:43
不愧是顶尖人物呀，赞一个

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3