webbrowser怎么实现打开网页自动选择下拉菜单

Question

<SELECT size=1   name=sptype> <OPTION value=1 selected>1<OPTION value=2>2<OPTION value=3>3</OPTION></SELECT>
我想在webbrowser中选2,怎样实现?

Answer 1

Private Sub Form_Load()
    WebBrowser1.Navigate ".......html"
End SubPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Dim webDoc As Object
    Set webDoc = WebBrowser1.Document.All
    Dim webTag As Object
    Dim lengthTag As Integer
    lengthTag = webDoc.length - 1
    Dim countTag As Integer
    For countTag = 0 To lengthTag
        Set webTag = webDoc.Item(countTag)
        If LCase(webDoc.Item(countTag).tagname) = "select" Then
            webTag.All.Item(1).Selected = True
         End If
     Next
End Sub
以上只是简单的选择了第2项，实际上你可以根据每一项的Value进行判断一下

Answer 2

直接改成这样吧：
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Dim webDoc As Object
    Set webDoc = WebBrowser1.Document.All
    Dim webTag As Object
    Dim lengthTag As Integer
    lengthTag = webDoc.Length - 1
    Dim countTag As Integer
    For countTag = 0 To lengthTag
        Set webTag = webDoc.Item(countTag)
        Debug.Print webDoc.Item(countTag).tagname
        If LCase(webDoc.Item(countTag).tagname) = "select" Then
            webTag.Value = "2"
         End If
     Next
End Sub