在类模块中 
Function ReturnThis(x, y) as double
  ReturnThis = x * y 
End Function 
在主程序中 
Sub llss() 
   CallByName(ll, "ReturnThis", VbMethod, 2, 3) 
End Sub 程序通过
请问,callbyName能返回数据吗?
如返回的数据类型有variant,acadentity
谢谢.

解决方案 »

  1.   

    这样写当然不行,改为
    Sub llss() 
      CallByName(ll, ReturnThis(3,5), VbMethod, 2, 3) 
    End Sub 
      

  2.   

    能直接返回啊!
    Function ReturnThis(x, y) as double 
      ReturnThis = x * y 
    End Function 
    在主程序中 
    Sub llss() 
      msgbox CallByName(ll, "ReturnThis", VbMethod, 2, 3) '//显示的应该就是6
    End Sub
      

  3.   

    ReturnThis(3,5)去掉引号算啥?不明白? 
      

  4.   

    是啊,那还用callbyname做什么,呵呵!
      

  5.   

    CallByName 是函数,函数都能返回数据.
      

  6.   

    CallByName返回数据的类型就是第二个参数指定的函数的返回类型。
    msgbox typename(CallByName(ll, "ReturnThis", VbMethod, 2, 3))
    显示的是Double