51Testing软件测试论坛

标题: 请教vbs动态调用Class和Function 的方法（已解决） [打印本页]

作者: mstiunicon 时间: 2008-1-10 11:37
标题: 请教vbs动态调用Class和Function 的方法（已解决）
'现在要实现动态加载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 时间: 2008-1-10 12:01
Stupid ideas deleted here.

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

作者: mstiunicon 时间: 2008-1-10 13:13
有点隔靴搔痒啊

作者: ShaLongBus 时间: 2008-1-10 14:30
试一下CallByName这个函数

作者: yabest 时间: 2008-1-10 14:45
用 Eval ！！！

作者: mstiunicon 时间: 2008-1-10 15:36
倒是很简单：
Function RunFunction (className,functionName)
Execute "Set classObj = New "&className
Execute "classObj."&functionName&"()"
End Function

作者: gy21st 时间: 2008-1-10 16:37

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

Sorry,看错了。恭喜。

作者: mstiunicon 时间: 2008-1-10 17:09
呵呵，多谢了啊，我查Eval 查到的execute

作者: kakamissyou 时间: 2008-5-7 20:13
标题: 6楼正解
6楼正解

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

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)