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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  يطلع رساله ( انه فيه خطأ ) اتمني دعمك "visual basic 2015 ", اسعدكم الله Abdulhadi 8 104 01-10-17, 09:13 AM
آخر رد: Abdulhadi
  [VB.NET] السلام عليكم ارجو المساعدة يااعضاء ومشرفي المنتدي الكرام بشكل عاجل MOHAMED.2030 0 66 27-09-17, 05:46 PM
آخر رد: MOHAMED.2030
  [VB.NET] السلام عليكم ارجوا المساعدة في التكست بوكس محمد بوقزاحة 2 96 26-09-17, 11:31 AM
آخر رد: محمد بوقزاحة
  [SQL] السلام عليكم امل عوض 2 94 21-09-17, 07:06 PM
آخر رد: أبو نوره
  جديد علي الفجول بيسك ...احتاج مساعده (اسعدكم الله جميعا) Abdulhadi 13 395 18-09-17, 05:57 PM
آخر رد: Abdulhadi
  [VB.NET] السلام عليكم ارجوا المساعدة في تصمم برنامج لاخذ نسخة احتياطية محمد بوقزاحة 3 144 13-08-17, 11:43 PM
آخر رد: khodor1985
  ارجو المساعدة حفظكم الله rabeh.ram 2 207 16-05-17, 10:16 PM
آخر رد: rabeh.ram
  سلام عليكم ... مساعدة في اكمال المشروع لو سمحتوا ramimohammed 1 176 11-05-17, 09:56 AM
آخر رد: جميل علي
Information [سؤال] السلام عليكم أخواني انا اوس من العراق مبرمج مبتدء وانا اقوم الأن بأنشاء اول مشروع لي اوس باسم عبد الحميد 3 221 29-04-17, 02:06 AM
آخر رد: اوس باسم عبد الحميد
  السلام عليكم مساعدة هامة اخواني قاعدة بيانات اكسيس 2007 تعطلت mohammed.gadain61 4 214 23-04-17, 11:04 PM
آخر رد: عبـدالله

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


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