- Код: Выделить всё
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim frmWB As Form1
Set frmWB = New Form1
Set ppDisp = frmWB.WebBrowser1.Object
frmWB.Visible = True
Set frmWB = Nothing
End Sub
А как в VB.NET'е
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim frmWB As Form1
Set frmWB = New Form1
Set ppDisp = frmWB.WebBrowser1.Object
frmWB.Visible = True
Set frmWB = Nothing
End Sub
Сейчас этот форум просматривают: AhrefsBot и гости: 20