qishenye 发表于 2008-9-15 21:54:44

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:55

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:43

谢谢帮忙,这个方法很好,比用数组简单多了:loveliness:
页: [1]
查看完整版本: qtp中如何取得每次循环中的返回值