Office中国论坛/Access中国论坛

标题: 【原创】利用Eval函数，简单实现回调机制 [打印本页]
作者: 盗梦    时间: 2015-1-21 10:15
标题: 【原创】利用Eval函数，简单实现回调机制
本帖最后由 盗梦 于 2015-1-21 11:37 编辑

有时候，我们很多代码结构很类似，前后都一样，就中间不一样。
提取不了为一个公共函数直接调用，不得不写成很多重复代码
如果用回调方式就能轻松解决问题
但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
复制代码
[attach]55485[/attach]
追加更新：
2015-01-21: 多谢todaynew版主告知，Eval本身可以返回值。例如Eval("1+1")，返回2。
                     那就不用像上面那么麻烦。详请见6楼。

作者: tmtony    时间: 2015-1-21 10:55
赞一个！ eval的确很方便。但也还有它的短处。如要将 事件的参数 传递过去 还不太方便
作者: todaynew    时间: 2015-1-21 10:59
有点类似.net中的委托
作者: 盗梦    时间: 2015-1-21 11:00
todaynew 发表于 2015-1-21 10:59
有点类似.net中的委托

就是学了.net，灵光一现
作者: 盗梦    时间: 2015-1-21 11:02
tmtony 发表于 2015-1-21 10:55
赞一个！ eval的确很方便。但也还有它的短处。如要将 事件的参数 传递过去 还不太方便

是啊，所以一开篇就把优缺点罗列出来了
作者: todaynew    时间: 2015-1-21 11:18
本帖最后由 todaynew 于 2015-1-21 11:36 编辑
盗梦 发表于 2015-1-21 11:00
就是学了.net，灵光一现

其实不必设公共变量，Eval是可以返回值的。
Public Function getDate(ByVal y As Integer, ByVal m As Integer, ByVal d As Integer) As Date
    getDate = DateSerial(y, m, d)
End Function


Private Sub 确定_Click()
    Me.日期.Value = Eval("getDate(" & Me.年.Value & "," & Me.月.Value & "," & Me.日.Value & ")")
End Sub

[attach]55488[/attach]


[attach]55487[/attach]



作者: 盗梦    时间: 2015-1-21 11:19
todaynew 发表于 2015-1-21 11:18
其实不必设公共变量，Eval是可以返回值的。

我研究一下
作者: 盗梦    时间: 2015-1-21 11:37
todaynew 发表于 2015-1-21 11:18
其实不必设公共变量，Eval是可以返回值的。
Public Function getDate(ByVal y As Integer, ByVal m As I ...

确实，我研究不够深入。多谢版主
作者: fan0217    时间: 2016-1-11 11:15
MSScriptControl.ScriptControl

其他语言也可以调用这个，实现表达式计算。



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3