[Vb6] Necesito ayuda con mi programa [Webbrower][NUEVA PREGUNTA]

ANTERIOR POST escribió:

Hola Amigos de mundophp veo que hicieron un cambio se mudaron a foroactivo me alegro mucho
espero que me puedan solucionar el problema como soy fan de
gen avanzados
quiero tmbn hacer un browser pero ya casi en el final descubri que
necesito
que mi navegador cuando buscque un sitio el titutlo del sitio web
aparesca en la barra de arriba donde aparece el nombre del programa y su respectivo icono
si me pudiesen colarborar quedo agradecido

Atte Condoritox!

Hola amigos denuevo para no crear un nuevo tema ya que sigo teniendo problemas con mi navegador aunque gracias a gen
ya consegui lo del titulo , pero ahora necesito saber como hago 2 cosas
1) para ue la gente modifique la pagina de inicio y 2) como hago para abrir "nueva ventana" osea abro el mismo form ? como ?
expliquenme garcias

El icono no lo se hacer pero lo del titulo de la pagina:

Código:

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
Me.Caption = WebBrowser1.LocationName
End Sub

Gen-avanzados escribió:

El icono no lo se hacer pero lo del titulo de la pagina:

Código:

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
Me.Caption = WebBrowser1.LocationName
End Sub

Ok muchas gracias probaré , me dirias porque no te conectas al messenger ? jaj salu2 mejor que sea por mp o
facebook :S
porq seria desviar el tema asi q nos estamos hablando
Adios

Atte Condoritox!

Yo no se nada de Visual basic es gen quien sabe

Condoritox no me conecté al msn porque estaba ocupado aprendiendo C#, hoy me conectaré.

Esto para que cuando den a un link lo habra en otro form igual y no en explorer:

Código:

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

Y esto para que cuando den un boton abra otro form igual:

Código:

Private Sub Command1_Click()
'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

Si te fijas es lo mismo, lo de elejir la pagina no se hacerlo.