Question

VB：实时错误424，要求对象。求解决方法

使用版本：VB6.0 企业版
代码：
Set oOption = WebBrowser1.Document.createElement("OPTION")
oOption.innerText = "6"
oOption.Value = "6"
WebBrowser1.Document.getElementsByTagName("select")(2).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

WebBrowser1.Document.getElementsByTagName("select")(index)
请确定getElementsByTagName("select")的元素个数!
或者判断WebBrowser1.Document.getElementsByTagName("select")(index)是否为空[ is Nothing]

Answer 2

webbrowser的编程最好使用VB.NET来写。因为那个有详细的代码提示。而VB6中间没有更加详细的代码提示。而且，不方便。