GetAllSettings 関数

  • [アーティクル]

Windows レジストリのアプリケーションのエントリまたはアプリケーションの初期化ファイルの情報 (Macintosh の場合) から、キー設定のリストと各キー設定の値 (SaveSetting を使用して作成されたもの) を返します。

構文

GetAllSettings(appname, section)

GetAllSettings 関数の構文には、次の名前付き引数があります。

指定項目 説明
appname 必須。 キー設定が要求されているアプリケーションまたはプロジェクトの名前を含む文字列式です。 これは、Macintosh では System フォルダー内の Preferences フォルダーにある初期化ファイルのファイル名です。
section 必須。 キー設定が要求されているセクションの名前を含む文字列式です。 GetAllSettings からは、指定したセクションのすべてのキー設定とそれに対応する値を含む文字列の 2 次元配列のコンテンツを持つ Variant が返されます。

解説

GetAllSettings では、appname または section のいずれかが存在しない場合、初期化されていない Variant を返します。

例

この例では、最初に SaveSetting ステートメントを使用して、appname として指定されたアプリケーションの Windows レジストリにエントリを作成し、GetAllSettings 関数を使用して、設定を表示します。 アプリケーション名と section の名前は、GetAllSettings で取得することはできないので、ご注意ください。 最後に、DeleteSetting ステートメントは、アプリケーションのエントリを削除します。

' Variant to hold 2-dimensional array returned by GetAllSettings
' Integer to hold counter.
Dim MySettings As Variant, intSettings As Integer
' Place some settings in the registry.
SaveSetting appname := "MyApp", section := "Startup", _
key := "Top", setting := 75
SaveSetting "MyApp","Startup", "Left", 50
' Retrieve the settings.
MySettings = GetAllSettings(appname := "MyApp", section := "Startup")
    For intSettings = LBound(MySettings, 1) To UBound(MySettings, 1)
        Debug.Print MySettings(intSettings, 0), MySettings(intSettings, 1)
    Next intSettings
DeleteSetting "MyApp", "Startup"

関連項目

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。