QTP的VBS中自定义类的问题？？急急急急急急急急急急急急急急急急

zwd183335

在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

我试了下没有问题阿

white2

是不是因为没有定义属性阿

xhhuang1618

原帖由 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

试试楼上的方法或者在setting添加文件a.vbs的引用

zwd183335

找到答案了，在论坛中有旧帖。