选择自 http://dev.csdn.net/user/2066 的 Blog
If you trap the NewWindow2 event for the WebBrowser control, you can stop all new windows opening, like this:
Code:
AxWebBrowser1_NewWindow2(
e.cancel =
Code:
AxWebBrowser1_NewWindow2(
ieChildBrowser =
ieChildBrowser.RegisterAsBrowser =
e.ppDisp = ieChildBrowser
Code:
strURL = ieChildBrowser.Document.URL
ieChildBrowser.Quit()
ieChildBrowser =
AxWebBrowser1.Navigate2(strURL)