在原来的控件中打开: Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean) Set ppDisp = WebBrowser1.Object End Sub
在原来的控件中打开:处理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
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Set ppDisp = WebBrowser1.Object
End Sub
'使新窗口始终在本浏览器里打开
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