第1个回答 2011-11-12
Private Sub webbrowser1_NewWindow2( ByRef ppDisp As Object, ByRef Cancel As Boolean)
set Frmd = new form1
set ppdisp = frmd.webbrowser1.object
frmd.show
end if
简易多窗口浏览器,主要是ppdisp上下手。代码手工编写,绝对能行,除非我打错了。
有错误或问题请及时追问!我会即时改正。
第2个回答 2011-11-11
newwindow事件
set Webbrowser.Object=ppDisp
newwindow事件说明
Syntax
Private Sub object_NewWindow2( _
ByRef ppDisp As Object, _
ByRef Cancel As Boolean)
Parameters
object
Object expression that resolves to the objects in the Applies To list.
ppDisp
Object expression that, optionally, receives a new, hidden WebBrowser or InternetExplorer object with no URL loaded.
Cancel
Boolean value to determine whether the current navigation should be canceled.
true
Cancel the navigation.
false
Do not cancel the navigation.本回答被提问者采纳