[soper]

(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

انت معلم وحنا منك نتعلم