注
Microsoft Jet Expression Service がサンドボックス モードで実行されている場合 (安全でない可能性がある式の評価は行われません)、このトピックで説明する関数、メソッド、オブジェクト、またはプロパティは無効です。 サンドボックス モードの詳細については、ヘルプで "サンドボックス モード" を検索してください。
Windows レジストリ内のアプリケーションのエントリ、または (Macintosh 上の) アプリケーションの初期化ファイル内の情報から、キー設定とそれぞれの値 (元は SaveSetting で作成) のリストを返します。
構文
GetAllSettings(appname, section)
GetAllSettings 関数の構文には、次の引数があります。
| 引数 | 説明 |
|---|---|
| appname | 必ず指定します。 キー設定が要求されるアプリケーションまたはプロジェクトの名前を含む文字列式。 Macintosh では、これはシステム フォルダーの [環境設定] フォルダーにある初期化ファイルのファイル名です。 |
| section | 必ず指定します。 キー設定が要求されるセクションの名前を含む文字列 式 。 GetAllSettings は、指定したセクション内のすべてのキー設定とそれに対応する値を含む文字列の 2 次元配列であるバリアント型 (Variant) の値を返します。 |
解説
GetAllSettings は、アプリ名またはセクションのいずれかが存在しない場合、初期化されていないバリアント型 (Variant) を返します。
使用例
注
次の例は、Visual Basic for Applications (VBA) モジュールでのこの関数の使用方法を示しています。 VBA の使用方法の詳細については、[検索] の横にあるドロップダウン リストで [開発者用リファレンス] を選び、検索ボックスに検索する用語を入力します。
この例では、最初に SaveSetting ステートメントを使用して 、appname として指定されたアプリケーションの Windows レジストリにエントリを作成し、 次に GetAllSettings 関数を使用して設定を表示します。 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"