假设放置Webbrowser组件的是Form1,那么在这个webbrowser的NewWindow2事件中加入以下代码:
Dim frmWB As Form1
Set frmWB = New Form1
frmWB.WebBrowser1.RegisterAsBrowser = TRUE
Set ppDisp = frmWB.WebBrowser1.Object
frmWB.Visible = True
就可以新开一个自己的窗口浏览用户点击的连接了。
假设放置Webbrowser组件的是Form1,那么在这个webbrowser的NewWindow2事件中加入以下代码:
Dim frmWB As Form1
Set frmWB = New Form1
frmWB.WebBrowser1.RegisterAsBrowser = TRUE
Set ppDisp = frmWB.WebBrowser1.Object
frmWB.Visible = True
就可以新开一个自己的窗口浏览用户点击的连接了。