vb怎么记住上次窗体使用的情况
VB\u8bb0\u4f4f\u7a97\u4f53\u4e0a\u4e00\u6b21\u7684\u4f4d\u7f6e;\u7a97\u4f531\u4ee3\u7801Private Sub Form_Click() Form2.Show Form2.x = Me.Left Form2.y = Me.Top Unload MeEnd Sub'\u7a97\u4f532\u4ee3\u7801Public x As Single, y As SinglePrivate Sub Form_Click() Form1.Show Form1.Left = Me.x Form1.Top = Me.y Unload MeEnd Sub
\u5728UnLoad\u4e8b\u4ef6\u4e2d\uff0c\u628a\u7ed3\u679c\u4fdd\u5b58\u5230\u6587\u672c\u6587\u4ef6\u3001\u6ce8\u518c\u8868\u3001\u6570\u636e\u5e93\u6216\u7f51\u7edc\u4e2d\uff1b
\u5728Load\u4e8b\u4ef6\u4e2d\u518d\u4ece\u76f8\u5e94\u4f4d\u7f6e\u8bfb\u51fa\u6570\u636e\u8d4b\u503c\u7ed9\u7a97\u4f53\u4e2d\u7684\u76f8\u5e94\u63a7\u4ef6\u3002
在窗体的Form_Load()事件里，用GetSetting函数恢复这几个内容。
例如：（我们假设"密码"这个输入框是Text1）
private sub Form_UnLoad()
SaveSetting App.ExeName,"DEFAULT","Text1",Text1.Text
'Save Text2
'Save Text3
end sub
private sub Form_Load()
Text1.Text=GetSetting(App.ExeName,"DEFAULT","Text1","密码")
'Text2 "购买到的账户名称"
'Text3 "请输入账户激活码"
end sub
可以在退出时，将相关的信息保存到一个配置文件里，下次再登陆里，从配置里取出对应的信息即可。
绛旓細鍦绐椾綋鐨Form_UnLoad()浜嬩欢閲岋紝鐢SaveSetting杩囩▼淇濆瓨鍑犱釜TextBox鐨勫唴瀹癸紙淇濆瓨鍦ㄧ郴缁熸敞鍐岃〃閲岋級銆傚湪绐椾綋鐨凢orm_Load()浜嬩欢閲岋紝鐢℅etSetting鍑芥暟鎭㈠杩欏嚑涓唴瀹广備緥濡傦細锛堟垜浠亣璁"瀵嗙爜"杩欎釜杈撳叆妗嗘槸Text1锛塸rivate sub Form_UnLoad()SaveSetting App.ExeName,"DEFAULT","Text1",Text1.Text 'Save Text...
绛旓細杩欎釜瑕鐢ㄥ埌娉ㄥ唽琛ㄦ垨鏂囦欢鎿嶄綔锛岀偣鈥滀繚瀛樷濆悗鎶婄姸鎬佸啓鍒版敞鍐岃〃鎴栨暟鎹枃浠讹紙INI鏂囦欢鎴栬嚜瀹氭牸寮忔枃浠堕兘鍙級锛岄噸杩涙椂鍦绐椾綋鐨LOAD浜嬩欢涓娉ㄥ唽琛ㄦ垨鏁版嵁鏂囦欢锛屽彇寰楃姸鎬佹暟鎹潵璁剧疆鏂囦欢妗嗙殑TEXT灞炴у氨鍙互浜嗐
绛旓細;绐椾綋1浠ｇ爜Private Sub Form_Click() Form2.Show Form2.x = Me.Left Form2.y = Me.Top Unload MeEnd Sub'绐椾綋2浠ｇ爜Public x As Single, y As SinglePrivate Sub Form_Click() Form1.Show Form1.Left = Me.x Form1.Top = Me.y Unload MeEnd Sub ...
绛旓細濡傛灉鎸夐挳鏂囧瓧涓嶅悓锛屽彲浠ラ氳繃sender.text鏉ヨ幏鍙栨寜涓嬬殑鎸夐挳鏂囧瓧銆傚鏋滄枃瀛楃浉鍚岋紝閭ｅ彧鑳藉姣斿叾瀹冪殑銆傛瘮濡傚姣攈andler锛屾瘡涓簨浠剁殑handle涓嶅悓銆傚彲浠ヨ繖涔堥亶鍘嗭紝dim buttons() as button={button1,button2}'鏀炬寜閽 for each item in buttons '閬嶅巻text鐨勬柟娉 if item.text=sender.text then '閬嶅巻handle鐨勬柟娉 ...
绛旓細淇濆瓨鍒版敞鍐岃〃涓紝鎴栦繚瀛樺埌涓涓枃鏈紙.txt锛変腑锛屽綋鐒跺鏋滄兂寤虹珛搴撶殑璇濓紝寤鸿淇濆瓨鍦ㄦ暟鎹簱涓紙濡俶db锛夈備繚瀛樺埌娉ㄥ唽琛紝鐢锛歋aveSetting 娉ㄥ唽琛ㄩ敭鍚(浣犵殑绋嬪簭鍚), 瀛愮▼搴忓悕(鏌愪釜绐楀彛鍚), 鍙傛暟鍚(濡傞挗涓濈洿寰), 鏁板 浠庢敞鍐岃〃涓鍙栵紝鐢細GetSetting(娉ㄥ唽琛ㄩ敭鍚, 瀛愮▼搴忓悕, 鍙傛暟鍚, 榛樿鍊) '...
绛旓細鐧诲綍杩涘叆淇濆瓨鐧诲綍甯愬彿 鍙互鑾峰緱鎿嶄綔鑰 鏈夋暟鎹氦浜掑彲浠ヨ幏寰楁搷浣滃唴瀹 鏃堕棿灏卞幓date 鏃堕棿锛佺劧鍚庢妸杩欎簺鏁版嵁淇濆瓨鍒颁綘鍒涘缓鐨勬暟鎹〃閲岄潰 鍏蜂綋浠ｇ爜 鑷繁鍐欙紒
绛旓細Private Sub Form_Load() '鍚姩绐椾綋鏃惰鍙栨敞鍐岃〃涓悇鎺т欢灞炴 Picture1.Visible = GetSetting(App.Title, "Setup", "Picture1_Visible", True)Text1.Text = GetSetting(App.Title, "Setup", "Text1_Text", "")End Sub Private Sub Form_Unload(Cancel As Integer) '閫鍑虹獥浣撴椂淇濆瓨鍚勬帶浠...
绛旓細绗竴闂細form_load鏄杞斤紝闄ら潪unload锛屼笉鐒惰閲嶅璋冪敤锛屽畠鏄笉浼+1鐨勶紝浣嗗彲浠ュ湪MainForm鐨刦orm_load閲屽仛涓浜涘垵濮嬪寲銆傝璁板綍璋冪敤娆℃暟鐨勮瘽锛屽彲浠ヨ冭檻鍦ㄥ悇绐椾綋鐨form_activate涓+1 鍙﹀锛屽鏋滅敤MainForm涓殑3涓狶abel鏉ユ樉绀哄悇绐椾綋璋冪敤鐨勬鏁帮紝瀹屽叏涓嶇敤鍐嶇敤浠涔堝叏灞鍙橀噺鎴栨ā鍧楀彉閲忥紝鐩存帴浣跨敤label鐨刢aption...
绛旓細浣犲彲浠ュ湪VB涓鎸塅2鑷繁鏌ョ湅鐩稿叧鐢ㄦ硶 Sub SaveSetting(AppName As String, Section As String, Key As String, Setting As String)VBA.Interaction 鐨勬垚鍛 淇濆瓨涓涓寚瀹氱殑搴旂敤绋嬪簭鍚嶇О銆佸尯鍜屽叧閿瓧涓嬬殑璁剧疆 === 1.鍙互淇濆瓨鍦ㄦ敞鍐岃〃鎴栬 txt鏂囦欢 鎴栬卛ni鏂囦欢涓 ini鏂囦欢鎿嶄綔鍑芥暟 http://zhidao.baidu.co...
绛旓細閭ｄ綘鍙兘鏄噰鍙栭愭璺熻釜鐨勫姙娉曚簡銆傛妸姣忎竴姝ユ搷浣滈兘璁板綍涓嬫潵锛屽苟淇濆瓨鍒發og鏂囦欢鎴栬卌sv鏂囦欢锛屾渶濂芥槸csv锛屾湁琛屾湁鍒楃殑濂芥煡闃咃紝涔熷ソ缁熻銆傚浜庢暟鎹殑鏇存敼鎴栬呮坊鍔狅紝闇瑕佽褰曚袱涓姩浣滐紝涓涓槸鎿嶄綔璁板綍锛屼緥濡傗渪x鏃堕棿xx绠＄悊鍛樿繘琛屾坊鍔犳搷浣滐紝鍙楀奖鍝嶈〃鏍紉x锛岃褰昳dxx鈥濄備簩涓槸鏁版嵁璁板綍锛岄拡瀵圭鐞嗗憳鎿嶄綔鐨勮褰曘
