VB 指定IE控件WebBrowser内核版本的方法

虽说微软已经放弃ie了但是实际应用中还有ie存在，且有时候用vb6写测试程序，特别是再老机器上跑是有需求的。因此记录一下一些使用技巧。VB 指定IE控件WebBrowser内核版本的方法如下

'值 说明
'10001 (0x2711)  Internet Explorer 10。网页以IE 10的标准模式展现，页面!DOCTYPE无效
'10000 (0x02710) Internet Explorer 10。在IE 10标准模式中按照网页上!DOCTYPE指令来显示网页。Internet Explorer 10 默认值。
'9999 (0x270F)   Windows Internet Explorer 9. 强制IE9显示，忽略!DOCTYPE指令
'9000 (0x2328)   Internet Explorer 9. Internet Explorer 9默认值，在IE9标准模式中按照网页上!DOCTYPE指令来显示网页。
'8888 (0x22B8)   Internet Explorer 8，强制IE8标准模式显示，忽略!DOCTYPE指令
'8000 (0x1F40)   Internet Explorer 8默认设置，在IE8标准模式中按照网页上!DOCTYPE指令展示网页
'7000 (0x1B58)   使用WebBrowser Control控件的应用程序所使用的默认值，在IE7标准模式中按照网页上!DOCTYPE指令来展示网页。
'注：11000(0×2af8)    IE11

'特别注意：以下函数必须要编译才有效（以IE11为例）
Public Sub 指定IE控件的内核版本为IE11()
        Dim w
        Set w = CreateObject("wscript.shell")
        w.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION\" & App.EXEName + ".exe", "11000", "REG_DWORD"
        Set w = Nothing
End Sub

转载自VB 指定IE控件WebBrowser1的内核版本为IE11_老侠客VB6.0的博客-CSDN博客