QTP函数使用(实战系列三)
一.用函数实现下拉框检查数值:
Vbs中函数有Sub 与Function ,区别是Sub没有返回值,Function有
Set fly =Window("Flight Reservation").WinComboBox("Fly From:")
Function flyCom(obj)
Dim myArr()
For i = 0 to obj.GetItemsCount -1
ReDim Preserve myArr(i)
myArr(i)= obj.GetItem(i)
Next
flyCom=myArr
End Function
调用该函数,把函数赋值给变量aa,因该函数返回值是数组类型,直接用ubound求出数组大小
aa =flyCom(fly)
for i= 0 to ubound(aa)
msgbox aa(i)
Next
欢迎加入交流群:Selenium学习群: 628908894