السلام عليكم ورحمة الله وبركاته
كما يعلم الكثير يوجد حدث 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
يا سعود،
أول ما شغلت الفيديو وبدا يهرج انفجعت حسبت اني في طيرة والكابتن قاعد يهرج.
عموماً، هذا معقد المسألة لو استخدم 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")