保存窗口位置来增加专业性

　2006-02-27 11:41:19　来源：WEB开发网　闂備線娼уΛ鎾箯閿燂拷

濠电姭鎷冮崨顓濈捕闂侀潧娲ゅú銊╁焵椤掍胶鈯曢柕鍥╁仧缁辩偤鏁撻敓锟�闂備線娼уΛ鎾箯閿燂拷　　闂備胶枪缁绘鈻嶉弴銏犳瀬闁绘劖顐煎☉妯锋瀻闁归偊鍓涘▔姘舵⒑閸涘⿴娈旀繛灞傚妼閳绘捇骞嬪┑鎰濡炪倖姊婚崢褏鎲撮敓锟�

核心提示：GetSetting和SaveSetting函数对储存在HKEY_CURRENT_USER/Software/VB和VBAPRogramSettings下面的注册值进行读和写，由于值被储存在HKEY_CURRENT_USER之下，保存窗口位置来增加专业性，因此针对计算机的每一个用户的大小和位置参数也被储存了进去，通过在

GetSetting和SaveSetting函数对储存在HKEY_CURRENT_USER/Software/VB和VBAPRogramSettings下面的注册值进行读和写。由于值被储存在HKEY_CURRENT_USER之下，因此针对计算机的每一个用户的大小和位置参数也被储存了进去。

通过在你的Form_Load和Form_Unload事件中加入下面的代码，你就可以保存你的窗口的大小和位置。

PrivateSubForm_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)
EndSub

PrivateSubForm_Unload(CancelAsInteger)
CallSaveSetting(App.Title,Me.Name,"Width",Me.Width)
CallSaveSetting(App.Title,Me.Name,"Height",Me.Height)
CallSaveSetting(App.Title,Me.Name,"Top",Me.Top)
CallSaveSetting(App.Title,Me.Name,"Left",Me.Left)
EndSub
这段代码使用窗体名称来唯一地确定注册之中的每一个窗体。如果同一个窗体需要被储存在多个位置信息之中的话你可以使用不同的标识符。

->