تقييم الموضوع :
  • 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
الْلَّهُم صَلِّ وَسَلِم وَبَارِك عَلَى سَيِّدِنَا مُحَمَّد
الرد }}}}
تم الشكر بواسطة: 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
الْلَّهُم صَلِّ وَسَلِم وَبَارِك عَلَى سَيِّدِنَا مُحَمَّد
الرد }}}}
تم الشكر بواسطة:
#5
Heart LoveVb Heart مساعداتك الناجحة تلفت الأنظار Heart
الرد }}}}
تم الشكر بواسطة: LoveVb
#6
شكرا آخي الوادي
هذا واجبنا نستفيد ونفيد
الْلَّهُم صَلِّ وَسَلِم وَبَارِك عَلَى سَيِّدِنَا مُحَمَّد
الرد }}}}
تم الشكر بواسطة: الوادي


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Information [VB.NET] استفسار عن اسم اداة مفتاح القبائلي 2 53 08-09-17, 04:32 PM
آخر رد: مفتاح القبائلي
  [VB.NET] طلب تعديل في كود للطباعة باستخدام اداة PrintDocument (مرفق) ssayed111 1 180 28-07-17, 01:27 AM
آخر رد: IBRA939
  تفريغ اداة datetimepicker Marwan9990 13 370 25-07-17, 10:20 PM
آخر رد: Marwan9990
  [VB.NET] اريد اداة tabcontrol تشبه تلك الموجوده في متصفح فايرفوكس او جوجل كروم qadar elzaman 1 109 19-07-17, 10:23 PM
آخر رد: Mina Botros
Thumbs Up [سؤال] ممكن كيفية وضع اداة hycam2 للفيجوال بيسك 2010 Mina Botros 1 105 08-07-17, 03:40 PM
آخر رد: 24473
  [سؤال] سؤال عن اداة ProgressBar منادي الشوق 1 189 22-04-17, 01:29 AM
آخر رد: A-R
  عند ملامسة اداة اداة اخرى يظهر Msgbox Basil Abdallah 2 178 14-04-17, 11:48 PM
آخر رد: Basil Abdallah
  ما هو الكود لجعل اداة numericUpDown1 تتغير تلقائياً لحن الحياة 1 216 09-03-17, 07:19 AM
آخر رد: مساعدة
  استفسار بخصوص عدم ظهور اداة عرض ملف pdf في الادوات عباسة 7 433 22-02-17, 08:07 PM
آخر رد: عباسة
Wink [VB.NET] استفسار بخصوص التعديل والحفظ علي اداة datagridview dark1459 9 512 20-02-17, 02:13 AM
آخر رد: khodor1985

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


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