[qadar elzaman]

عند الضغط علي رابط معين يقوم بفتح الصفحه الجديده في الانترنت اكسبلورر

انا اريده يقوم بفتحه في تاب جديده في نفس البرنامج لا اريدها في الانترنت اكسبلورر

قمت بتجربه عدت اكواد ولم تنجح

منها هذا الكود

كود :

Public Class Form1


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

           Dim StartingUrl As String = "http://www.dreamincode.net/forums/topic/381977-opening-links-in-new-tabs-in-my-tabbed-webbrowser/"

           newTab(StartingUrl)

       End Sub

   

       Private Sub newTab(ByVal url As String)

           Dim browser As New WebBrowser

           AddHandler browser.NewWindow, AddressOf BrowserNewWindow

           AddHandler browser.DocumentCompleted, AddressOf BrowserDocumentCompleted

           With browser

               .Dock = DockStyle.Fill

               .ScriptErrorsSuppressed = True

               .Navigate(url)

           End With

           Dim tp As New TabPage("Loading...")

           tp.Controls.Add(browser)

           TabControl1.Controls.Add(tp)

           TabControl1.SelectedTab = tp

       End Sub

       Private Sub BrowserNewWindow(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs)

           Dim wb As WebBrowser = DirectCast(sender, WebBrowser)

           Dim element As HtmlElement = wb.document.ActiveElement

           Dim newurl As String = element.GetAttribute("href")

   

           e.Cancel = True

   

           newTab(newurl)

       End Sub

   

       Private Sub BrowserDocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)

           Dim wb As WebBrowser = DirectCast(sender, WebBrowser)

           wb.Parent.Text = wb.DocumentTitle

       End Sub

   End Class