[asemshahen5]

بسيطة 5 دقائق

---

كود :

'فقط ضع TextBoxBackColor في Settings
  Public Sub LoadSavedThems(FormXT As Form)'ضع هذا في مديول
       For Each crl In FormXT.Controls
           If TypeOf (crl) Is GroupBox Or TypeOf (crl) Is Panel Or TypeOf (crl) Is SplitContainer Or TypeOf (crl) Is TabControl Then
               For Each cln In crl.controls
                   If TypeOf (cln) Is TextBox Then
                       cln.BackColor = Color.FromName(My.Settings.TextBoxBackColor)
                   End If
               Next
           End If
           If TypeOf (crl) Is TextBox Then
               crl.BackColor = Color.FromName(My.Settings.TextBoxBackColor)
           End If
       Next
   End Sub
   
   Private Sub BtnTextBoxBackColor_Click(sender As Object, e As EventArgs) Handles BtnTextBoxBackColor.Click'زر تغيير لون التكست
      Dim ColorXT As New ColorDialog
      If ColorXT.ShowDialog = Windows.Forms.DialogResult.OK Then
          TextBox1.BackColor = ColorXT.Color
      End If
  End Sub
 
  Private Sub BtnSave_Click(sender As Object, e As EventArgs) Handles BtnSave.Click'زر حفظ اللون
       My.Settings.TextBoxBackColor = TextBox1.BackColor.Name
       My.Settings.Save()
       MsgBox("تمت عملية الحفظ بنجاح", MsgBoxStyle.Information + MsgBoxStyle.MsgBoxRtlReading + MsgBoxStyle.MsgBoxRight, "حفظ")
  End Sub
 
  Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        LoadSavedThems(Me)'كود الاستدعاء
  End Sub