如何在vb6中添加元标签？
如何在vb6中添加元标签？
提问于 2018-12-07 02:20:34
HTMLHeadElement vb6添加元
我有vb6(旧版本)和这段代码Dim helement As HTMLHeadElement，我想把这个元标记(<meta http-equiv="X-UA-Compatible" content="IE=edge" />)添加到文档- WebBrowser1.document中
回答 1
Stack Overflow用户
回答已采纳
发布于 2018-12-07 04:43:56
基于此代码- DocumentComplete子中的http://vbcity.com/forums/t/49404.aspx将文档打印到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页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/53657501
复制相关文章
相似问题