【原创】利用Eval函数，简单实现回调机制

盗梦

有时候，我们很多代码结构很类似，前后都一样，就中间不一样。
提取不了为一个公共函数直接调用，不得不写成很多重复代码
如果用回调方式就能轻松解决问题
但vb，vba中实现回调要通过一个API函数，十分不方便
最近研究发现，可以利用Eval函数的特性(可以执行文本表达的代码)，简单实现回调机制

优点：容易理解和使用
缺点：窗体的函数调用不到
           没有返回值（可以通过公共临时变量得到返回值）
           传递参数不方便
           调用的函数或者过程必须是公共的

附上我研究的几个模型，包括有无参数和返回值

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

1. '说明：无参数传递，没返回值
   
2. '参数：funcName,函数表达式(字符串)。要调用的函数名，函数名后一定要加括号
   
3. '示例：funcEvalEasy("funcTestEasy()")
   
4. 
   
5. Public Function funcEvalEasy(funcName As String)
   
6.     '其他代码过程
   
7.     '...
   
8.     '回调函数部分
   
9.     MsgBox "开始执行函数" & funcName
   
10.     Eval funcName
    
11. End Function
    
12. 
    
13. Public Function funcTestEasy()
    
14.     MsgBox "我是测试函数，用于测试回调"
    
15. End Function

复制代码

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

1. '说明：有参数传递，没返回值
   
2. '参数：funcName,函数表达式(字符串)。要调用的函数名，函数名后一定要加括号
   
3. 
   
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
    
14. 
    
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
    
25. 
    
26. Public Function funcTestPara(i As Integer)
    
27.     MsgBox "我是测试函数，用于测试回调" & vbCrLf & "你传进来的数字是" & i
    
28. End Function
    
29. 
    
30. '方法3：利用公共变量传递参数（这个可以参考下面的示例，一样道理，这里就不赘述）

复制代码

3、示例（有返回值）

1. Public intEvalReturn As Integer '临时变量，用于保存返回值
   
2. 
   
3. '说明：有返回值
   
4. '参数：funcName,函数表达式(字符串)。要调用的函数名，函数名后一定要加括号
   
5. '示例：funcEvalReturn("funcTestReturn(1)")
   
6. 
   
7. Public Function funcEvalReturn(funcName As String) As Integer
   
8.     '其他代码过程
   
9.     '...
   
10.     '回调函数部分
    
11.     MsgBox "开始执行函数" & funcName
    
12.     Eval funcName
    
13. 
    
14.     '获取返回值
    
15.     MsgBox "返回结果" & intEvalReturn  '弹窗显示
    
16.     funcEvalReturn = intEvalReturn    '返回结果
    
17. End Function
    
18. 
    
19. Public Function funcTestReturn(i As Integer)
    
20.     MsgBox "我是测试函数，用于测试回调" & vbCrLf & "你传进来的数字是" & i & vbCrLf & "将执行计算返回一个值"
    
21.     '计算
    
22.     i = i + 1
    
23.     '返回
    
24.     intEvalReturn = i
    
25. End Function

复制代码

追加更新：
2015-01-21: 多谢todaynew版主告知，Eval本身可以返回值。例如Eval("1+1")，返回2。
                     那就不用像上面那么麻烦。详请见6楼。

tmtony

赞一个！ eval的确很方便。但也还有它的短处。如要将 事件的参数 传递过去 还不太方便

todaynew

有点类似.net中的委托

盗梦

todaynew 发表于 2015-1-21 10:59
有点类似.net中的委托

就是学了.net，灵光一现

盗梦

tmtony 发表于 2015-1-21 10:55
赞一个！ eval的确很方便。但也还有它的短处。如要将 事件的参数 传递过去 还不太方便

是啊，所以一开篇就把优缺点罗列出来了

todaynew

盗梦 发表于 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

盗梦

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

我研究一下

盗梦

todaynew 发表于 2015-1-21 11:18
其实不必设公共变量，Eval是可以返回值的。
Public Function getDate(ByVal y As Integer, ByVal m As I ...

确实，我研究不够深入。多谢版主

fan0217

MSScriptControl.ScriptControl

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