Selecting values from drop down using QTP.

[prempujaripati]

Hi There
I want to select all the values one by one and select one value from the drop down list.So How can I write the code for the particular?
As I have written the code as

Code:

Browser("...:=...").Page("..:=..").Frame("..:=..").WebList("..:=..").Select "somevalue1"

Which will select that particular value from the list but I want to check with all the values and select one from them.

Thanks
In Advance.

[basanth27]

Is this what you are looking at?

Code:

StrAllItems = Split(Browser("...:=...").Page("..:=..").Frame("..:=..").WebList("..:=..").GetRoProperty("All Items"),";")

For intCounter = Lbound(strAllItems) to Ubound(strAllItems)
   If Browser("...:=...").Page("..:=..").Frame("..:=..").WebList("..:=..").GetItem(intCounter) = "SomeValue" Then
            Browser("...:=...").Page("..:=..").Frame("..:=..").WebList("..:=..").Select (intCounter)
            Exit For
          Else
              msgbox "value not found...Please write a reporter event for this"
         End If      

Next

Or

Code:

iTemCount = Split(Browser("...:=...").Page("..:=..").Frame("..:=..").WebList("..:=..").GetRoProperty("Items Count")

For intCounter = 0 to iTemCount - 1
        If Browser("...:=...").Page("..:=..").Frame("..:=..").WebList("..:=..").GetItem(intCounter) = "SomeValue" Then
            Browser("...:=...").Page("..:=..").Frame("..:=..").WebList("..:=..").Select (intCounter)
            Exit For
          Else
              msgbox "value not found...Please write a reporter event for this"
         End If      

Next

[rasmirani]

Hello basanth27,
This Code is not working for me. It shows "The statement contains one or more invalid function arguments." in this line

Code:

Browser("...:=...").Page("..:=..").Frame("..:=..").WebList("..:=..").GetItem(intCounter) = "SomeValue"

So, please help ASAP.