كيف أحفظ إعدادات مستخدم برنامجي

وعليكم السلام ورحمة الله وبركاته

يمكنك عمل ذلك بالامرين SaveSetting , GetSetting

Private Type Settings
    BackColor As Long
    ForeColor As Long
    Font As String
End Type

Dim MyTextBox As Settings

Private Sub Form_Load()
With MyTextBox
    .BackColor = GetSetting("Project1", "BackColor", "Settings", vbWhite)
    .ForeColor = GetSetting("Project1", "ForeColor", "Settings", vbBlack)
    .Font = GetSetting("Project1", "Font", "Settings", "tahoma")
    Text1.Font = .Font
    Text1.ForeColor = .ForeColor
    Text1.BackColor = .BackColor
End With
End Sub

Private Sub Form_Unload(Cancel As Integer)
SaveSetting "Project1", "BackColor", "Settings", Text1.BackColor
SaveSetting "Project1", "ForeColor", "Settings", Text1.ForeColor
SaveSetting "Project1", "Font", "Settings", Text1.Font
End Sub

اتمنى ان تجد ماتريد :rolleyes:

يعطيك العافية اخوي GHOST2010

الف شكر

أو ممكن أن تعمل قاعدة بيانات تسند قيم الإعدادات الجديدة إلى حقولها ثم يحملها البرنامج مرة أخرى عند بدء التشغيل...

اذا كان يريد أن يحفظ اعدادات كل مستعمل على نفس الجهاز فأحسن طريقة هي التي ذكرها الأخ GHOST

هذه طريقة مبتدأ

من إعدادي

رابط التحميل

فكره جميله أخي COMFORT

جزاك الله خير أخي seaprince46