دخول

**المحب**

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

اريد كود عمل 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]

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

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

المواضيع المحتمل أن تكون متشابهة .
الموضوع :		الكاتب	الردود :	المشاهدات :	آخر رد
	السلام عليكم ورحمة الله وبركاته	محمد علي 123	2	1,136	10-04-24, 04:36 AM آخر رد: emadahmed1995
	السلام عليكم	رشاد حبيب	2	210	12-03-24, 02:43 PM آخر رد: رشاد حبيب
	سؤال بسيط يا احبتى فى الله	خالد كامل1	4	318	07-01-24, 12:55 AM آخر رد: Mujahef
	السلام عليكم	رشاد حبيب	3	308	27-12-23, 01:25 PM آخر رد: رشاد حبيب
	[VB.NET] السلام عليكم ممكن مساعدة اخوان احتاج يكون تسجيل الدخول textbox1 + textbox2	Coder_iraqii	4	409	18-12-23, 06:46 PM آخر رد: Kamil
	طلب مساعدةالسلام عليكم	المستجد	1	232	01-09-23, 04:33 AM آخر رد: اسامه الهرماوي
	السلام عليكم	ابو اسماعيل33	1	321	27-08-23, 12:55 AM آخر رد: ابو انس
	السلام عليكم اريد فتح تطبيق Whatsapp علما بان الواتس ليس لديه مسار ملف بويندوز 10	moh61	7	549	02-08-23, 10:00 PM آخر رد: ahmed_king2023
	من يعلم ما هذا الخطأ وكيف تصحيحه؟ جزاكم الله خيراً	hazim1	2	373	14-07-23, 01:41 PM آخر رد: hazim1
	[VB.NET] ياريت مساعدة سريعة بالله عليكم	hanylever	4	578	10-06-23, 02:24 AM آخر رد: dr.programming