値を保存するには？ (ID:79909)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 フォーム上に 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 の値を見て下さい。