حفظ الاعدادات

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

اخونا الفاضل

ان كنت فهمت سؤالك بصورة صحيحة فسوف تجد في المرفقات ما يساعدك باذن الله

howto_save_form_settings.zip

مشكور على الرد ولكن ليس هذا ما اردت وإنما اردت ان احفظ كل شيء اغيره على الفورم في ملف واسترجاع بعد ذلك ليضع لي نفس الاعدادات التي حفظتها من قبل

لقد توصلت الى الحل حيث سيتم حفظ الاعدادات في ملف خارجي إمتداده arabteam ويمكنك إستدعاء الملف بنفس طريقة الحفظ وهذا هو

Dim File As String
Dim temp As String

Private Sub Command2_Click()
 CommonDialog1.CancelError = True
 On Error GoTo arabteam2000


CommonDialog1.Filter = "arabteam Files (*.arabteam)|*.arabteam|"
 CommonDialog1.FilterIndex = 1

 CommonDialog1.ShowOpen
 File = CommonDialog1.FileName

 Open File For Input As #1
    Input #1, temp
    Check1.Value = temp
    Input #1, temp
    Check2.Value = temp
    Input #1, temp
    Check3.Value = temp
    Input #1, temp
    Text1.Text = temp
    Input #1, temp
    Option1.Value = temp
    Input #1, temp
    Option2.Value = temp
    Input #1, temp
    Combo1.Text = temp
  Close #1
  
   Exit Sub
arabteam2000:
End Sub

Private Sub Form_Load()
Combo1.AddItem "1"
Combo1.AddItem "2"
Combo1.AddItem "3"

End Sub

Private Sub Command1_Click()
 CommonDialog1.CancelError = True
 On Error GoTo arabteam2000

CommonDialog1.Filter = "arabteam Files (*.arabteam)|*.arabteam|"
 CommonDialog1.FilterIndex = 1

 CommonDialog1.ShowSave
 File = CommonDialog1.FileName

 Open File For Output As #1
    Print #1, Check1.Value
    Print #1, Check2.Value
    Print #1, Check3.Value
    Print #1, Text1.Text
    Print #1, Option1.Value
    Print #1, Option2.Value
    Print #1, Combo1.Text

  Close #1

   Exit Sub
arabteam2000:
End Sub