GetAllSettings
返回Windows注册表中应用程序条目某个节中的每个键及其值。
语法：GetAllSettings( appname , section )
- appname
- 必需 字符串表达式，包含请求其键设置的应用程序或项目的名称。
- section
- 必需 字符串表达式，包含请求其键设置的节的名称。
返回一个Variant，其内容为二维字符串数组：每行包含一个键及其值，分别在第0列和第1列。如果appname或section不存在，GetAllSettings返回未初始化的Variant。
这些注册表设置的根路径为：Computer\HKEY_CURRENT_USER\Software\VB and VBA Program Settings。
示例
本示例首先使用SaveSetting在Windows注册表中为应用程序创建条目，然后使用GetAllSettings显示某个节中的所有键值对，最后使用DeleteSetting删除应用程序的条目。注意appname和section名称本身不会被检索。
vb
' Place some settings in the registry.
SaveSetting AppName := "MyApp", Section := "Startup", _
Key := "Top", Setting := "75"
SaveSetting "MyApp", "Startup", "Left", "50"
' Retrieve them.
Dim MySettings As Variant, IntSettings As Long
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"