منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كيف اعرف الرابط من خلال الحدث WebBrowser1_NewWindow - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كيف اعرف الرابط من خلال الحدث WebBrowser1_NewWindow (/showthread.php?tid=16286)



كيف اعرف الرابط من خلال الحدث WebBrowser1_NewWindow - سعود - 28-06-16

السلام عليكم ورحمة الله وبركاته
كما يعلم الكثير يوجد حدث 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"
طبعا الرابط كتبته كتجربة فقط اود اقتناص الرابط واضعه بدل المكتوب


RE: كيف اعرف الرابط من خلال الحدث WebBrowser1_NewWindow - الوادي - 28-06-16

يا سعود،

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


RE: كيف اعرف الرابط من خلال الحدث WebBrowser1_NewWindow - سعود - 28-06-16

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

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


RE: كيف اعرف الرابط من خلال الحدث WebBrowser1_NewWindow - الوادي - 28-06-16

يا سعود،

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

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

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


RE: كيف اعرف الرابط من خلال الحدث WebBrowser1_NewWindow - سعود - 28-06-16

الطريقة سهلة وتم بشكل جيد لكن الجزئية ماتطرق لها اساسا لكن انت سالت عن 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)



RE: كيف اعرف الرابط من خلال الحدث WebBrowser1_NewWindow - الوادي - 28-06-16

يا سعود،

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


RE: كيف اعرف الرابط من خلال الحدث WebBrowser1_NewWindow - سعود - 28-06-16

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

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

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


RE: كيف اعرف الرابط من خلال الحدث WebBrowser1_NewWindow - الوادي - 28-06-16

يا سعود،

تفضل هذا الجزء المهم من ما تريد
PHP كود :
' تحديد الوصلة النشطة '
Dim activeElement As HtmlElement wb.Document.ActiveElement

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