Как добавить метатег в vb6?

Question

HTMLHeadElement vb6 добавить мета

У меня есть vb6 (старая версия) и этот код Dim helement As HTMLHeadElement Я хотел бы добавить этот метатег (<meta http-equiv="X-UA-Compatible" content="IE=edge" />) в документ - WebBrowser1.document

(примечание: эти метки - кусок дерьма)

Answer 1

на основе этого кода - http://vbcity.com/forums/t/49404.aspx в подпункте DocumentComplete - распечатывает документ в text2

   Dim htDoc As HTMLDocument
    Dim htHead As HTMLHeadElement
    Dim htMeta As HTMLMetaElement

    '<meta http-equiv="X-UA-Compatible" content="IE=edge" />

    Set htDoc = WebBrowser1.document
    Set htHead = htDoc.getElementsByTagName("HEAD").Item(0)
    htDoc.designMode = "on"
    'Set htMeta = htDoc.createElement("META")
    Set htMeta = htDoc.createElement("META")
    'htMeta.httpEquiv = "MSThemeCompatible"
    htMeta.httpEquiv = "X-UA-Compatible"
    'htMeta.content = "Yes"
    htMeta.content = "IE=edge"
    Set htMeta = htHead.insertAdjacentElement("afterBegin", htMeta)
    htDoc.designMode = "off"
    Set htMeta = Nothing
    Set htHead = Nothing
    Set htDoc = Nothing
    'getElementsByTagName("HEAD").Item(0)
    'Me.Text2.Text = WebBrowser1.document.body.innerHTML
    Me.Text2.Text = WebBrowser1.document.getElementsByTagName("HTML").Item(0).innerHTML