在我们写程序的时候,有时需要记录当前窗体位置和大小,以便下次打开时恢复上次的大小跟位置,像一般的播放器 浏览器就有这个功能
通过注册表记录窗体的大小跟位置
Private Sub Form_Load() Me.Width = GetSetting(App.Title,Me.Name,"Width",7200) Me.Height = GetSetting(App.Title,"Height",6300) Me.Top = GetSetting(App.Title,"Top",100) Me.Left = GetSetting(App.Title,"Left",100) End Sub Private Sub Form_Unload(Cancel As Integer) Call SaveSetting(App.Title,Me.Width) Call SaveSetting(App.Title,Me.Height) Call SaveSetting(App.Title,Me.Top) Call SaveSetting(App.Title,Me.Left) End Sub
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。