دخول

**المحب**

احبتي واصدقائي ...

اريد كود عمل New Tab يعني في سبيل المثال عند الضغط على صورة او بوتن يفتح لنا تاب جديد مع الذهاب الى موقع معين من اختيارك ؟؟ هل من مساعدة ؟؟

مع الشكر الجزيل

**AHMED HUSSIEN** · 22-08-13, 01:15 PM

السلام عليكم
لو سمحت اخى ان تلتزم بقوانين المنتدى هذا العنوان مخالف
يجب كتابة عنوان يدل على المحتوى ("مطلوب - كود عمل New Tab")

تفضل هذا الكود

كود :

[color=#0000FF]Private[/color] [color=#0000FF]Sub[/color][color=#000000] NewTab(url [/color][color=#0000FF]As[/color] [color=#0000FF]String[/color][color=#000000])[/color]

        [color=#0000FF]Dim[/color][color=#000000] tb [/color][color=#0000FF]As[/color] [color=#0000FF]New[/color] [color=#2B91AF]TabPage[/color]

        [color=#0000FF]Dim[/color][color=#000000] wb [/color][color=#0000FF]As[/color] [color=#0000FF]New[/color] [color=#2B91AF]WebBrowser[/color]

[color=#000000]        tb.Controls.Add(wb)[/color]

[color=#000000]        wb.Dock = [/color][color=#2B91AF]DockStyle[/color][color=#000000].Fill[/color]

[color=#000000]        wb.Navigate(url)[/color]

        [color=#0000FF]AddHandler[/color][color=#000000] wb.DocumentCompleted, [/color][color=#0000FF]AddressOf[/color][color=#000000] DocumentCompleted[/color]

[color=#000000]        TabControl1.TabPages.Add(tb)[/color]

    [color=#0000FF]End[/color] [color=#0000FF]Sub[/color]

    [color=#0000FF]Private[/color] [color=#0000FF]Sub[/color][color=#000000] DocumentCompleted(sender [/color][color=#0000FF]As[/color] [color=#0000FF]Object[/color][color=#000000], e [/color][color=#0000FF]As[/color] [color=#2B91AF]WebBrowserDocumentCompletedEventArgs[/color][color=#000000])[/color]

        [color=#0000FF]Dim[/color][color=#000000] tb [/color][color=#0000FF]As[/color] [color=#2B91AF]TabPage[/color][color=#000000] = sender.Parent[/color]

        [color=#0000FF]Dim[/color][color=#000000] wb [/color][color=#0000FF]As[/color] [color=#2B91AF]WebBrowser[/color][color=#000000] = sender[/color]

[color=#000000]        tb.Text = wb.DocumentTitle[/color]

    [color=#0000FF]End[/color] [color=#0000FF]Sub[/color]

    [color=#0000FF]Private[/color] [color=#0000FF]Sub[/color][color=#000000] Button1_Click(sender [/color][color=#0000FF]As[/color] [color=#0000FF]Object[/color][color=#000000], e [/color][color=#0000FF]As[/color] [color=#2B91AF]EventArgs[/color][color=#000000]) [/color][color=#0000FF]Handles[/color][color=#000000] Button1.Click[/color]

[color=#000000]        NewTab(TextBox1.Text)[/color]

    [color=#0000FF]End[/color] [color=#0000FF]Sub[/color]

**المحب** · 22-08-13, 01:39 PM

AHMED HUSSIEN كتب :السلام عليكم
لو سمحت اخى ان تلتزم بقوانين المنتدى هذا العنوان مخالف
يجب كتابة عنوان يدل على المحتوى ("مطلوب - كود عمل New Tab")

تفضل هذا الكود

كود :

[color=#0000FF]Private[/color] [color=#0000FF]Sub[/color][color=#000000] NewTab(url [/color][color=#0000FF]As[/color] [color=#0000FF]String[/color][color=#000000])[/color] [color=#0000FF]Dim[/color][color=#000000] tb [/color][color=#0000FF]As[/color] [color=#0000FF]New[/color] [color=#2B91AF]TabPage[/color] [color=#0000FF]Dim[/color][color=#000000] wb [/color][color=#0000FF]As[/color] [color=#0000FF]New[/color] [color=#2B91AF]WebBrowser[/color] [color=#000000] tb.Controls.Add(wb)[/color] [color=#000000] wb.Dock = [/color][color=#2B91AF]DockStyle[/color][color=#000000].Fill[/color] [color=#000000] wb.Navigate(url)[/color] [color=#0000FF]AddHandler[/color][color=#000000] wb.DocumentCompleted, [/color][color=#0000FF]AddressOf[/color][color=#000000] DocumentCompleted[/color] [color=#000000] TabControl1.TabPages.Add(tb)[/color] [color=#0000FF]End[/color] [color=#0000FF]Sub[/color] [color=#0000FF]Private[/color] [color=#0000FF]Sub[/color][color=#000000] DocumentCompleted(sender [/color][color=#0000FF]As[/color] [color=#0000FF]Object[/color][color=#000000], e [/color][color=#0000FF]As[/color] [color=#2B91AF]WebBrowserDocumentCompletedEventArgs[/color][color=#000000])[/color] [color=#0000FF]Dim[/color][color=#000000] tb [/color][color=#0000FF]As[/color] [color=#2B91AF]TabPage[/color][color=#000000] = sender.Parent[/color] [color=#0000FF]Dim[/color][color=#000000] wb [/color][color=#0000FF]As[/color] [color=#2B91AF]WebBrowser[/color][color=#000000] = sender[/color] [color=#000000] tb.Text = wb.DocumentTitle[/color] [color=#0000FF]End[/color] [color=#0000FF]Sub[/color] [color=#0000FF]Private[/color] [color=#0000FF]Sub[/color][color=#000000] Button1_Click(sender [/color][color=#0000FF]As[/color] [color=#0000FF]Object[/color][color=#000000], e [/color][color=#0000FF]As[/color] [color=#2B91AF]EventArgs[/color][color=#000000]) [/color][color=#0000FF]Handles[/color][color=#000000] Button1.Click[/color] [color=#000000] NewTab(TextBox1.Text)[/color] [color=#0000FF]End[/color] [color=#0000FF]Sub[/color]

ارجوا المعذرة اسف سوف أقوم بتصحيح اسم الموضوع .. ولكن عندي سؤال هل استطيع وضع هذا الكود في بوتن ؟ يعني عند الضغط ع البوتن سوف يفتح تاب جديد مع الذهاب مثلا الى موقع الفيسبوك او اي موقع اخر انا احدده ؟؟ وهل استطيع التعديل ع الكود لوضع الرابط الذي اريد ادراجه ؟

دخول
إسم المستخدم
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة

المواضيع المحتمل أن تكون متشابهة .
الموضوع :		الكاتب	الردود :	المشاهدات :	آخر رد
	اين الخطأ فى هذا السطر _ جزاكم الله كل خير	abo ragab	2	654	10-08-25, 03:53 AM آخر رد: abo ragab
	[VB.NET] أين الخطأ فى هذا السطر وجزاكم الله خيرا	abo ragab	2	689	10-07-25, 09:35 PM آخر رد: abo ragab
	مشكلة فى فاتوره كاشير اكرمكم الله	خالد كامل1	5	659	22-02-25, 04:40 PM آخر رد: خالد كامل1
	سؤال لو سمحتم احبتى فى الله	خالد كامل1	4	810	09-02-25, 12:02 AM آخر رد: princelovelorn
	اريد كود معين اثابكم الله	خالد كامل1	1	456	04-02-25, 09:28 PM آخر رد: aliday03
	السلام عليكم ممكن كود بحث فى برنامج مصمم بالفيجوال بيسك وقاعدة بيانات اكسس	خالد كامل1	1	461	08-10-24, 02:37 PM آخر رد: salamandal
	سلام عليكم	ayman7662	1	258	12-09-24, 04:17 PM آخر رد: Taha Okla
	[VB.NET] ياريت مساعدة سريعة بالله عليكم	hanylever	5	935	12-09-24, 12:50 AM آخر رد: ayman7662
	السلام عليكم - محتاج كود لوحة الارقام في شاشة paid cash	Hamza8484	1	401	13-08-24, 10:23 AM آخر رد: تركي الحلواني
	[VB.NET] السلام عليكم لدي جدول فرعي وارد تحديث الجدول الرئيسي	raedre22	2	372	06-07-24, 12:50 PM آخر رد: raedre22