QTP - Descriptive Programming - Any Web App - Working with Web List-boxes
OneTestingCenter @ QTP @ Descriptive Programming @ Working with Web Lists
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'Any Web App - Working with any list box
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Set oPage=Browser("name:=.*").Page("title:=.*")
Set oWebList=Description.Create()
oWebList("micClass").Value="WebList"
oWebList("Html Tag").Value="Select"
'oWebList("Index").Value="0"
Set AllWebList=oPage.ChildObjects(oWebList)
MsgBox "AllWebList" & vbtab & AllWebList.Count
For i= 0 to AllWebList.Count-1
MsgBox AllWebList(i).GetROProperty("name")
WebListItemsCount=oPage.WebList("Index:=0").GetROProperty("Items Count")
MsgBox WebListItemsCount
Next
For i= 0 to WebListItemsCount-1
oPage.WebList("Index:=0").Select(i)
' wait(2)
If oPage.WebList("Index:=1").Exist(5) Then
SecondListItemsCount=oPage.WebList("Index:=1").GetROProperty("Items Count")
For j=0 to SecondListItemsCount-1
oPage.webList("Index:=1").Select(j)
Next
End If
Next
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'Any Web App - Working with any list box
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
