51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 2344|回复: 5
打印 上一主题 下一主题

[原创] QTP的VBS中自定义类的问题??急急急急急急急急急急急急急急急急

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2010-7-30 10:34:43 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
在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未定义
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2010-7-30 11:30:57 | 只看该作者
我试了下没有问题阿
回复 支持 反对

使用道具 举报

该用户从未签到

3#
发表于 2010-7-30 12:00:17 | 只看该作者
是不是因为没有定义属性阿
回复 支持 反对

使用道具 举报

该用户从未签到

4#
发表于 2010-7-30 12:39:25 | 只看该作者
原帖由 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
回复 支持 反对

使用道具 举报

该用户从未签到

5#
发表于 2010-7-30 13:03:08 | 只看该作者

试试楼上的方法或者在setting添加引用

试试楼上的方法或者在setting添加文件a.vbs的引用
回复 支持 反对

使用道具 举报

该用户从未签到

6#
 楼主| 发表于 2010-8-11 17:35:26 | 只看该作者
找到答案了,在论坛中有旧帖。
回复 支持 反对

使用道具 举报

本版积分规则

关闭

站长推荐上一条 /1 下一条

小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

GMT+8, 2024-11-11 17:07 , Processed in 0.070894 second(s), 25 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

快速回复 返回顶部 返回列表