保存窗口位置来增加专业性
获取设置和保存设置功能读取和写入存储在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如果同一个表单需要存储多个位置信息,可以使用不同的标识符。
0条评论