在类模块中
Function ReturnThis(x, y) as double
ReturnThis = x * y
End Function
在主程序中
Sub llss()
CallByName(ll, "ReturnThis", VbMethod, 2, 3)
End Sub 程序通过
请问,callbyName能返回数据吗?
如返回的数据类型有variant,acadentity
谢谢.
Function ReturnThis(x, y) as double
ReturnThis = x * y
End Function
在主程序中
Sub llss()
CallByName(ll, "ReturnThis", VbMethod, 2, 3)
End Sub 程序通过
请问,callbyName能返回数据吗?
如返回的数据类型有variant,acadentity
谢谢.
Sub llss()
CallByName(ll, ReturnThis(3,5), VbMethod, 2, 3)
End Sub
Function ReturnThis(x, y) as double
ReturnThis = x * y
End Function
在主程序中
Sub llss()
msgbox CallByName(ll, "ReturnThis", VbMethod, 2, 3) '//显示的应该就是6
End Sub
msgbox typename(CallByName(ll, "ReturnThis", VbMethod, 2, 3))
显示的是Double