用WebBrowser控件实现多页面浏览器或弹出的网页在原来的或新的WebBrowser控件中显示

Question

用WebBrowser控件实现多页面浏览器或弹出的网页在原来的或新的WebBrowser控件中显示

Answer 1

http://www.m5home.com/bbs/dispbbs.asp?boardid=28&Id=429

Answer 2

在原来的控件中打开：
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean) 
    Set ppDisp = WebBrowser1.Object 
End Sub

Answer 3

在原来的控件中打开：处理NewWindow事件即可
'使新窗口始终在本浏览器里打开
    Private Sub WebBrowser1_NewWindow(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles WebBrowser1.NewWindow
        e.Cancel = True
        Navigate(WebBrowser1.StatusText)
    End Sub