次の方法で共有


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 のサポートおよびフィードバックを参照してください。