• RSS
  • Facebook
  • Twitter

One Center for all the Testing Need. OneTestingCenter is for all, for all QA, for all Automation. Automation is easy, fun and enriching experience. Happy Learning and Happy Testing!

  • Access to All QA

    At OneTestingCenter, you find lots of books,articles,blogs and detailed guides. Everyone has access to QA. Happy Learning, Happy Testing.

  • Global Trainings

    All the QA/Auotmation trainings are available at OneTestingCenter. QA, Automation, QTP/UFT, Selenium, LoadRunner, QC/ALM, Appium...

  • Automation Learning Fun

    Technology is always evolving. Automation is always challenging. To be frank, Automation is fun, enthusiastic and enrching experience.


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

    Reactions:

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