تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف اعرف الرابط من خلال الحدث WebBrowser1_NewWindow
#1
السلام عليكم ورحمة الله وبركاته
كما يعلم الكثير يوجد حدث 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"
طبعا الرابط كتبته كتجربة فقط اود اقتناص الرابط واضعه بدل المكتوب
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#2
يا سعود،

أنا وقفت عند Dim newtab As New Tab ما هو ال Tab أكيد ليس TabPage
الرد }}}}
تم الشكر بواسطة:
#3
هذا فورم عادي لكن قمت بتعديل البوردر كنت اطبق شرح باليوتيوب How to make a advanced web browser in visual basic - YouTube
حاولت اجيب الرابط لكن ماحصلته بالضبط

هذا هو
https://www.youtube.com/watch?v=oLvHlyyjZSM
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#4
يا سعود،

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

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

لكن الموضوع ما هو معقد لهذه الدرجة.
الرد }}}}
تم الشكر بواسطة:
#5
الطريقة سهلة وتم بشكل جيد لكن الجزئية ماتطرق لها اساسا لكن انت سالت عن 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)
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#6
يا سعود،

هل تقصد عند الضغظ على رابط يفتح في نافذة جديدة؟
الرد }}}}
تم الشكر بواسطة:
#7
(28-06-16, 07:33 AM)الوادي كتب : يا سعود،

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

هو اصلا يفتح بنافذة جديدة للمستعرض المنفصل  وهذا الكود e.Cancel = True يلغي هذا الاجراء واود فتح الرابط بتبويبة جديدة
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#8
يا سعود،

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

' "href" أخذ العنوان من السمة '
Dim url As String activeElement.GetAttribute("href"
الرد }}}}
تم الشكر بواسطة: سعود


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] تسجيل دخول الفيس من خلال تطبيق ابو روضة 0 28 أمس, 03:55 PM
آخر رد: ابو روضة
  [VB.NET] جلب الرابط بعد التحويل؟ | httpwebrequest | get url after redirect الماجيك مسعد 4 91 17-11-16, 08:08 AM
آخر رد: الماجيك مسعد
Photo [VB.NET] سؤالى عن انواع البيانات اريد اعرف نوع روابط الانترنت elhon.tec 4 109 27-10-16, 11:38 AM
آخر رد: ممدوح
  الادخال والتعديل من خلال الليست بوكس makky 2 124 19-09-16, 07:57 PM
آخر رد: أبو عمر
  ممكن اعرف ازاي اربط بروجيكتين ببعض medoddd 1 73 19-09-16, 02:18 PM
آخر رد: ممدوح
  سؤال : ملأ TreeView من خلال الاداة Background Worker ابراهيم النعيمي 2 132 03-09-16, 09:11 PM
آخر رد: ابراهيم النعيمي
  [VB.NET] كيف يتم البحث في الويندوز من خلال البرنامج jassim316 8 235 30-08-16, 09:09 PM
آخر رد: jassim316
  [نقاش] كيف اعرف قيمة برنامجي و كم يكلف للبيع Rabeea Qbaha 13 474 30-08-16, 09:06 PM
آخر رد: Rabeea Qbaha
  [سؤال] كيف يتم استبدال إشارة مرجعية موجودة في ملف وورد من خلال برنامجي ؟ السندبااد 2 128 17-08-16, 10:56 AM
آخر رد: السندبااد
  [سؤال] كيف اجعل برنامجي يدعم اختصارات كيبورد من خلال ملف نصي zxz5432 1 135 09-08-16, 07:49 AM
آخر رد: zxz5432

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


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