هذا كود يحفظ بـ
Settingsالخاص بالبرنامج .
كود :
'حقول المطلوب وجودها في Settings و هي من نوع String
'DgvColor1
'DgvColor2
'DgvColor3
'DgvColor4
'DgvColor5
'DgvColor6
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
LoadDgvColore(DataGridView1)'كود تحميل ألوان الداتا غريد فيو
End Sub
Private Sub BtnSave_Click(sender As Object, e As EventArgs) Handles BtnSave.Click'حفظ ألوان حقول الجدول في Settings الخاص بالبرنامج
My.Settings.DgvColor1 = DgvTest.DefaultCellStyle.BackColor.R
My.Settings.DgvColor2 = DgvTest.DefaultCellStyle.BackColor.G
My.Settings.DgvColor3 = DgvTest.DefaultCellStyle.BackColor.B
My.Settings.DgvColor4 = DgvTest.AlternatingRowsDefaultCellStyle.BackColor.R
My.Settings.DgvColor5 = DgvTest.AlternatingRowsDefaultCellStyle.BackColor.G
My.Settings.DgvColor6 = DgvTest.AlternatingRowsDefaultCellStyle.BackColor.B
My.Settings.Save()
MsgBox("تمت عملية الحفظ بنجاح", MsgBoxStyle.Information + MsgBoxStyle.MsgBoxRtlReading + MsgBoxStyle.MsgBoxRight, "حفظ")
End Sub
Public Sub LoadDgvColore(DgvTabel As DataGridView)'ضع هذا في مديول لتستطيع إستعماله في أي فورم
DgvTabel.DefaultCellStyle.BackColor = Color.FromArgb(My.Settings.DgvColor1, My.Settings.DgvColor2, My.Settings.DgvColor3)
DgvTabel.AlternatingRowsDefaultCellStyle.BackColor = Color.FromArgb(My.Settings.DgvColor4, My.Settings.DgvColor5, My.Settings.DgvColor6)
End Sub
وهذا كود اختيار الألوان الخاصة بالجدول .
كود :
Private Sub BtnFirstColor_Click(sender As Object, e As EventArgs) Handles BtnFirstColor.Click
Dim ColorXT As New ColorDialog
If ColorXT.ShowDialog = Windows.Forms.DialogResult.OK Then
DgvTest.DefaultCellStyle.BackColor = ColorXT.Color
End If
End Sub
Private Sub BtnSecondColor_Click(sender As Object, e As EventArgs) Handles BtnSecndColor.Click
Dim ColorXT As New ColorDialog
If ColorXT.ShowDialog = Windows.Forms.DialogResult.OK Then
DgvTest.AlternatingRowsDefaultCellStyle.BackColor = ColorXT.Color
End If
End Sub