我用webbrowser控件打开一个网页,网页有个textarea控件,我的vb怎么得到该textarea控件中的text?

Question

如题：<textarea rows="14" name="Content" cols="90">要得到这里的文本</textarea>

Answer 1

Private Sub Command1_Click()
    Dim i As Integer
    Dim vDoc As Object
    Dim vTag As Object
    Set vDoc = WebBrowser1.Document
    For i = 0 To vDoc.All.length - 1
        If UCase(vDoc.All(i).tagName) = "TEXTAREA" Then
             Debug.Print vDoc.All(i).Type
            Set vTag = vDoc.All(i)
            If vTag.Type = "textarea" Then
                Select Case vTag.Name
                    Case "Content"
                        MsgBox vTag.Value
                End Select
            End If
        End If
    Next i
End SubPrivate Sub Form_Load()
    Me.WebBrowser1.Navigate2 "C:\1.htm"
End Sub