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 产生)。