[solucionado] Ayuda con command button

[Hugo1990]

Bueno lo q necesito es q al hacer click en el web browser (Tengo una publicidad hay) el command button pase a true pero no se como plzz ayuda...

este es el codigo q tengo hasta ahora

Código:

Private Sub Form_Load()
    WebBrowser1.Navigate "[PUBLICIDAD O LINK]"
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    WebBrowser1.Document.body.Scroll = "no"
    
    Command1.Enabled = False
    
End Sub

[Insomnia]

Hola

Seguro que existe algún método mas "profesional", pero puedes intentar poner un control label sobre el control WebBrowser del mismo tamaño y dejando el Caption vacío (para que quede transparente) y en el evento clic del label poner el botón visible.

--Saludos--

[Hugo1990]

Iniciado por Insomnia

Hola

Seguro que existe algún método mas "profesional", pero puedes intentar poner un control label sobre el control WebBrowser del mismo tamaño y dejando el Caption vacío (para que quede transparente) y en el evento clic del label poner el botón visible.

--Saludos--

no amigo lo intente pero no me unciono el label queda atras del webbrowser pero al darle click no pasa nada....

[Insomnia]

Cierto !!!

Lo he probado y no hay manera de poner el label encima del WebBrowser, por mucho que le de a traer al frente, siempre queda tras el WebBrowser.

Lo siento.

[culd]

Esto no tendria que enseñarte por que lucrarias

Código:

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If WebBrowser1.LocationURL = "http://urlcuandohaceclickenelbanner" Then
    'esto sifnifica que hiso click en el banner
End If
End Sub

Pero hoy estoy bueno

[Hugo1990]

Listo amigos ya lo pude hacer lo que hize fue crear un boton y en propiedades dejarlo en "ENABLED = False"

luego una declaracion del webbrowser asi:

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)

y colocarle

command1.enabled = true

el codigo final me quedo algo asi

Código:

rivate Sub Form_Load()

    WebBrowser1.Navigate ("mylink")
                                                                
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)

    WebBrowser1.Document.body.Scroll = "no"
    
End Sub

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)

    Command1.Enabled = True
  
End Sub