select item from dropdown list on webpage

I need my app to select an item from the dropdown list on a webpage.

Here is the html

<select class="Data_Entry_List_Box_Loca" onclick="clearSuggestion()" onchange="updateDropDownList(this.form, true)" id="xxx_c_1_f_163" name="xxx_c_1_f_163">
<option value="-1">Please Select</option><option value="1785" selected="selected">Alberta</option>
<option value="1786">British Columbia</option>
<option value="1787">Manitoba</option>
<option value="1788">New Brunswick</option>
<option value="1789">Newfoundland and Labrador</option>
<option value="1790">Nova Scotia</option>
<option value="1791">Northwest Territories</option>
<option value="1792">Nunavut</option>
<option value="1793">Ontario</option>
<option value="1794">Prince Edward Island</option>
<option value="1795">Quebec</option>
<option value="1796">Saskatchewan</option>
<option value="1797">Yukon Territory</option>
</select>

Ive tried this:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim vPrv As String
    If RadioButton1.Checked Then

        vPrv = "1793"
    ElseIf RadioButton2.Checked Then

        vPrv = "1785"

    End If
    WebBrowser2.Document.GetElementById("xxx_c_1_f_163").InvokeMember("click")
    Dim theElementCollection As HtmlElementCollection
    theElementCollection = WebBrowser2.Document.GetElementsByTagName("option")
    For Each curElement As HtmlElement In theElementCollection
        Dim controlValue As String = curElement.GetAttribute("value").ToString
        If controlValue = vPrv Then
            curElement.InvokeMember("click")
        End If
    Next
End Sub

But it doesnt work.

ansaurus

tags:

views:

answers:

select item from dropdown list on webpage

related questions