内置函数
Access利用Eval函数，简单实现回调机制
2017-01-08 21:53:39

作者：盗梦-Access中国

有时候，我们很多代码结构很类似，前后都一样，就中间不一样。提取不了为一个公共函数直接调用，不得不写成很多重复代码如果用回调方式就能轻松解决问题但vb，vba中实现回调要通过一个API函数，十分不方便最近研究发现，可以利用Eval函数的特性(可以执行文本表达的代码)，简单实现回调机制优点：容易理解和使用缺点：窗体的函数调用不到           没有返回值（可以通过公共临时变量得到返回值）           传递参数不方便           调用的函数或者过程必须是公共的附上我研究的几个模型，包括有无参数和返回值1、示例（无参数，无返回值）

  1. '说明：无参数传递，没返回值

  2. '参数：funcName,函数表达式(字符串)。要调用的函数名，函数名后一定要加括号

  3. '示例：funcEvalEasy("funcTestEasy()")

  5. Public Function funcEvalEasy(funcName As String)

  6.     '其他代码过程

  7.     '...

  8.     '回调函数部分

  9.     MsgBox "开始执行函数" & funcName

  10.     Eval funcName

  11. End Function

  13. Public Function funcTestEasy()

  14.     MsgBox "我是测试函数，用于测试回调"

  15. End Function

复制代码

2、示例（有参数，无返回值）

  1. '说明：有参数传递，没返回值

  2. '参数：funcName,函数表达式(字符串)。要调用的函数名，函数名后一定要加括号

  4. '方法1：在funcName，函数表达式中就写好参数

  5. '示例：funcEvalPara1("funcTestPara(1)")

  6. '特点：较为灵活

  7. Public Function funcEvalPara1(funcName As String)

  8.     '其他代码过程

  9.     '...

  10.     '回调函数部分

  11.     MsgBox "开始执行函数" & funcName

  12.     Eval funcName

  13. End Function

  15. '方法2：在执行回调的函数里面合并一个函数表达式

  16. '示例：funcEvalPara2(1,"funcTestPara")   '为了方便合成函数表达式，就不加括号

  17. '特点：有什么参数，一目了然，就是不灵活

  18. Public Function funcEvalPara2(i As Integer, funcName As String)

  19.     '其他代码过程

  20.     '...

  21.     '回调函数部分

  22.     MsgBox "开始执行函数" & funcName

  23.     Eval funcName & "(" & i & ")"

  24. End Function

  26. Public Function funcTestPara(i As Integer)

  27.     MsgBox "我是测试函数，用于测试回调" & vbCrLf & "你传进来的数字是" & i

  28. End Function

  30. '方法3：利用公共变量传递参数（这个可以参考下面的示例，一样道理，这里就不赘述）

复制代码

3、示例（有返回值）

  1. Public intEvalReturn As Integer '临时变量，用于保存返回值

  3. '说明：有返回值

  4. '参数：funcName,函数表达式(字符串)。要调用的函数名，函数名后一定要加括号

  5. '示例：funcEvalReturn("funcTestReturn(1)")

  7. Public Function funcEvalReturn(funcName As String) As Integer

  8.     '其他代码过程

  9.     '...

  10.     '回调函数部分

  11.     MsgBox "开始执行函数" & funcName

  12.     Eval funcName

  14.     '获取返回值

  15.     MsgBox "返回结果" & intEvalReturn  '弹窗显示

  16.     funcEvalReturn = intEvalReturn    '返回结果

  17. End Function

  19. Public Function funcTestReturn(i As Integer)

  20.     MsgBox "我是测试函数，用于测试回调" & vbCrLf & "你传进来的数字是" & i & vbCrLf & "将执行计算返回一个值"

  21.     '计算

  22.     i = i + 1

  23.     '返回

  24.     intEvalReturn = i

  25. End Function

复制代码

 利用Eval函数简单实现回调机制.rar (18.27 KB, 下载次数: 7) 追加更新：2015-01-21: 多谢todaynew版主告知，Eval本身可以返回值。例如Eval("1+1")，返回2。                     那就不用像上面那么麻烦。详请见6楼。

todaynew版主补充

其实不必设公共变量，Eval是可以返回值的。Public Function getDate(ByVal y As Integer, ByVal m As Integer, ByVal d As Integer) As Date    getDate = DateSerial(y, m, d)End FunctionPrivate Sub 确定_Click()    Me.日期.Value = Eval("getDate(" & Me.年.Value & "," & Me.月.Value & "," & Me.日.Value & ")")End Sub 委托.zip (15.3 KB, 下载次数: 8)  

首页