Instead of Dim element As HtmlElement = ('select').Cast(Of HtmlElement).First(Function(el) el.GetAttribute('name') = 'ddlMaliTabloDonem1')Īnd I suggest that you could set breakpoints to debug the code line by line. So you could useĭim element As HtmlElement = ('select').Cast(Of HtmlElement).First(Function(el) el.GetAttribute('id') = 'ddlMaliTabloDonem1') InvokeMember ( 'submit' )īased on your HTML code, the 'ddlMaliTabloDonem1' in HTML is the type of id. If ee.TagName = 'SELECT' Then ee.SetAttribute('SelectedIndex', CStr(3)) If ee.InnerText = '2013/3' Then ee.SetAttribute('Selected', CStr(True)) If ee.InnerText Is Nothing Then Continue For Item.SetAttribute('Selected', CStr(True))įor Each ee As HtmlElement In ('m圜hange')Ĭall optionx.SetAttribute('onClick', 'True')ĭim TheItem = (From X In ('select').Cast(Of HtmlElement)() Where X.GetAttribute('name') = 'ddlMaliTabloExchange' Select X.GetElementsByTagName('option')).FirstOrDefaultĭim Item = (From X In TheItem.Cast(Of HtmlElement)() Where X.InnerText = '2013/3').FirstOrDefault Optionx.SetAttribute('selected', 'selected') I searched on the net and used the following methods but could not achieve to select the option and trigger the event:ĭim element As HtmlElement = ('select').Cast(Of HtmlElement).First(Function(el) el.GetAttribute('name') = 'ddlMaliTabloDonem1')Įlement.GetElementsByTagName('option').Cast(Of HtmlElement).First(Function(el) el.InnerText = '2013/03').SetAttribute('selected', 'selected')ĭim optionx As HtmlElement = ('ddlMaliTabloDonem1') TheĮvent occurs immediately after the value of an element has changed.

A way to navigate a webpage through code.

Webbrowser select option delphi