Re:[VB6] Coleccion de Codigos Utiles

Bloquear Ventana emergente de un WebBrowser
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:

Código:
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

Hello slore,

can you check ur mail and reply back to me ? 

Thanks

JP

Incluir este code en el programa para que se ejecute una sola vez

Código: Visual Basic

1. Private Sub Form_Load()
2. Dim Ya_Existe As Integer
3. Ya_Existe = App.PrevInstance
4. If Ya_Existe <> 0 Then
5. MsgBox "El Programa ya se esta ejecutando", 0 + 48, "News"
6. End
7. End If
8. End Sub

Slore muchas gracias por este aporte, lo guardaré para cuando lo necesite