11-06-17, 03:36 PM
عند الضغط علي رابط معين يقوم بفتح الصفحه الجديده في الانترنت اكسبلورر
انا اريده يقوم بفتحه في تاب جديده في نفس البرنامج لا اريدها في الانترنت اكسبلورر
قمت بتجربه عدت اكواد ولم تنجح
منها هذا الكود
انا اريده يقوم بفتحه في تاب جديده في نفس البرنامج لا اريدها في الانترنت اكسبلورر
قمت بتجربه عدت اكواد ولم تنجح
منها هذا الكود
كود :
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
"اللهم إنفعنا بما علمتنا ، وعلّمنا ما ينفعنا ، وزدني علما"