Question

vb2010 WebBrowser1 调用方法

我做了一个有道在线翻译 小客户端。
文本框中的字符可以发送到webbrowser中的文本框，而且单击按钮时可以翻译，问题是翻译结果不能调到textbox或label上。
界面和代码如下：

Public Class Form1
Dim i As Integer = 0
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
If i = 0 Then
Me.Button2.Enabled = True
Me.Label1.Visible = True
End If
i += 1
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.WebBrowser1.Navigate("http://fanyi.youdao.com/")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Me.TextBox1.Text = "" Then Exit Sub
If Me.TextBox2.Text <> "" Then
Me.TextBox2.Text = ""
End If
Me.WebBrowser1.Document.GetElementById("outputText").SetAttribute("value", "")
Me.WebBrowser1.Document.GetElementById("inputText").SetAttribute("value", Me.TextBox1.Text)
Me.WebBrowser1.Document.GetElementById("translateBtn").InvokeMember("click")
Do
Application.DoEvents()
Loop Until WebBrowser1.Document.GetElementById("outputText").GetAttribute("value") <> ""
Me.TextBox2.Text = WebBrowser1.Document.GetElementById("outputText").GetAttribute("value")
End Sub
End Class





Answer 1

你的代码有点儿小问题，outputText不存在value属性，它是一个div，而不是一个textArea控件，所以，请修改代码如下：
        Do
            Application.DoEvents()
        Loop Until WebBrowser1.Document.GetElementById("outputText").GetAttribute("innerText") <> ""
        Me.TextBox2.Text = WebBrowser1.Document.GetElementById("outputText").GetAttribute("innerText")