[DUDA] abrir ventana de banner en otro WebBrowser

[NsTeam]

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 =/

[coco]

q queres hacer, no entendi? el ejemplo funciona bien!

[NsTeam]

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

[ssccaann43]

Form2.Command2.enabled=True

[NsTeam]

creo q no me deje entender

pongo una img ...



algo asi como

if "New Form1" then
command2.enabled = true
end if

[coco]

bueno entonces en  NewWindow2 pone:

Código: [Seleccionar]

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean) 
command2.enabled = true
.....
End Sub

saludos

[wolf_kof]

  Prueba

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  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