Recent Post

QTP - Descriptive Programming - Any Web App - Working with Web List-boxes

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
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

0 comments:

Post a Comment

GAReddy @ OneTestingCenter @ All Articles