[سعود]

السلام عليكم ورحمة الله وبركاته
كما يعلم الكثير يوجد حدث NewWindow
كيف اسند رابط للنافذة بالكود

PHP كود :

       e.Cancel = True
        Dim t As New TabPage
        Dim newtab As New Tab
        newtab.Show()
        newtab.TopLevel = False
        newtab.Dock = DockStyle.Fill
        t.Controls.Add(newtab)
        Form1.TabControl1.TabPages.Add(t)
        newtab.WebBrowser1.Navigate("www.vb4arb.com") 


طبعا الرابط كتبته كتجربة فقط اود اقتناص الرابط واضعه بدل المكتوب

[الوادي]

يا سعود،

أنا وقفت عند Dim newtab As New Tab ما هو ال Tab أكيد ليس TabPage

[سعود]

هذا فورم عادي لكن قمت بتعديل البوردر كنت اطبق شرح باليوتيوب How to make a advanced web browser in visual basic - YouTube
حاولت اجيب الرابط لكن ماحصلته بالضبط

---

هذا هو
https://www.youtube.com/watch?v=oLvHlyyjZSM

[الوادي]

يا سعود،

أول ما شغلت الفيديو  وبدا يهرج انفجعت حسبت اني في طيرة والكابتن قاعد يهرج. 

عموماً، هذا معقد المسألة لو استخدم UserControl أحسن له.

لكن الموضوع ما هو معقد لهذه الدرجة.

[سعود]

الطريقة سهلة وتم بشكل جيد لكن الجزئية ماتطرق لها اساسا لكن انت سالت عن Tab وكتبت الرابط
وجدت طريقة لكنها لاتنجح  بكل الاحوال يعني مرة تنجح و مرة  تفشل

كود :

       e.Cancel = True
       Dim t As New TabPage
       Dim newtab As New Tab
       newtab.Show()
       newtab.TopLevel = False
       newtab.Dock = DockStyle.Fill
       t.Controls.Add(newtab)
       Form1.TabControl1.TabPages.Add(t)
       Dim myelement As HtmlElement = WebBrowser1.Document.ActiveElement
       Dim target As String = myelement.GetAttribute("href")
       newtab.WebBrowser1.Navigate(target)

[الوادي]

يا سعود،

هل تقصد عند الضغظ على رابط يفتح في نافذة جديدة؟

[سعود]

(28-06-16, 07:33 AM)الوادي كتب : يا سعود،

هل تقصد عند الضغظ على رابط يفتح في نافذة جديدة؟

هو اصلا يفتح بنافذة جديدة للمستعرض المنفصل  وهذا الكود e.Cancel = True يلغي هذا الاجراء واود فتح الرابط بتبويبة جديدة

[الوادي]

يا سعود،

تفضل هذا الجزء المهم من ما تريد

PHP كود :

' تحديد الوصلة النشطة '
Dim activeElement As HtmlElement = wb.Document.ActiveElement

' "href" أخذ العنوان من السمة '
Dim url As String = activeElement.GetAttribute("href")