51Testing软件测试论坛

标题: 在QTP中如何引用类呢 [打印本页]

作者: silencesnow 时间: 2008-2-22 16:51
标题: 在QTP中如何引用类呢
求助，在QTP中如何添加引用类呢？

作者: silencesnow 时间: 2008-2-22 17:02
标题: 在QTP中如何引用类呢
QTP中如何创建外部类的实例
VBS脚本中写了个类：
Class AddCustomerEntrance
Public Sub Toolbar(menuStr)
Browser("browser").Page("title:="&PAGE_TITLE).Frame("name:="&FRame_NAME).WebElement("innertext:="&menuStr).Click
End Sub
End Class

QTP中调用：
Set a = New AddCustomerEntrance
a.Toolbar("新建")

问题：
QTP脚本运行时总是提示“类没有被定义”。如果将类定义放在QTP脚本中，可以运行。请问有什么办法在QTP脚本中调用VBS定义的类？

作者: silencesnow 时间: 2008-2-22 17:03
标题: 在QTP中如何引用类呢
同志们谁有办法？

作者: sunqiang1024 时间: 2008-2-22 18:05
楼主请看看这个链接，应该对你有所启发啊http://www.51testing.com/?35/action_viewspace_itemid_17595.html

作者: cdel 时间: 2008-2-22 18:12
试了下，封装到VBS里后再引用，我这里没报错

作者: zte_boy 时间: 2008-2-23 16:49
先检查下你定义的类所有在vbs文件是否已经被QTP脚本引用或导入
然后实例化，再调用方法

Dim str
Execute "Set objAddCustomerEntrance = new AddCustomerEntrance"
str = "Call objAddCustomerEntrance.Toolbar()"
Execute str

[ 本帖最后由 zte_boy 于 2008-2-23 16:52 编辑 ]

作者: savinaliu 时间: 2008-2-24 16:56
定义类：
Class GraphTestclass
Public Sub Class_Initialize() -> Class Constructor
      …
End Sub

public Function TestGraph1 (…)
      script goes here
End Public

public Function TestGraph2(…)
      script goes here
End Public
End Class

引用类：
Set GraphUITest = New GraphTestclass

作者: savinaliu 时间: 2008-2-24 17:04
可以把定义了类的vbs file增加到resource中。 File->Settings->resouces

或用

ExecuteFile xxx.vbs

来装载

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