在QTP中如何引用类呢

silencesnow

求助，在QTP中如何添加引用类呢？

silencesnow

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

同志们谁有办法？

sunqiang1024

楼主请看看这个链接，应该对你有所启发啊http://www.51testing.com/?35/action_viewspace_itemid_17595.html

cdel

试了下，封装到VBS里后再引用 ，我这里没报错

zte_boy

先检查下你定义的类所有在vbs文件是否已经被QTP脚本引用或导入
然后实例化，再调用方法

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

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

savinaliu

定义类：
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

可以把定义了类的vbs file增加到resource中。 File->Settings->resouces

或用

ExecuteFile xxx.vbs

来装载