GetAllSettings 函数

项目
08/18/2008

更新：2007 年 11 月

返回 Windows 注册表中应用程序项的项设置及相应值（最初使用 SaveSetting 创建）的列表。

在注册表操作中，使用 My 功能可以比使用 GetAllSettings 获得更高的效率和更好的性能。有关更多信息，请参见 My.Computer.Registry 对象。

Public Function GetAllSettings( _
   ByVal AppName As String, _ 
   ByVal Section As String _
) As String(,)

参数

AppName
必选。这是一个 String 表达式，包含请求进行项设置的应用程序或项目的名称。
Section
必选。这是一个 String 表达式，包含请求进行项设置的节的名称。GetAllSettings 返回一个包含二维字符串数组的对象。这些字符串包含了指定节中的所有项设置及相应值。

异常

异常类型	错误号	条件
ArgumentException	5	用户没有登录。

如果正在升级使用非结构化错误处理方式的 Visual Basic 6.0 应用程序，请参见“错误号”一列。（您可以根据 Number 属性（Err 对象）比较错误号。）然而，如果可能，应当考虑用 Visual Basic 的结构化异常处理概述替换这种错误控制。

备注

如果 AppName 或 Section 不存在，则 GetAllSettings 返回未初始化的 Object。

因为它需要依据 HKEY_LOCAL_USER 注册表项操作，而该注册表项只有在用户交互登录以后才被激活，所以 GetAllSettings 要求用户必须登录。

要从非交互式进程（例如 Mtx.exe）访问的注册表设置应存储在 HKEY_LOCAL_MACHINE\Software\ 或 HKEY_USER\DEFAULT\Software 注册表项下。

示例

本示例首先使用 SaveSetting 函数在 Windows 注册表中为 AppName 指定的应用程序生成注册表项，然后使用 GetAllSettings 函数显示设置。请注意，不能使用 GetAllSettings 检索应用程序名称和 Section 名称。最后，DeleteSetting 函数将移除该应用程序的项。

' Object to hold 2-dimensional array returned by GetAllSettings.
' Integer to hold counter.
Dim MySettings(,) As String
Dim intSettings As Integer
' Place some settings in the registry.
SaveSetting("MyApp", "Startup", "Top", "75")
SaveSetting("MyApp", "Startup", "Left", "50")
' Retrieve the settings.
MySettings = GetAllSettings("MyApp", "Startup")
For intSettings = LBound(MySettings, 1) To UBound(MySettings, 1)
   WriteLine(1, MySettings(intSettings, 0))
   WriteLine(1, MySettings(intSettings, 1))
Next intSettings
DeleteSetting("MyApp")