المشاركات : 231
المواضيع 91
الإنتساب : Feb 2018
السمعة :
1
الشكر: 275
تم شكره 121 مرات في 85 مشاركات
29-08-18, 09:27 AM
(آخر تعديل لهذه المشاركة : 29-08-18, 05:54 PM {2} بواسطة DOX.1.)
السلام عليكم ورحمة وبركاته
استفساري هل يوجد طريقه بحيث اني اضع عمود بشكل يدوي في DataGridViwe أضافة العمود Button بسيطه لكن يحمل ايقونه ما عرفت أٍسويها
كشك اجمل
المشاركات : 1
المواضيع 0
الإنتساب : Aug 2015
السمعة :
0
الشكر: 0
تم شكره 2 مرات في 2 مشاركات
هذا الاجراء يقوم بوضع زر امر لكل صف فى الجريد مع وضع ايقونة له و اسم العمود
''' <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