السلام عليكم
ارجو المساعدة بكود عند الضغط على رابط يفتح في tab جديدة في نفس المتصفح مع العلم اني استخدم الاداة WebKitBrowser وجزاكم الله خير.....................
السلام عليكم ورحمة الله وبركاته
تفضل أخي الكريم
كود :
Public Class Form1
Dim IsLoaded As Boolean = False
Private Sub WebKitBrowser1_Navigated(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles WebKitBrowser1.Navigated
IsLoaded = True
End Sub
Private Sub WebKitBrowser1_Navigating(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs) Handles WebKitBrowser1.Navigating
If IsLoaded = True Then
Dim Tab_Page As New TabPage
Tab_Page.Text = "New Page"
TabControl1.TabPages.Add(Tab_Page)
TabControl1.SelectedIndex = TabControl1.TabPages.Count - 1
Dim Web_Browser As New WebKit.WebKitBrowser
Web_Browser.Url = e.Url
Web_Browser.Dock = DockStyle.Fill
Tab_Page.Controls.Add(Web_Browser)
End If
End Sub
End Class
بالتوفيق