تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعده بالتعامل مع web browser
#1
عند الضغط علي رابط معين يقوم بفتح الصفحه الجديده في الانترنت اكسبلورر

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

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

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


كود :
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


"اللهم إنفعنا بما علمتنا ، وعلّمنا ما ينفعنا ، وزدني علما"


الرد
تم الشكر بواسطة:
#2
UUUUUUUUUUUUUUUUUUUUUUUUUp

up up


up


"اللهم إنفعنا بما علمتنا ، وعلّمنا ما ينفعنا ، وزدني علما"


الرد
تم الشكر بواسطة:
#3
(11-06-17, 06:14 PM)qadar elzaman كتب : UUUUUUUUUUUUUUUUUUUUUUUUUp

up up


up

ممكن توضح شويا على شان توصل للحل
الرد
تم الشكر بواسطة: qadar elzaman
#4
عندي اداة webbrowser

عندي اداة tabcontrol

أريد عند الضغط على رابط بالصفحه داخل اداة webbrowser اريده ان يفتح tabpage جديده

لا ان يذهب الى الانترنت اكسبلولر ويفتح الصفحه هناك


"اللهم إنفعنا بما علمتنا ، وعلّمنا ما ينفعنا ، وزدني علما"


الرد
تم الشكر بواسطة:
#5
مارايك بالاطلاع على الرابط التالي:
http://vb4arb.com/vb/showthread.php?tid=...4#pid78984
الرد
تم الشكر بواسطة: qadar elzaman
#6
تابع هنا اخي http://vb4arb.com/vb/showthread.php?tid=20536
الرد
تم الشكر بواسطة: qadar elzaman , qadar elzaman
#7
بارك فيكم اساتذتي الكرام وبوركت جهودكم



وجدت الحل الحمدلله


وهذا الملف   السورس كود لمن اراد ان يستفيد :

https://up.top4top.net/downloadf-541ah2ou1-zip.html


وهوا بال سي شارب و وانا قد قمت بتحويله الى الدوت نت مع حذف بعد الاكواد 




"اللهم إنفعنا بما علمتنا ، وعلّمنا ما ينفعنا ، وزدني علما"


الرد
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم