vba show webview2(microsoft edge Chromium)

Question

VBS loads Microsoft Web Control webview 2 (Edge-Chromium Google kernel)
————————————————
VBA loads the Webview2 browser kernel
Instead of IE's WebBrowser control, the effect is similar:
Resources: VBS loads webview2 controls instead of IE's webbrowser (Edge-Chromium Google kernel) resource - CSDN library

set IE = CreateObject("InternetExplorer.Application")
IE. Visible = true
IE. Navigate "https://www.baidu.com/"
————————————————
Image: https://img-blog.csdnimg.cn/5eea2c407ade4bba9851ff7ecf078a0d.png

Comments

[xiaoyaovb6]

Set New_c = CreateObject("RC6.cConstructor")
Set Cairo = New_c.Cairo
Cairo.SetDPIAwareness
Cairo.ImageList.AddIconFromResourceFile "frmIco", "shell32", 167

Set Form = Cairo.WidgetForms.Create(2, "VBS加载微软网页控件 WebView2(edge) 自动化软件开发定制 QQ： 2776478814", False)
Form.Visible = True
Form.IconImageKey = "frmIco"

Set WV = New_c.WebView2(Form.hWnd)
dim Url
url=inputbox("","请输入网址","http://www.baidu.com")
WV.Navigate url

' WV.Navigate "https://WWW.BAIDU.COM/"

Answer 1

Set New_c = CreateObject("RC6.cConstructor")
Set Cairo = New_c.Cairo
Cairo.SetDPIAwareness
Cairo.ImageList.AddIconFromResourceFile "frmIco", "shell32", 167

Set Form = Cairo.WidgetForms.Create(2, "VBS WebView2(edge) ", False)
Form.Visible = True
Form.IconImageKey = "frmIco"

Set WV = New_c.WebView2(Form.hWnd)
dim Url
url=inputbox("","","http://www.baidu.com")
WV.Navigate url

' WV.Navigate "https://WWW.BAIDU.COM/"