المشاركات : 204
المواضيع 14
الإنتساب : Jun 2015
السمعة :
10
الشكر: 250
تم شكره 222 مرات في 132 مشاركات
تفضل
كود :
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
الْلَّهُم صَلِّ وَسَلِم وَبَارِك عَلَى سَيِّدِنَا مُحَمَّد
المشاركات : 204
المواضيع 14
الإنتساب : Jun 2015
السمعة :
10
الشكر: 250
تم شكره 222 مرات في 132 مشاركات
الْلَّهُم صَلِّ وَسَلِم وَبَارِك عَلَى سَيِّدِنَا مُحَمَّد
المشاركات : 204
المواضيع 14
الإنتساب : Jun 2015
السمعة :
10
الشكر: 250
تم شكره 222 مرات في 132 مشاركات
شكرا آخي الوادي
هذا واجبنا نستفيد ونفيد
الْلَّهُم صَلِّ وَسَلِم وَبَارِك عَلَى سَيِّدِنَا مُحَمَّد