تقييم الموضوع :
  • 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
الرد }}}}
تم الشكر بواسطة: الوادي


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] سؤال عن اداة ProgressBar منادي الشوق 1 110 22-04-17, 01:29 AM
آخر رد: A-R
  عند ملامسة اداة اداة اخرى يظهر Msgbox Basil Abdallah 2 91 14-04-17, 11:48 PM
آخر رد: Basil Abdallah
  [VB.NET] طلب تعديل في كود للطباعة باستخدام اداة PrintDocument (مرفق) ssayed111 0 96 11-03-17, 05:12 PM
آخر رد: ssayed111
  ما هو الكود لجعل اداة numericUpDown1 تتغير تلقائياً لحن الحياة 1 105 09-03-17, 07:19 AM
آخر رد: مساعدة
  استفسار بخصوص عدم ظهور اداة عرض ملف pdf في الادوات عباسة 7 305 22-02-17, 08:07 PM
آخر رد: عباسة
Wink [VB.NET] استفسار بخصوص التعديل والحفظ علي اداة datagridview dark1459 9 299 20-02-17, 02:13 AM
آخر رد: khodor1985
Lightbulb للخبراء هل توجد مكتبة او اداة لعمل مثل هذا النموذج عن طريق vb.net ارجو المساعدة Amrjamil 6 219 18-02-17, 02:19 PM
آخر رد: Amrjamil
  [سؤال] كيف يمكنني استخدام متغير لمناداة اي اداة اليوم مبتدئة وغداً محترفة 3 171 04-02-17, 09:57 PM
آخر رد: عبد الرحمن
  كيفية ادراج نص في اداة RichTextBox مع الاحتفاظ بالنص soper 3 160 25-01-17, 02:23 PM
آخر رد: مساعدة
  اداة اختيار الملفات محمد بن عطية 2 214 12-01-17, 06:01 PM
آخر رد: مساعدة

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


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