項目

　レジストリに値を設定する

概要

　GetSetting、SaveSettingを使用してレジストリに値を取得・設定できます。
　アプリケーションの固有の情報、環境の設定などを登録して置く事ができます。
　サンプルでは、「設定」ボタンで値を設定し、画面を開くときに設定した値を取得しています。
　ちょっとした情報を設定して置くのに便利です。

　登録した値は「HKEY_CURRENT_USER\Software\VB and VBA Program Settings」に設定されます。
　[スタート]-[ファイル名を実行して実行]を開き、「regedit」と入力し「OK」ボタンを押すと
　レジストリエディタが開きます。そこで実際に登録した値を確認できます。
　※レジストリエディタの取り扱いは自己責任でお願いします。

方法

Option Compare Database
Option Explicit

'----------------------------------------------------------
'１．画面を新規作成
'２．ボタン作成（btSet、btClose）
'----------------------------------------------------------
Private Const TIPS_APPNAME = "TIPS"         'アプリ名
Private Const TIPS_SECTION = "MySection"    'セクション名
Private Const TIPS_KEY = "MyKey"            'キー名

'----------------------------------
'画面を閉じる
'----------------------------------
Private Sub btClose_Click()
    DoCmd.Close
End Sub

'----------------------------------
'レジストリに値を設定する
'----------------------------------
Private Sub btSet_Click()

    'レジストリに値を設定する
    SaveSetting TIPS_APPNAME, TIPS_SECTION, TIPS_KEY, Nz(txtValue, "")

    MsgBox "設定しました"

End Sub

'----------------------------------
'レジストリの値を読込
'----------------------------------
Private Sub Form_Open(Cancel As Integer)

    'レジストリの値を読込
    txtValue = GetSetting(TIPS_APPNAME, TIPS_SECTION, TIPS_KEY, "規定値")

End Sub