VB技巧：保存窗口位置来增加专业性

在你的应用程序之中保存窗口的位置可以给你的软件增加专业性。你可以利用GetSetting和SaveSetting函数轻松地实现这一功能。

GetSetting和SaveSetting函数对储存在HKEY_CURRENT_USER/Software/VB和VBA Program Settings下面的注册值进行读和写。由于值被储存在HKEY_CURRENT_USER之下，因此针对计算机的每一个用户的大小和位置参数也被储存了进去。

通过在你的Form_Load和Form_Unload事件中加入下面的代码，你就可以保存你的窗口的大小和位置。

Private Sub Form_Load()

    Me.Width = GetSetting(App.Title, Me.Name,"Width", 7200)

    Me.Height = GetSetting(App.Title, Me.Name, "Height", 6300)

    Me.Top = GetSetting(App.Title, Me.Name,"Top", 100)

    Me.Left = GetSetting(App.Title, Me.Name,"Left", 100)

End Sub


Private Sub Form_Unload(Cancel As Integer)

    Call SaveSetting(App.Title, Me.Name, "Width",Me.Width)

    Call SaveSetting(App.Title, Me.Name,"Height", Me.Height)

    Call SaveSetting(App.Title, Me.Name, "Top",Me.Top)

    Call SaveSetting(App.Title, Me.Name, "Left",Me.Left)

End Sub 

这段代码使用窗体名称来唯一地确定注册之中的每一个窗体。如果同一个窗体需要被储存在多个位置信息之中的话你可以使用不同的标识符。