ClickItem Not working

Hi there,

I had the same issue this week wth a keyword not able to select a DropDownListBox item and I came up with a little code of mine to resolve (kind of an utilility function). Enjoy and update it to fit your need.

By the way, anyone to make it better is welcome to do so...



'@Function FindDropDownListBox to find a Drop-Down ListBox and select a value within it.

'@@Param1: String; Object to find's property Name.

'@@Param2: String; Object to find property content/caption Value.

'@@Param3: Interger; Deepness of search in TC mapped tree.

'@@Param4: Boolean; Mapped tree to be refresh for search.

'@@Param5: String Or Integer; Value to select as the choice.

'@@Return: Returns a dropdownListBox with selected value OR log error message if searched object or value to select was not found.

Sub FindDropDownListBox(propN, propValKey, strVal)

Dim browser

Dim page

Dim ddListBox

Set browser = Aliases.browser

Set page = browser.Page("*")

Set ddListBox = page.NativeWebObject.Find(propN,propValKey)



If ddListBox.Exists Then

   Call ddListBox.focus()

   diff = aqString.Find(ddListBox.wItemList, strVal, 0, false)

   If diff <> -1 Then

      ddListBox.ClickItem strVal

      page.Wait 1

   Else

      Log.Error "Search Error: DropDown List '" & propValKey & "' searched by the property '" & propN & "' was find but Item '" & strVal & "' to select was not found."

   End If

Else 

   Log.Error "Search Error: DropDown List '" & propValKey & "' searched by the property '" & propN & "' was not find."

End If

End Sub





Once you call this utility in you script or keyword tests, just provide it with the property name you want TC to search for and the value that distinguish this object from other ones among the mapped DropdownListBoxes...



Regards,

TedB