Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

[VB6] Coleccion de Codigos Utiles

  • 82 Respuestas
  • 55025 Vistas

0 Usuarios y 2 Visitantes están viendo este tema.

Desconectado Slore

  • *
  • Underc0der
  • Mensajes: 172
  • Actividad:
    0%
  • Reputación 0
  • OrwaySoftware
    • Ver Perfil
    • Email
  • Skype: OrwaySoftware
« Respuesta #80 en: Junio 09, 2012, 06:24:52 am »
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


Desconectado fisher5

  • *
  • Underc0der
  • Mensajes: 1
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
    • Email
  • Skype: fish.net6
« Respuesta #81 en: Mayo 09, 2015, 10:21:45 am »



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

Desconectado Seven of Nine

  • *
  • Underc0der
  • Mensajes: 1
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
« Respuesta #82 en: Julio 14, 2016, 09:01:56 pm »
Slore muchas gracias por este aporte, lo guardaré para cuando lo necesite

 

¿Te gustó el post? COMPARTILO!