عند حدث اللود عطل تحميل الحدث و ضع بدلا عنه الكود التالي :
كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'LoadSavedThems(Me)'كود الاستدعاء
My.Settings.TextBoxBackColor = Color.Blue.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
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر
قم باضافة color ColorDialog وليكن اسمة ColorDialog1
ثم قم بانشاء زر وضع هذا الكود في الحدث click
If ColorDialog1.ShowDialog = DialogResult.OK Then
For Each ctrl As Control In Me.Controls
If TypeOf ctrl Is Button Then
ctrl.BackColor = Me.ColorDialog1.Color
End If
Next
End If
قم بتغيير button على حسب الاداة التي تريد ان يتغير لونها اما بالنسبه للحفظ فيجب عليك الذهاب الى setting وعمل الاتي
name : color type : system.drawing color scope : user value : red
ومن ثم اضافة زر للحفظ ونضع الكود التالي عند الحدث click
My.Settings.ColorSetting = Me.ColorDialog1.Color