هذا الاجراء يقوم بوضع زر امر لكل صف فى الجريد مع وضع ايقونة له و اسم العمود
''' <summary>
''' اضافة زر امر للداتاجريد فيو
''' </summary>
''' <param name="imag">اسم زر الامر</param>
''' <param name="DataGridView_name">اسم الداتا جريد فيو</param>
''' <param name="Columns_index">رقم العمود</param>
''' <param name="image_name">اسم الصورة بامتاداد png</param>
''' <param name="Header_text">عنوان العمود</param>
''' <remarks></remarks>
Public Sub btn_image_add(ByVal imag As String, ByVal DataGridView_name As DataGridView, ByVal Columns_index As Integer, ByVal image_name As String, ByVal Header_text As String)
Dim Add_Image As New DataGridViewImageColumn
On Error Resume Next
DataGridView_name.Columns.Remove(imag)
With Add_Image
.Name = imag
.HeaderText = Header_text
.Width = 45
.DefaultCellStyle.ForeColor = System.Drawing.Color.Red
.Image = System.Drawing.Image.FromFile(Application.StartupPath & "\icon\" & image_name & ".png")
End With
DataGridView_name.Columns.Insert(Columns_index, Add_Image)
'استدعاء اجراء الحدث للزر
'Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick
' If e.ColumnIndex = 10 Then
' MsgBox(("Row : " + e.RowIndex.ToString & " Col : ") + e.ColumnIndex.ToString)
' myconn.inser_update_delete("delete from tb_invoice_sale_detil where Details_id=" & DataGridView1.CurrentRow.Cells(0).Value & "")
' DataGridView1.Rows.RemoveAt(DataGridView1.SelectedRows(0).Index)
' End If
'End Sub
End Sub