Private Sub WebBrowser_Navigating(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs) Handles WebBrowser.Navigating
If e.TargetFrameName = "_blank" Then e.Cancel = True
End Sub
Private Sub WebBrowser1_NewWindow3(ByVal sender As Object, ByVal e As AxSHDocVw.DWebBrowserEvents2_NewWindow3Event) Handles WebBrowser1.NewWindow3
Dim nForm As Browser = New Browser
nForm.Show()
e.ppDisp = nForm.WebBrowser1.GetOcx
End Sub
mdx писал(а):Мож кому ещё пригодится...
mdx писал(а):Нашел решение:
WebBrowser из WinForms - на свалку!
Пользуюсь обычным ocx'ом. Там - по событию NewWindow3
- Код: Выделить всё
Private Sub WebBrowser1_NewWindow3(ByVal sender As Object, ByVal e As AxSHDocVw.DWebBrowserEvents2_NewWindow3Event) Handles WebBrowser1.NewWindow3
Dim nForm As Browser = New Browser
nForm.Show()
e.ppDisp = nForm.WebBrowser1.GetOcx
End Sub
Мож кому ещё пригодится...
Private Sub WebBrowser1_NewWindow(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles wb1.NewWindow
e.Cancel = True
Dim a As New Form1
a.Show()
End Sub
Сейчас этот форум просматривают: Yandex-бот и гости: 10