如何：在托管 HTML 文档对象模型中访问 HTML 源

DocumentStream 控件中的 DocumentText 和 WebBrowser 属性返回当前文档的 HTML，显示方式与第一次显示的一样。 但是，如果通过使用方法和属性调用（例如 AppendChild 和 InnerHtml）修改此页面，则在调用 DocumentStream 和 DocumentText 时不会显示这些更改。 若要获得 DOM 的最新 HTML 源，必须调用 HTML 元素上的 OuterHtml 属性。

以下过程显示了如何检索动态源并将其显示在单独的快捷菜单中。

使用 OuterHtml 属性检索动态源

1. 创建新的 Windows 窗体应用程序。 首先创建一个 Form，将其命名为 Form1。

2. 在 Windows 窗体应用程序中托管 WebBrowser 控件，并将其命名为 WebBrowser1。 有关详细信息，请参阅如何：向 Windows 窗体应用程序添加 Web 浏览器功能。

3. 在应用程序中再创建一个名为 CodeForm 的 Form。

4. 向 CodeForm 添加一个 RichTextBox 控件，然后将该控件的 Dock 属性设置为 Fill。

5. 在 CodeForm 上创建一个名为 Code 的公共属性。

   public string Code
   {
       get
       {
           if (richTextBox1.Text != null)
           {
               return (richTextBox1.Text);
           }
           else
           {
               return ("");
           }
       }
       set
       {
           richTextBox1.Text = value;
       }
   }
   

   Public Property Code() As String
       Get
           If (RichTextBox1.Text IsNot Nothing) Then
               Code = RichTextBox1.Text
           Else
               Code = ""
           End If
       End Get
   
       Set(ByVal value As String)
           RichTextBox1.Text = value
       End Set
   End Property
   

6. 向 Form 添加一个名为 Button1 的 Button 控件，并监视 Click 事件。 若要详细了解如何监视事件，请参阅事件。

7. 将以下代码添加到 Click 事件处理程序中。

   private void button1_Click(object sender, EventArgs e)
   {
       HtmlElement elem;
   
       if (webBrowser1.Document != null)
       {
           CodeForm cf = new CodeForm();
           HtmlElementCollection elems = webBrowser1.Document.GetElementsByTagName("HTML");
           if (elems.Count == 1)
           {
               elem = elems[0];
               cf.Code = elem.OuterHtml;
               cf.Show();
           }
       }
   }
   

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim elem As HtmlElement
   
       If (WebBrowser1.Document IsNot Nothing) Then
           Dim cf As New CodeForm()
           Dim elems As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("HTML")
           If (elems.Count = 1) Then
               elem = elems(0)
               cf.Code = elem.OuterHtml
               cf.Show()
           End If
       End If
   End Sub
   

可靠编程

在尝试检索 Document 之前，应总是先测试它的值。 如果当前页未完成加载，则 Document 或它的一个或多个子对象可能无法初始化。

另请参阅

• 使用托管 HTML 文档对象模型
• WebBrowser 控件概述