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

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

通過(guò)在你的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
這段代碼使用窗體名稱來(lái)唯一地確定注冊(cè)之中的每一個(gè)窗體。如果同一個(gè)窗體需要被儲(chǔ)存在多個(gè)位置信息之中的話你可以使用不同的標(biāo)識(shí)符。