تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
السلام عليكم ورحمه الله وبركاته
#1
احبتي واصدقائي ...

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

مع الشكر الجزيل
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم
لو سمحت اخى ان تلتزم بقوانين المنتدى هذا العنوان مخالف
يجب كتابة عنوان يدل على المحتوى ("مطلوب - كود عمل 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]
الرد }}}}
تم الشكر بواسطة:
#3
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]


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] السلام عليكم ... ارجوا المساعدة .... كود الحفظ محمد بوقزاحة 0 8 منذ 1 ساعه مضت
آخر رد: محمد بوقزاحة
  السلام عليكم .... ارجوا المساعدة في الجمع التكست بوكس محمد بوقزاحة 8 155 08-02-17, 11:50 AM
آخر رد: محمد بوقزاحة
  السلام عليكم .... ارجوا المساعدة محمد بوقزاحة 2 97 01-02-17, 07:05 PM
آخر رد: محمد بوقزاحة
  السلام عليكم .... ارجوا المساعدة محمد بوقزاحة 11 265 31-01-17, 08:22 PM
آخر رد: محمد بوقزاحة
  اسأل هنا و احنا نوصلك للحل بأسرع وقت إن شاء الله ahmed salam 48 4,178 13-12-16, 06:11 PM
آخر رد: thevirus
Star [VB.NET] السلام عليكم اخوتي ف المنتدى احتاج الي مساعدة انا اصمم منظومة لشؤون العاملين بعد اض fatma anari 2 187 04-12-16, 11:04 AM
آخر رد: أبوبكر سويدان
Question [VB.NET] نامل من الله السماعدة في برمجة زر امر حفظ البيانات في قاعدة البيانات ؟؟ Microformt 4 264 19-08-16, 10:07 PM
آخر رد: جميل علي
  مساعدة (جزاكم الله خيرا ً) محمد خلف زكي 5 279 13-08-16, 12:55 AM
آخر رد: khodor1985
  اريد كود جمع شباب الله يبارك فيكم عبدالمؤمن 2 316 10-08-16, 07:45 AM
آخر رد: أبو عمر
  [VB.NET] السلام عليكم أرجو حل لهذه المشكلة صبري زينوبي 2 185 18-07-16, 01:38 PM
آخر رد: صبري زينوبي

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


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