保存窗口位置来增加专业性

获取设置和保存设置功能读取和写入存储在HKEY _当前_用户/软件/VB和VBA程序设置下的注册值。因为该值存储在HKEY当前用户下，所以也存储了计算机的每个用户的大小和位置参数。
通过将以下代码添加到Form_Load和Form_Unload事件中，可以保存窗口的大小和位置。

Private Sub Form_Load()
Me。Width = GetSetting(App。标题，我。名字，“宽度”，7200)
我。Height = GetSetting(App。标题，我。名字，“身高”，6300)
我。Top = GetSetting(App。标题，我。名，“顶”，100)
我。Left = GetSetting(App。标题，我。Name，" Left "，100)
End Sub

private Sub Form _ Unload(Cancel As Integer)
调用SaveSetting(App。标题，我。名字，“宽度”，我。width)
调用SaveSetting(App。标题，我。Name，" height "，me.height)
调用保存设置(app.title，me.name，" top "，me.top)
调用保存设置(app.title，me.name，" left "，me.left)
end sub如果同一个表单需要存储多个位置信息，可以使用不同的标识符。