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

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



طلب كود Add Tab - anasiq - 28-04-13

السلام عليكم....

لقد عملت متصفح انترنت بسيط واحتاج الى كود فتح نافذة ثانية للتصفح (New Tab)

سأرفق صورة توضيحية...................


طلب كود Add Tab - sooriaty03 - 28-04-13

السلام عليكم ورحمة الله وبركاته
تفضل أخي الكريم

كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Tab_Page As New TabPage
        Tab_Page.Text = "New Page"
        TabControl1.TabPages.Add(Tab_Page)
        TabControl1.SelectedIndex = TabControl1.TabPages.Count - 1
        Dim Web_Browser As New WebBrowser
        Web_Browser.Url = New Uri("http://www.google.com")
        Web_Browser.Dock = DockStyle.Fill
        Tab_Page.Controls.Add(Web_Browser)
    End Sub

بالتوفيق


طلب كود Add Tab - anasiq - 28-04-13

مشكوووووووووووووووووووور

لكني اريد وضع الاداة WebKitBrowser وليس WebBrowser


طلب كود Add Tab - sooriaty03 - 28-04-13

anasiq كتب :مشكوووووووووووووووووووور

لكني اريد وضع الاداة WebKitBrowser وليس WebBrowser

السلام عليكم ورحمة الله وبركاته

عفوا أخي الكريم
لكن ما بعرف هي الأداة وبحثت عنها فلم أجد نسخة للويندوز

بالتوفيق


طلب كود Add Tab - anasiq - 28-04-13

هذا رابط الاداة حملها
http://nightly.webkit.org


طلب كود Add Tab - sooriaty03 - 28-04-13

anasiq كتب :هذا رابط الاداة حملها
http://nightly.webkit.org

السلام عليكم ورحمة الله وبركاته

أخي الكريم الرابط السابق به الملفات الخاصة بنظام ماك
ولكن قمت بالبحث مرة أخرى حتى وجدت المكتبة الخاصة بالويندوز من الرابط التالي
WebKit.Net

حمل الملف ثم قم بإدراج الأداة WebKitBrowser

وضع الكود التالي وسيعمل بإذن الله

كود :
Dim Tab_Page As New TabPage
        Tab_Page.Text = "New Page"
        TabControl1.TabPages.Add(Tab_Page)
        TabControl1.SelectedIndex = TabControl1.TabPages.Count - 1
        Dim Web_Browser As New WebKit.WebKitBrowser
        Web_Browser.Url = New Uri("http://www.google.com")
        Web_Browser.Dock = DockStyle.Fill
        Tab_Page.Controls.Add(Web_Browser)

بالتوفيق


طلب كود Add Tab - anasiq - 30-04-13

مشكوووووووووووووووووووور اخييييييييييييييييييييييي نجح الكود بارك الله فيك


طلب كود Add Tab - ربيع - 30-04-13

نحمده ونصلي على رسوله الكريم

FireFox-like Tab Control


طلب كود Add Tab - sooriaty03 - 01-05-13

DreamsDotNet كتب :نحمده ونصلي على رسوله الكريم

FireFox-like Tab Control

السلام عليكم ورحمة الله وبركاته

جزاك الله خيرا أخي الحبيب على هذه الإضافة الجميلة

بالتوفيق