24-07-16, 11:33 AM
(24-07-16, 11:25 AM)LoveVb كتب : هل يمكنك ارسال كود الحفظ
او وضح عنه كيف ستتم طريقة الحفظ
دي كود الحفظ انت الي ادتهولي هو هيحفظها في اداة ToolStrip1 علي شكل بتون ماشي
كود :
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
