値を保存するには？

解決

やす 2003-10-22 00:51:48 No: 79908

VB６初心者で、何も分かりませんの教えてください。
OptionButtonなどの値を終了時などの時に保存して、
Load時に値を返す式なんですが、
GetSetting,SaveSettingを使えば良いというのは分かったのですが、
いまいち記述が分かりませんので教えていただけますか？
他の分かりやすい記述があればかまいませんので・・・

とろ 2003-10-22 02:08:54 No: 79909

フォーム上に Option1(0) 〜 Option1(2) を配置して、
下のコードを貼り付けて実行してみて下さい。

Option Explicit
Private Sub Form_Load()
  Option1(0).Value = CBool(GetSetting("SampleApp", "SampleSec", "SampleKey0", "False"))
  Option1(1).Value = CBool(GetSetting("SampleApp", "SampleSec", "SampleKey1", "False"))
  Option1(2).Value = CBool(GetSetting("SampleApp", "SampleSec", "SampleKey2", "False"))
End Sub
Private Sub Form_Unload(Cancel As Integer)
  SaveSetting "SampleApp", "SampleSec", "SampleKey0", CStr(Option1(0).Value)
  SaveSetting "SampleApp", "SampleSec", "SampleKey1", CStr(Option1(1).Value)
  SaveSetting "SampleApp", "SampleSec", "SampleKey2", CStr(Option1(2).Value)
End Sub

保存された情報を見るには、レジストリエディタ (regedit.exe) を実行し、
HKEY_CURRENT_USER\Software\VB and VBA Program Settings\SampleApp
の値を見て下さい。

やす 2003-10-22 18:20:42 No: 79910

とろさんありがとうございますm(..)m
やっとこれで自分的課題が進みます。
後は記述を理解するだけです・・・
また、質問等をするとは思いますがとろさん他、理解者の
皆様のお力を頂きたいと思います。