Question

VB 代码求注释 网页下拉表单填写

Set oOption = WebBrowser1.Document.createElement("OPTION")
oOption.innerText = "6"
oOption.Value = "6"
WebBrowser1.Document.getElementsByTagName("select")(3).appendChild (oOption)
For Each a In WebBrowser1.Document.getElementsByTagName("OPTION")
If a.Value = "1986" Or a.Value = "6" Then a.Selected = True
Next

Answer 1

Set oOption = WebBrowser1.Document.createElement("OPTION")
*在网页上新建一个OPTION对象，此对象是用来向select控件中添加选择项的基类
oOption.innerText = "6"
*给OPTION对象赋值， innerText是显示给用户看到的值，类似于dropdownlist的text属性
oOption.Value = "6"
*给OPTION对象赋值， value是不显示给用户看的值，类似于dropdownlist的value属性
WebBrowser1.Document.getElementsByTagName("select")(3).appendChild (oOption)
*将OPTION对象添加到select控件的第3个位置
For Each a In WebBrowser1.Document.getElementsByTagName("OPTION")
*循环读取网页中所有OPTION对象，即select控件的所有可选值
If a.Value = "1986" Or a.Value = "6" Then a.Selected = True
*如果读出的OPTION对象的value属性值为1986或8时，则选中此项
Next
*宗上所述，此段代码是想实现动态给select控件添加可选项，然后再默认选中其中的某一项

Answer 2

具体点，如果是网页中的表单，请给出网址