Access利用Eval函数，简单实现回调机制

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

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

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

Public Function funcEvalEasy(funcName As String)

    '其他代码过程

    '...

    '回调函数部分

    MsgBox "开始执行函数" & funcName

    Eval funcName

End Function

Public Function funcTestEasy()

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

End Function

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

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

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

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

'特点：较为灵活

Public Function funcEvalPara1(funcName As String)

    '其他代码过程

    '...

    '回调函数部分

    MsgBox "开始执行函数" & funcName

    Eval funcName

End Function

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

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

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

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

    '其他代码过程

    '...

    '回调函数部分

    MsgBox "开始执行函数" & funcName

    Eval funcName & "(" & i & ")"

End Function

Public Function funcTestPara(i As Integer)

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

End Function

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

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

'说明：有返回值

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

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

Public Function funcEvalReturn(funcName As String) As Integer

    '其他代码过程

    '...

    '回调函数部分

    MsgBox "开始执行函数" & funcName

    Eval funcName

    '获取返回值

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

    funcEvalReturn = intEvalReturn    '返回结果

End Function

Public Function funcTestReturn(i As Integer)

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

    '计算

    i = i + 1

    '返回

    intEvalReturn = i

End Function