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



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


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