Problema navegador VB.net

[Hellsoul]

Nuenas tardes a todos y feliz 2011, bien voy directo al grano, mi problema es el siguiente: tengo un navegador en vb.net y lo k kiero es hacer que cuando le de a un click a un link este me abra el popup o la ventana k genara me la abra en una tab nueva, mi codigo es el siguiente:

Private Sub WebBrowser1_NewWindow(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles Navegador.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.Navegador.Navigate(TextBox1.Text)
frm_web.Show()

End Sub

bien con esto se supone que debe hacerlo pero lo que hace es que me genera una nueva ventana pero con mi navegador y me repite el contenido.


Ok este es otro fragmento de código: el cual me lo genera en otro tab pero me borra el 1er tab. osea em lod eja en blanco y me repite el contenido y no muestra el contenido que debe mostrar

Private Sub WebBrowser1_NewWindow(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles navegador.NewWindow

e.Cancel = True
Dim nueva As New TabPage
Dim navigator As New WebBrowser
nueva.Text = textbox1.Text
navigator.Size = WebBrowser1.Size
navigator.Parent = nueva
navigator.Navigate(textbox1.Text)
tabcontrol1.TabPages.Add(nueva)

End Sub

por favor si alguien me podría ayudar.... que lo haga !!!

[Aquaventus]

Hola Hellsoul aqui te mando unos links que estan en c# pero lo puedes convertir con las webs del final:

Ejemplos :
============================================
FireFox-like Tab Control
A .NET Flat TabControl (CustomDraw)
Customized TabControl by Repainting Microsoft's Panels
============================================

Convertores :
============================================
Convert C# to VB.NET
Code Converter
============================================

[Hellsoul]

bueno muchisimas gracias !! lo voy a probar a ver como me va .... luego te digo

[Hellsoul]

Bueno gracias de todas formas ya lo habia visto... estoy viendo como soluciono esto me urge tengo ese proyecto parado y es solo por eso

[Aquaventus]

Podrias poner una imagen de tu form? para verlo detalladamente

[Hellsoul]

Bien ya lo he solucionado, tube que hacer todo de nuevo, si ha alguien le sirve esto pues bien :

Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

AppManager.MainForm = Me
Dim ofrm As New frmBrowser
Dim oTab As New browser.TabPage(ofrm) ' Esto es lo que hace que se abra en un nuevo tab '

Me.tc1.TabPages.Add(oTab.Form) ' Aui simplemente añadimos la tab '


tc1.TabPages(0).CloseButtonVisible = False


' Estos ya son otros ajustes '

If AppManager.StartURL = "" Then
'Do we show the start page or have the browser go home?
If My.Settings.UseStartPage = True Then
ofrm.wb.DocumentText = My.Resources.StartPage
Else
ofrm.wb.GoHome()
End If
Else
ofrm.wb.Navigate(AppManager.StartURL)
End If

LoadFavorites()
LoadSearchProviders()
End Sub

Private Sub LoadHistory()
'
End Sub