从下拉列表中选择一个项目不会触发 VB.net 的任何操作
Selecting an item from a dropdown doesnt trigger any action with VB.net
我正在尝试使用 vb.net 自动加载数据,但有时我会 select 各种组合框的值。看到页面的代码,我发现组合框的格式类似于这个(它只是一个例子):
<select id="BirthMonth" name="BirthMonth">
<option value="">Month</option>
<option value="01" >January</option>
<option value="02" >February</option>
<option value="03" >March</option>
<option value="04" >April</option>
无法使用 WebBrowser1.Document.GetElementById ("Name combo")
SetAttribute ("OPTION", "March")
,在互联网上搜索我找到了一个解决方案,其中 inter 是一个包含该值的参数。:
Public Sub selector(ByVal inter)
Dim option_ As HtmlElementCollection
option_ = WebBrowser1.Document.GetElementsByTagName("option")
For Each option__ As HtmlElement In option_
If option__.InnerHtml = inter Then
option__.SetAttribute("selected", "True")
End If
Next
End Sub
如果你选择了这个值,但是页面没有取它,所以不会刷新其他的Combobox
。
有人知道如何 select 值,以便页面可以触发操作吗?
PS: 必须在字段名称中按值。
非常感谢
再见!
PS:我在 selection:
之后添加这几行就解决了这个问题
WebBrowser1.AllowNavigation = True
WebBrowser1.Document.Forms(0).InvokeMember("submit")
只需在选择后添加以下行即可解决:
WebBrowser1.AllowNavigation = True
WebBrowser1.Document.Forms(0).InvokeMember("submit")
我正在尝试使用 vb.net 自动加载数据,但有时我会 select 各种组合框的值。看到页面的代码,我发现组合框的格式类似于这个(它只是一个例子):
<select id="BirthMonth" name="BirthMonth">
<option value="">Month</option>
<option value="01" >January</option>
<option value="02" >February</option>
<option value="03" >March</option>
<option value="04" >April</option>
无法使用 WebBrowser1.Document.GetElementById ("Name combo")
SetAttribute ("OPTION", "March")
,在互联网上搜索我找到了一个解决方案,其中 inter 是一个包含该值的参数。:
Public Sub selector(ByVal inter)
Dim option_ As HtmlElementCollection
option_ = WebBrowser1.Document.GetElementsByTagName("option")
For Each option__ As HtmlElement In option_
If option__.InnerHtml = inter Then
option__.SetAttribute("selected", "True")
End If
Next
End Sub
如果你选择了这个值,但是页面没有取它,所以不会刷新其他的Combobox
。
有人知道如何 select 值,以便页面可以触发操作吗?
PS: 必须在字段名称中按值。
非常感谢 再见!
PS:我在 selection:
之后添加这几行就解决了这个问题WebBrowser1.AllowNavigation = True
WebBrowser1.Document.Forms(0).InvokeMember("submit")
只需在选择后添加以下行即可解决:
WebBrowser1.AllowNavigation = True
WebBrowser1.Document.Forms(0).InvokeMember("submit")