[原创技巧]通用的调用控件事件的一种方法

tmtony

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

---

问题描述:

我们是否有时需要调用控件的单点事件,双击事件.
但一般我们要找到控件单击或双击事件的具体名称,然后在代码中写死
如
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

呵呵，高明，赞一个

zhidao

绝对的支持

purplerose

不愧是顶尖人物呀，赞一个