[asemshahen5]

هذا كود يحفظ بـ 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