تقييم الموضوع :
  • 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]


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اسأل هنا و احنا نوصلك للحل بأسرع وقت إن شاء الله ahmed salam 44 3,548 25-11-16, 06:34 PM
آخر رد: thevirus
Question [VB.NET] نامل من الله السماعدة في برمجة زر امر حفظ البيانات في قاعدة البيانات ؟؟ Microformt 4 163 19-08-16, 10:07 PM
آخر رد: جميل علي
  مساعدة (جزاكم الله خيرا ً) محمد خلف زكي 5 154 13-08-16, 12:55 AM
آخر رد: khodor1985
  اريد كود جمع شباب الله يبارك فيكم عبدالمؤمن 2 198 10-08-16, 07:45 AM
آخر رد: أبو عمر
  [VB.NET] السلام عليكم أرجو حل لهذه المشكلة صبري زينوبي 2 123 18-07-16, 01:38 PM
آخر رد: صبري زينوبي
  [سؤال] السلام عليكم هل استطيع الحصول على كود في الفيجول بيزك 6 استطيع كتابة الحل المركب للمع hafezshaban 0 93 13-07-16, 02:21 AM
آخر رد: hafezshaban
  سلام عليكم اريد طريقة عمل محادثة بين الزبائن بالفجوال بيزك biloo20 1 278 27-05-16, 01:17 AM
آخر رد: CLARO
  [سؤال] السلام عليكم احبتي alaa1982 6 173 21-05-16, 02:08 AM
آخر رد: boudyonline
  السلام عليكم موضوع جد يد شرح لبرنامج واتس اب مصمم بالفيجول بيسيك و سي شارب رهف العريفي 10 539 04-05-16, 03:28 AM
آخر رد: رهف العريفي
  السلام عليكم محتاجة مثال لربط picbox ب حقل به صور بقاعدة البيانات وجلب الصور لل pic رهف العريفي 15 519 27-04-16, 01:03 AM
آخر رد: سعود

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


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