Este simple ejemplo muestra como podemos bloquear mediante el evento NewWindows2 del Control WeBrowser de Visual basic, una ventana PopUp o ventana emergente.
Controles
* Colocar en un Formulario un control WebBrowser llamado WebBrowser1
* Un control CheckBox Check1.
Nota: Si el Ckeck1 está activado, en el evento NewWindow2 del Control Web, se coloca la variable Cancel en True , para que de esta manera cancelar la ejecución del navegador predeterminado de windows.
Código fuente en un Formulario:
Option Explicit
'Colocar un control checkBox ( Ckeck1 ) y un control WebBrowser _
, si el check está en True, en el evento NewWindow2 _
del Control Web, se pone la variable Cancel en True
'Importante: abrir una página que sea una ventana PopUp
'---------------------------------------------------------------------
Private Sub Command1_Click()
'Le indicamos al control Webbrowser que navegue a una url
WebBrowser1.Navigate "www.una_url_que_tenga_PopUp.com"
End Sub
Private Sub webbrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
'Si está activado el check1 entonces Cancelamos y evitamos el popUp
If Check1 Then Cancel = True
End Sub