VB.NET的Webbrowser到文本框

Question

我需要帮助，让所有从WebBrowser1的文字，我textbox1.text

我试图

WebBrowser1.Navigate(TextBox3.Text) 
    TextBox1.Text = WebBrowser1.DocumentText 

textbox3是我的网站 和TextBox1中正在被我希望所有的文本。

Answer 1

您必须处理WebBrowser控件的DocumentCompleted事件。

Private Sub WebBrowser1_DocumentCompleted(sender As System.Object, 
     e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) 
       Handles WebBrowser1.DocumentCompleted 
    TextBox1.Text = WebBrowser1.DocumentText 
End Sub 

Answer 2

我的解决办法：

Public Class Form1 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
     ' WebBrowser1 
     ' TextBox1 
     ' TextBox2 
     ' 
     WebBrowser1.ScriptErrorsSuppressed = True  ' we would like to suppress scripts error message 
     WebBrowser1.Navigate("http://codeguru.com") 

    End Sub 

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted 
     ' 1) Get entire html code and save as .html file 
     TextBox1.Text = WebBrowser1.DocumentText 

     ' HOWTO retry while error UNTIL ok 
     ' this needs to be done because Body.InnerText returns error when called too soon 
     ' 2) Get Body text and save as .txt file 
     Dim retry As Boolean = True 
     Dim body As String = "" 
     While retry 
      Try 
       body = WebBrowser1.Document.Body.InnerText 
       retry = False 
      Catch ex As System.IO.IOException 
       retry = True 
      Finally 
       TextBox2.Text = body 
      End Try 
     End While 

    End Sub 
End Class