51Testing软件测试论坛

标题: QTP的VBS中自定义类的问题？？急急急急急急急急急急急急急急急急 [打印本页]

作者: zwd183335 时间: 2010-7-30 10:34
标题: QTP的VBS中自定义类的问题？？急急急急急急急急急急急急急急急急
在a.vbs文件中定义了一个类
Class TADT
Private m_namADTName 'ADT新旧名称
Private m_namFieldName 'ADT新旧字段名称

Private Function F_SaveADT()

F_SaveADT = True
End Function
End Class

在test中
Dim adt

Set adt = new TADT

Set语句会提示TADT未定义

作者: xyan 时间: 2010-7-30 11:30
我试了下没有问题阿

作者: white2 时间: 2010-7-30 12:00
是不是因为没有定义属性阿

作者: xhhuang1618 时间: 2010-7-30 12:39

原帖由 zwd183335 于 2010-7-30 10:34 发表
在a.vbs文件中定义了一个类
Class TADT
Private m_namADTName 'ADT新旧名称
Private m_namFieldName 'ADT新旧字段名称

Private Function F_SaveADT()

F_SaveADT = True
End Function ...

如果a.vbs与 Set adt = new TADT 在同一个文件里，这样的做是没有问题的；但如果a.vbs与Set adt = new TADT 不在同一个文件里就有出现找不到对象的问题。
解决办法：
executefile("c:\a.vbs")
Set adt = new TADT

作者: JackieChan 时间: 2010-7-30 13:03
标题: 试试楼上的方法或者在setting添加引用
试试楼上的方法或者在setting添加文件a.vbs的引用

作者: zwd183335 时间: 2010-8-11 17:35
找到答案了，在论坛中有旧帖。

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