Cita de: LeandroA en 16 Diciembre 2009, 00:20 AM
hola mira este link creo que es lo que buscas
http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/93.htm
Saludos.
Gracias me funciono a la perfeccion
EL COde es este
Código [Seleccionar]
Private Sub Command1_Click()
Cargamos la página en el control WebBrowser
WebBrowser1.Navigate "www.recursosvisualbasic.com.ar"
End Sub
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
'Cancelamos la ventana del explorador predeterminado
Cancel = True
Dim f As Form1
'Creamos un nuevo form a partir del Form1
Set f = New Form1
'Lo mandamos a la Url
f.WebBrowser1.Navigate MiUrl
'Lo mostramos
f.Show
'Eliminamos la variable
Set f = Nothing
End Sub
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
'Almacenamos la url
MiUrl = Text
End Sub
PEro.. tengo una duda
Ejemplo: cuando se dispara el evento NewWindow2 que el command2.enabled q estaba en false pase a true
en este caso seria .. en un timer
If "se abre otro form usando el evento NewWindow2" then
command2.enabled = true
End if
Intente hacerlo de varias formas... pero como que no me sale
talves alguna idea