[heshamelkomy]

هذا الاجراء يقوم بوضع زر امر لكل صف فى الجريد مع وضع ايقونة له و اسم العمود

 ''' <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