تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب كود في اداة ToolStrip
#1
Information 
السلام عليكم 

يا جماعة انا اريد كود لاضافة زر في اداة ToolStrip 

بشرح اسهل مثلا انا عندي زر ماشي ضغت علي الزر دي هيعمل 

1- هيضيف الزر لاداة ال ToolStrip Big Grin

بس ياريت بسرعة 

والسلام عليكم
موقعي (مدونتي):-
هنا

[url=https://sobertgueni.blogspot.com.eg/][/url]: )
الرد }}}}
تم الشكر بواسطة:
#2
تفضل

كود :
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim btn As New ToolStripButton
       'خصائص الزر
       btn.Text = "vb4arb"
       btn.Image = Image.FromFile("مسار الصورة")
       '
       ToolStrip1.Items.Add(btn) ' إضافته لعناصر الاداة
       AddHandler btn.Click, AddressOf OnClickSBtn1 'إنشاء حدث عن الضغط على الزر
   End Sub
   Sub OnClickSBtn1()
       MsgBox("LoveVb")
   End Sub

عند الضغط على الزر سينفذ الاكواد بداخل OnClickSBtn1
الْلَّهُم صَلِّ وَسَلِم وَبَارِك عَلَى سَيِّدِنَا مُحَمَّد

ماهو ال UrlEncoding
الرد }}}}
تم الشكر بواسطة: soper , الوادي
#3
(23-07-16, 09:15 PM)LoveVb كتب : تفضل

كود :
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim btn As New ToolStripButton
       'خصائص الزر
       btn.Text = "vb4arb"
       btn.Image = Image.FromFile("مسار الصورة")
       '
       ToolStrip1.Items.Add(btn) ' إضافته لعناصر الاداة
       AddHandler btn.Click, AddressOf OnClickSBtn1 'إنشاء حدث عن الضغط على الزر
   End Sub
   Sub OnClickSBtn1()
       MsgBox("LoveVb")
   End Sub

عند الضغط على الزر سينفذ الاكواد بداخل OnClickSBtn1
انت معلم وحنا منك نتعلم  Big Grin
موقعي (مدونتي):-
هنا

[url=https://sobertgueni.blogspot.com.eg/][/url]: )
الرد }}}}
تم الشكر بواسطة: LoveVb , الوادي
#4
Heart  Heart
الْلَّهُم صَلِّ وَسَلِم وَبَارِك عَلَى سَيِّدِنَا مُحَمَّد

ماهو ال UrlEncoding
الرد }}}}
تم الشكر بواسطة:
#5
Heart LoveVb Heart مساعداتك الناجحة تلفت الأنظار Heart
الرد }}}}
تم الشكر بواسطة: LoveVb
#6
شكرا آخي الوادي
هذا واجبنا نستفيد ونفيد
الْلَّهُم صَلِّ وَسَلِم وَبَارِك عَلَى سَيِّدِنَا مُحَمَّد

ماهو ال UrlEncoding
الرد }}}}
تم الشكر بواسطة: الوادي


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Wink [VB.NET] استفسار بخصوص التعديل والحفظ علي اداة datagridview dark1459 9 85 منذ 8 ساعة مضت
آخر رد: khodor1985
  استفسار بخصوص عدم ظهور اداة عرض ملف pdf في الادوات عباسة 3 77 18-02-17, 06:29 PM
آخر رد: عباسة
Lightbulb للخبراء هل توجد مكتبة او اداة لعمل مثل هذا النموذج عن طريق vb.net ارجو المساعدة Amrjamil 6 71 18-02-17, 02:19 PM
آخر رد: Amrjamil
  [سؤال] كيف يمكنني استخدام متغير لمناداة اي اداة اليوم مبتدئة وغداً محترفة 3 84 04-02-17, 09:57 PM
آخر رد: عبد الرحمن
  كيفية ادراج نص في اداة RichTextBox مع الاحتفاظ بالنص soper 3 74 25-01-17, 02:23 PM
آخر رد: مساعدة
  اداة اختيار الملفات محمد بن عطية 2 119 12-01-17, 06:01 PM
آخر رد: مساعدة
  اريد كود لفتح ملف صوتى فى اداة ويندوز ميديا بلير من ملف الريسورس المبرمج الاسطورى 5 591 23-12-16, 03:16 PM
آخر رد: silverlight
  [سؤال] اداة جوكو ويب براوزر عبدالرحمن المكاوي 0 75 22-12-16, 01:32 PM
آخر رد: عبدالرحمن المكاوي
  [سؤال] اداة Geckowebbroser التي موجود في لغة vb.net عبدالرحمن المكاوي 0 107 24-11-16, 03:54 PM
آخر رد: عبدالرحمن المكاوي
Lightbulb [سؤال] هل يوجد اداة لاستعراض الانترنت غير webcontrol elhon.tec 1 210 09-11-16, 03:24 PM
آخر رد: elhon.tec

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


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