检索应用程序设置值

可以使用 GetSetting 和 GetAllSettings 函数检索存储在应用程序注册位置的注册值。例如，应用程序能够检索注册表设置值以便在它被关闭时重新建立其条件。

一次检索一项设置值

如果仅检索一项注册表设置值，通过以下的语法使用 GetSetting 函数：

GetSetting(appname, section, key[, default])

下列代码检索“RegCust”应用程序启动部分的 LastEntry 表项的值，并将该值显示在立即窗口中。

Private Sub Form_Load()
   Dim intLastEntry As Integer
   intLastEntry = GetSetting("RegCust", "Startup", _
   "LastEntry", "0")
   Debug.Print intLastEntry
End Sub

应注意，可以使用可选的参数 default 设置，当注册位置中指定的表项没有值时由 Visual Basic 返回的值。

一次检索多项设置值

如果检索多项注册表项的值，通过以下的语法使用 GetAllSettings 函数：

GetAllSettings(appname, section)

下列代码检索“RegCust”应用程序启动部分的两栏注册表项的值，并将其结果显示在立即窗口中。

Private Sub Form_Load()
   Dim avntSettings As Variant
   Dim intX As Integer
   avntSettings = GetAllSettings("RegCust", "Startup")
   For intX = 0 To UBound(avntSettings, 1)
      Debug.Print avntSettings(intX, 0), _ 
      avntSettings(intX, 1)
   Next intX
End Sub

详细信息 请参阅“GetSetting 函数”和“GetAllSettings 函数”。