请教vbs动态调用Class和Function 的方法（已解决）

mstiunicon

'现在要实现动态加载class和其中指定名称的Function的功能
Call RunFunction ("Tester","login")
Function RunFunction (className,functionName)
   '获得class的实例
    '执行class的名字为"functionName"的方法
End Function

'以下内容在另外一个vbs文件中
Class Tester
   function login()
     msgbox("登陆成功")
   end function
End Class

记得论坛上好几个月前，有过动态调用Function的一个帖子，可是现在太难找了，请大家帮帮忙啊

[ 本帖最后由 mstiunicon 于 2008-1-10 15:37 编辑 ]

gy21st

Stupid ideas deleted here.

[ 本帖最后由 gy21st 于 2008-1-10 16:40 编辑 ]

mstiunicon

有点隔靴搔痒啊

ShaLongBus

试一下CallByName这个函数

yabest

用 Eval ！！！

mstiunicon

倒是很简单：
Function RunFunction (className,functionName)       
   Execute "Set classObj = New "&className       
   Execute "classObj."&functionName&"()"       
End Function

gy21st

原帖由 mstiunicon 于 2008-1-10 13:13 发表
有点隔靴搔痒啊

Sorry,看错了。恭喜。

mstiunicon

呵呵，多谢了啊，我查Eval 查到的execute

kakamissyou

6楼正解

[ 本帖最后由 kakamissyou 于 2010-5-24 18:43 编辑 ]