Hola a todos!! Bueno, estoy creando un navegador de internet en VB.NET, y de momento todo bien, pero me han surgido algunos problemillas, y espero que puedan ayudarme. El primer problema es que con los popups, enlaces que se abren en otra ventana,etc se me abre el internet explorer, y es una faena, bueno, pues he hecho que se me abra otra ventana de mi navegador para ver esas paginas, pero se me sigue abriendo el internet explorer (junto con mi navegador).De momento tengo este codigo para que se abra otra ventana de mi navegador:
Private Sub WB1_NewWindow(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles WB1.NewWindow
Dim frm_web As Form1
'Nueva instancia del formulario
frm_web = New Form1
frm_web.Show()
frm_web.WB1.Navigate(lbEstado.Text)
End Sub
Que puedo hacer para que no se abra el internet explorer? Por favor, ayudenme. Muchas gracias por adelantado.
Saludos!!
Bueno pues veo que ya tenias el codigo listo para abrir el popup con tu propio webbrowser, pero ademas de abrirse en el tuyo se abria en el Iexplorer, pues lo unico que necesitabas era agregar esta linea
e.Cancel = True 'Evita que se abra el iexplorer
Tu codigo quedaria asi
Private Sub WB1_NewWindow(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles WB1.NewWindow
e.Cancel = True 'Evita que se abra el iexplorer
Dim frm_web As Form1
'Nueva instancia del formulario
frm_web = New Form1
frm_web.Show()
frm_web.Width = 200
frm_web.Height = 200
frm_web.WB1.Navigate(lbEstado.Text)
End Sub
Muchas gracias Surfiction por tu codigo!! Ahora ya va perfecto. Pero ahora tengo otra duda. Me gustaria ponerle pestañas al navegador para que se abriesen los popup's en pestañas distintas. De momento investigando sin parar he conseguido (eso creo ;D) crear otra pestaña, en ejecucion, al TabControl con el siguiente codigo:
Dim myTabPage As New TabPage()
myTabPage.Text = "TabPage" & (TabControl.TabPages.Count + 1)
TabControl.TabPages.Add(myTabPage)
Bueno, ese codigo se ejecuta al pulsar un boton para abrir una nueva pestaña, y para que se hiciese automatico al saltar un popup supongo que seria colocarlo al igual que el anterior. Bueno, mi pregunta ahora es, como puedo hacer para que se cree dentro de myTabPage un webbrowser igual que el que tengo en un principio,para poder usar los botones de navegación,etc... Por favor, diganme como hacer para la navegación por pestañas. Muchas gracias por la ayuda.
Saludos!!
Con esto bastara para que se abra en una pestaña nueva
Private Sub WebBrowser1_NewWindow(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles WebBrowser1.NewWindow
e.Cancel = True
Dim nueva As New TabPage
Dim navegador As New WebBrowser
nueva.Text = lbEstado.Text
navegador.Size = WebBrowser1.Size
navegador.Parent = nueva
navegador.Navigate(lbEstado.Text)
pagina.TabPages.Add(nueva)
End Sub
Hola y muchas gracias de nuevo por tu ayuda!! Bueno, una vez hecho esto (que se me abra una nueva pestaña al haber un popup), pero ahora se me presenta un nuevo problema, y sinceramente no se si sera posible solucionarlo, porque yo no encontre nada en internet y solo me queda buestra ayuda!
Bueno, tengo un ComboBox desde el pongo la URL y navega, pero como puedo hacer para que al tener otra pestaña abierta el ComboBox sirva tambien para navegar dentro del WebBrowser nuevo creado en la nueva pestaña, y ademas que los botones de navegacion funcionen dependiendo de la tabla que este seleccionada.
Muchas gracias!!
Saludos!!
disculpa no e tenido tiempo pa entrar , pero ahorita buskamos la forma de resolver eso ^^
ok, no te preocupes. Espero tu respuesta.
Saludos!!
oye amigo jota me puedes decir como llamas al metodo webbrowser_newwindow
te lo agradeceria mucho
Hola a todos!!! yo tengo un gran problema para mi caso... es que cuando me abre la nueva ventana me carga los 2 hipervinculos a la vez...
yo lo que quiero es que solo cargue en la popup que se abre... como debe ser...
alguien tiene idea?
el codigo que utilizo es:
Private Sub WebBrowser1_NewWindow(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles WebBrowser1.NewWindow
Dim NewURL As String = CType(sender, WebBrowser).StatusText
Dim frmNew As New explorer2
frmNew.WebBrowser1.Navigate(NewURL)
frmNew.Size = New Size(600, 780)
e.Cancel = True
WebBrowser1.Stop()
frmNew.Show()
End Sub