通过

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

WebBrowser控件上的DocumentStream属性和DocumentText属性返回当前文档的 HTML，反映了该文档首次显示时的状态。 但是，如果使用方法和属性调用（例如AppendChildInnerHtml）修改页面，那么在调用DocumentStream和DocumentText时，这些修改将不会显示。 若要获取 DOM 的最 up-to日期 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. 添加一个名为 Button1 的 Button 控件到你的 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 或者可能无法初始化其一个或多个子对象。

另请参阅