GetSetting函数

GetSetting函数是从windows注册表中的应用程序项目返回注册表项的设定值。

语法：GetSetting( sppname, section,key [ ,default ] )

appname：必选参数。 字符串表达式，包含应用程序或工程的名称，要求这些应用程序或工程有注册表项设置。

section：必选参数。 包含区域名称，要求该区域有注册表项设置。

key：必须参数。 字符串表达式，返回注册表项设置的名称。

default：可选。 表达式，如果注册表项设置中没有设置值，则返回缺省值。如果省略default取值为长度为零的字符串（“”）。

注：如果getsetting的参数中的任何一项都不存在，则getting返回default值。

下面是学生信息管理系统中用的GetSetting函数。

Private Sub MDIForm_Load() '从注册表中取得上次关闭MDIForm时的大小
Me.Left = GetSetting(App.Title, "Settings", "MainLeft", 1000)
Me.Top = GetSetting(App.Title, "Settings", "MainTop", 1000)
Me.Width = GetSetting(App.Title, "Settings", "MainWidth", 6500)
Me.Height = GetSetting(App.Title, "Settings", "MainHeight", 6500)

End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
If Me.WindowState <> vbMinimized Then
SaveSetting App.Title, "Settings", "MainLeft", Me.Left
SaveSetting App.Title, "Settings", "MainTop", Me.Top
SaveSetting App.Title, "Settings", "MainWidth", Me.Width
SaveSetting App.Title, "Settings", "MainHeight", Me.Height
End If
End Sub

在加载多文档界面时，选定多文档界面的大小和位置是从保存的第一次打开的位置。将注册表中第一次打开多文档界面窗体的位置显示出来。

而在下载窗体时，将保存此次开始打开多文档界面的位置。 上边这两段代码的作用就是：程序退出时保存在屏幕上的显示位置记主窗体的大小，再次打开程序时主窗体就显示在上次关闭时的位置处，而且大小也和上次关闭时的大小相同。

用到的其他函数：

Getsetting函数是从windows注册表中的应用程序项目返回注册表项设置及相应值。

而SaveSetting语句是在windows注册表中保存或是建立应用程序项目。

DelectSetting：是在windows注册表中，从应用项目里删除区域或注册表项设置。

GetAllSettings 函数, 从 Windows 注册表中返回应用程序项目的所有注册表项设置及其相应值（开始是由 SaveSetting 产生）。