05-12-23, 10:41 AM
السلام عليكم ورحمة الله اخى الكريم
يمكنك ذالك باستخدم هذا الكود
مع وضع هذا الكود فى الفورم
بالتوفيق اخى الغالى
يمكنك ذالك باستخدم هذا الكود
كود :
Private Sub DataGrid1_FormatItem(ByVal Data As MSComctlLib.ListItem, ByVal ReportCode As Integer)
' تحديد عمود معين (استبدل 1 برقم العمود الذي تريد تغييره)
Dim targetColumnIndex As Integer
targetColumnIndex = 1
' تحديد نوع الخط ولون الخلفية للعمود
If Data.Col = targetColumnIndex Then
Data.FontBold = True
Data.ForeColor = vbBlue ' يمكنك تغيير هذا إلى اللون الذي ترغب فيه
Data.BackColor = vbYellow ' يمكنك تغيير هذا إلى اللون الذي ترغب فيه
' تغيير قيمة الخلية إلى الرمز المطلوب (هنا استخدمت "X" كرمز توضيحي)
Data.Text = "X"
End If
End Subكود :
Private Sub Form_Load()
DataGrid1.FormatItem += DataGrid1_FormatItem
End Sub
