请朋友指点：为什么inet控件取到的HTML不能给DHTMLEdit控件使用？WebBrowser控件得到的HTML为什么多出一些东西？

Question

为什么inet控件取到的HTML不能给DHTMLEdit控件使用？
我使用：
        '**************************************
        '        测试使用inet控件来取得HTML
        Inet1.AccessType = icUseDefault
        Dim vntHtml As Variant
        vntHtml = Inet1.OpenURL(Me.txtUrl.Text)
        'Text1.Text = vntHtml
        '        测试使用inet控件来取得HTML
        '**************************************
        DHTMLEdit1.DocumentHTML = vntHtml
可是vntHtml的值不能给到DHTMLEdit1.DocumentHTML，vntHtml已经取到数据了。
WebBrowser控件得到的HTML为什么多出一些东西？
使用：
        Web.Navigate txtUrl.Text
        strHtml=Web.Document.All(0).outerHTML
可是发现strHtml和IE得到的HTML比较，有时候多了一些东西，如多了1个表什么的。烦。
请问：如何原汁原味的把网页中的HTML放到DHTMLEdit控件中呢？这个周末又不好过了。

Answer 1

我看了一下，DHTMLEdit能够获取INet控件给出的html，但如果网页是XML解析的，似乎无法正确显示出来。而WebBrowser控件读出来的HTML与INET是有点不同，估计是WEBBROWSER在显示的时候有其他的处理吧，不知道为什么。还有，偶读取WebBroser中的HTML方式与你的有点不同，参考一下    Dim objhtml
    Set objhtml = Me.WebBrowser1.Document.body.createTextRange()
    If Not IsNull(objhtml) Then
        Text2.Text = objhtml.htmlText
    End If

Answer 2

Dim objhtml
    Set objhtml = Me.WebBrowser1.Document.body.createTextRange()
    If Not IsNull(objhtml) Then
        Text2.Text = objhtml.htmlText
    End If
这样取到的HTML是body之间的HTML。

Answer 3

奇怪：为什么
     '**************************************
        '        测试使用inet控件来取得HTML
        Inet1.AccessType = icUseDefault
        Dim vntHtml As Variant
        vntHtml = Inet1.OpenURL("http://news.sohu.com/")
        'Text1.Text = vntHtml
        '        测试使用inet控件来取得HTML
        '**************************************
这样也出错？出现Runtime error'13'" type mismatch  错误，是否news.sohu.com太长了?

Answer 4

使用XML获得HTML,比其他的方式好,然后对其处理后,大多数可以提供给DHTMledit控件使用.