تقييم الموضوع :
  • 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


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




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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مثال] مساعده الله يجزيكم خير bakriano30@yahoo.com 5 111 أمس, 11:38 PM
آخر رد: bakriano30@yahoo.com
  [سؤال] ممكن مساعده في حل هذي المشكله لو سمح moh123456 1 64 21-08-19, 10:12 PM
آخر رد: ابراهيم ايبو
  [سؤال] مساعده في الكود اليوم السابع 14 281 02-08-19, 06:58 AM
آخر رد: asemshahen5
  مساعده في كود متابعة المستخدمين Emam emam 4 149 31-07-19, 07:33 PM
آخر رد: Emam emam
  [VB.NET] محتاج مساعده في كود ارجوكم انا علي يقين هلاقي حد يساعدني bakriano30@yahoo.com 12 322 30-07-19, 12:51 PM
آخر رد: asemshahen5
  [VB.NET] السلام عليكم اخواني واخواتي اريد مساعده في تصدير بيانات الداتا قريد فيو الي اكسل hosamloveme888@yahoo.com 2 107 24-07-19, 01:40 PM
آخر رد: asemshahen5
  [VB.NET] مساعده الله يجزيكم خير bakriano30@yahoo.com 0 68 17-07-19, 08:56 AM
آخر رد: bakriano30@yahoo.com
  محتاج مساعده مهمه جدا ياريت الافاده محمود الجبود 3 202 08-07-19, 12:20 AM
آخر رد: محمود الجبود
  web browser والتحديث dasktop 3 174 28-06-19, 01:03 AM
آخر رد: سعود
  [VB.NET] مساعده في تصحيح كود sent number dubai.eig 7 245 20-04-19, 11:34 AM
آخر رد: elgokr

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


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