呵呵,正确的做法是处理WebBrowser1_NewWindow2,而在WebBrowser1_NewWindow2中你是无法简单获得URL的 Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean) frmnew.WebBrowser1.RegisterAsBrowser = True Set ppDisp = frmnew.WebBrowser1 End Sub
使用自己的控件打开新的窗口而阻止IE的方法 在NewWindow2事件中 使用语句 set ppDisp=WebBrowse控件名.Object 其它不用添加任何代码如你所述添加以下代码 Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean) Set ppDisp = form2.form2中的webbrowse控件名.Object End Sub
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
frmnew.WebBrowser1.RegisterAsBrowser = True
Set ppDisp = frmnew.WebBrowser1
End Sub
在NewWindow2事件中
使用语句
set ppDisp=WebBrowse控件名.Object
其它不用添加任何代码如你所述添加以下代码
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Set ppDisp = form2.form2中的webbrowse控件名.Object
End Sub