51Testing软件测试论坛

标题: qtp中如何取得每次循环中的返回值 [打印本页]

作者: qishenye 时间: 2008-9-15 21:54
标题: qtp中如何取得每次循环中的返回值
大家好！
我在用qtp检查一个脚本时，不知道怎么把每次循环中的值给取下来。请求大家帮忙。
比如一个页面上有10张图片，我用了一个循环语句检查每个图片的size，如果size不小于0，则图片正常显示。
Dim ImageObj
set ImageObj=Description.create()
ImageObj("html tag").value="Image"
ImageObj("tpye").value="Image Link"
Set ImageObj=Browser(...).Page(...).childobjects(ImageObj)
ImageCount=ImageObj.count
msgbox ImageCount

For i= 0 to ImageCount-1 step 1
SizeObeject=ImageObj(i).Object.fileSize
msgbox SizeObject
Next

现在的问题是，我不知道怎么把前面9次循环的图片大小的SizeObject返回值给取出来，只知道第10张图片的大小。最后来判断，10张图片的Size都是大于0的，如果有一个是小于0的就说明这个页面显示ok了。

作者: lingxin5013 时间: 2008-9-16 10:06
Dim ImageObj
set ImageObj=Description.create()
ImageObj("html tag").value="Image"
ImageObj("tpye").value="Image Link"
Set ImageObj=Browser(...).Page(...).childobjects(ImageObj)
ImageCount=ImageObj.count
msgbox ImageCount

For i= 0 to ImageCount-1 step 1
SizeObeject=SizeObeject&ImageObj(i).Object.fileSize
SizeObeject=SizeObeject&vbcrlf
Next
msgbox SizeObject

作者: qishenye 时间: 2008-9-17 12:56
谢谢帮忙，这个方法很好，比用数组简单多了

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