如何:访问托管 HTML 文档对象模型中的 HTML 源

WebBrowser 控件上的 DocumentStreamDocumentText 属性返回当前文档首次显示时的 HTML。 但是,如果使用方法和属性调用(如 AppendChildInnerHtml)修改页面,则调用 DocumentStreamDocumentText时不会显示这些更改。 若要获取 DOM 的最 up-to日期 HTML 源,必须在 HTML 元素上调用 OuterHtml 属性。

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

使用 OuterHtml 属性检索动态源

  1. 创建新的 Windows 窗体应用程序。 从单个 Form开始,并称作 Form1

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

  3. 在您的应用程序中创建一个名为 CodeForm的第二个 Form

  4. RichTextBox 控件添加到 CodeForm,并将其 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. 将名为 Button1Button 控件添加到 Form,并监视 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 或其一个或多个子对象。

另请参阅