Sección de códigos , trucos y ejemplos para visual basic

7 - Bloquear una ventana emergente de un control WebBowser con el evento NewWindow2

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

Recursos vb 6.0 - Enlaces relacionados

Abrir una nueva instancia de un control WebBrowser con nuestro propio programa

Buscar en Recursos vb