TEST_HUAN 发表于 2008-11-3 17:44:51

版主songfun的一段代码

版主songfun的一段代码，如下：

Dim qtApp ,pDefColl,pDef ,rtParams,rtParam
Set qtApp = CreateObject("QuickTest.Application")
qtApp.Launch
qtApp.Visible = True
qtApp.Open "C:\Test1"
Set pDefColl = qtApp.Test.ParameterDefinitions
cnt = pDefColl.Count
Indx = 1
While Indx <= cnt
    Set pDef = pDefColl.Item(Indx)
    Indx = Indx + 1
Wend
Set rtParams = pDefColl.GetParameters()
Set rtParam = rtParams.Item("InParam1")
rtParam.Value = "songfun"
qtApp.Test.Run , True, rtParams
MsgBox rtParams.Item("OutParam1").Value


为什么我运行VBScript脚本时，运行到 Set pDefColl = qtApp.Test.ParameterDefinitions 会报错“对象不支持此属性或方法”？
什么原因啊？

TEST_HUAN 发表于 2008-11-3 17:59:14

找遍帮助，也找不到ParameterDefinitions 这些方法的介绍

lantianwei 发表于 2008-11-3 18:41:03

你的QTP是何版本的阿？

TEST_HUAN 发表于 2008-11-4 09:25:53

qtp 9.0

没有蛀牙 发表于 2008-11-4 17:18:08

ParameterDefinitions是Test对象的一个属性
在 Quick Test Advanced References里可以找到
代码没有问题的，我执行过
你可以到Help里找个原版，看看问题出在哪里

TEST_HUAN 发表于 2008-11-5 09:18:45

在帮助里怎么找不到Quick Test Advanced References
你什么版本？

没有蛀牙 发表于 2008-11-5 11:06:20

9.2

namelcx 发表于 2008-11-5 11:30:56

编辑之

TEST_HUAN 发表于 2008-11-5 12:11:13

难道9.0不支持？

TEST_HUAN 发表于 2008-11-5 12:11:53

原帖由 namelcx 于 2008-11-5 11:30 发表 http://bbs.51testing.com/images/common/back.gif
编辑之
么意思？

namelcx 发表于 2008-11-20 14:16:33

原帖由 TEST_HUAN 于 2008-11-5 12:11 发表 http://bbs.51testing.com/images/common/back.gif

么意思？
我也想问 Quick Test Advanced References，发现有人已经问过了

hsjzfling 发表于 2008-11-20 14:37:06

帮助中全都有的，songfun老大这段代码也是从帮助中copy的。

只需要在帮助中search(注意是search标签)中输入ParameterDefinitions 就能找到相关信息了。。。

TEST_HUAN 发表于 2008-11-25 12:55:05

楼上的，search了，没有啊
页: [1]
查看完整版本: 版主songfun的一段代码