Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: NsTeam en Febrero 04, 2010, 02:49:46 pm
-
hola
ya leandroA me habia resuelto el problema
http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/93.htm
pero tengo un pekeñito problema mas
Como ago para que cuando carge f.show
se habilite el command2.enabled = true
e tratado de probar
if f.show then
command2.enabled = true
end if
en un timer.... pero me manda error...
que ago mal =/
-
q queres hacer, no entendi? el ejemplo funciona bien!
-
me refiero a que cuando se abra el otro form (que va con referencia del link)
se abilite el command2.enabled = true
if se abre un nuevo form then
command2.enabled = true
end if
-
Form2.Command2.enabled=True
-
creo q no me deje entender
pongo una img ...
(http://www.mundoimg.com/imagenes/otros/224623_mundoimg_dibujo.jpg)
algo asi como
if "New Form1" then
command2.enabled = true
end if
-
bueno entonces en NewWindow2 pone:
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
command2.enabled = true
.....
End Sub
saludos
-
:) Prueba
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 pero primero command1 lo ponemos enabled verdadero
f.Command1.enabled = true
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