VB記錄表單的大小和位置

在我們寫程式的時候,有時需要記錄當前表單位置和大小,以便下次開啟時恢複上次的大小跟位置，像一般的播放器 瀏覽器就有這個功能

通過註冊表記錄表單的大小跟位置

 

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 SubPrivate 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