یک سوال نحوه ذخیره سازی(اساتید کمک کنید)

[drhamid]

با سلام به همه دوستان
من یه سوال داشتم .من میخوام که یک برنامه داشته باشم که وقتی تیک CheckBox فعال شد و دکمه اعمال تغییرات (مانند عکس زیر-1) زده شد


http://tinypic.info/files/9889p2oaiekwd4q92lbl.jpg

از این به بعد وقتی برنامه بسته شد و دوباره باز شد تغییرات اعمال بشه مثلا فرم 2 هم از این به بعد با فرم 1 باز بشه (عکس 2)
http://tinypic.info/files/ldxm326x7hfss0k2c2sy.jpg

اگر دوستان یک کمکی بکنن خیلی ممنون میشم با تشکر.

[sina_saravi1]

سلام دوست عزیز
برای این کار
اول: در قسمت کد دکمه این را وارد کن


Private Sub Command1_Click()
If Check1.Value = vbChecked Then
Call SaveSetting(App.EXEName, Me.Caption, "Form", True)
Else
Call SaveSetting(App.EXEName, Me.Caption, "Form", False)
End If
End Sub

دوم: برای قسمت لود فرم اینو وارد کن


If GetSetting(App.EXEName, Me, "Form", True) Then form2.Show

امیدوارم جوابی که میخواستی گرفته باشی

[drhamid]

منمون از جواب شما دوست عز یز ولی به محض این که این کد

If GetSetting(App.EXEName, Me, "Form", True) Then Form2.Show
رو در FOrm Load میزارم پیغام Type Mismatch میده داخل یک Function هم جهت فراخوانی از نوع Sub قرار دادم هیچ پیغامی نداد ولی هیچ تغییری هم در برنامه بوجود نیاورد در کل جواب خاصی نگرفتم.

[sina_saravi1]

ببخشید یه اشتباه داشتم
به جاش اینو وارد کن:

[code]
If GetSetting(App.EXEName, Me, "Fprm") = True Then
[code/]

[sina_saravi1]

سلام
با عرض معذرت
طرز صحیحش اینه



Private Sub Command1_Click()
If Check1.Value = vbChecked Then
Call SaveSetting(App.EXEName, Me.Caption, "Form", True)
Else
Call SaveSetting(App.EXEName, Me.Caption, "Form", False)
End If
End Sub

Private Sub Form_Load()
a = GetSetting(App.EXEName, Me.Caption, "Form")
If a = True Then Form2.Show
End Sub