久久―日本道色综合久久,亚洲欧美精品在线,狼狼色丁香久久婷婷综合五月,香蕉人人超,日本网站黄,国产在线观看不卡免费高清,无遮挡的毛片免费

　　GetSetting和SaveSetting函數(shù)對儲存在HKEY_CURRENT_USER/Software/VB和VBA Program Settings下面的注冊值進行讀和寫。由于值被儲存在HKEY_CURRENT_USER之下，因此針對計算機的每一個用戶的大小和位置參數(shù)也被儲存了進去。

通過在你的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
這段代碼使用窗體名稱來唯一地確定注冊之中的每一個窗體。如果同一個窗體需要被儲存在多個位置信息之中的話你可以使用不同的標識符。