Question

VB怎么保存窗体中的各种部件属性。比如 Picture1.Visible =True或者False，在下次启动窗体时记住上次的选择

这段代码该怎么写的？给个例子。读写INI或注册表都可以。，最好有能自动保存窗体所有更变的代码。谢谢！！

Answer 1

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) '退出窗体时保存各控件属性到注册表
SaveSetting App.Title, "Setup", "Picture1_Visible", Picture1.Visible
SaveSetting App.Title, "Setup", "Text1_Text", Text1.Text
End Sub

追问

谢谢、这正是我要的！可是有办法自动保存所有部件的所有更变，而不用一个一个写吗？

追答

没这种现成的。因为每个部件都有几十种甚至上百种属性，如果全部自动保存的话，会占用很多系统资源的（尤其是部件很多的时候，光是保存这些都要上百KB的数据），而其中的大部分属性都是一成不变的，全部保存没这必要，而且会造成程序启动和关闭时变得很慢，所以一般都把重要的经常改变的数据保存即可。如果确实需要保存大量数据，而且数据的变化是存在规律性的，则建议尽量采用数据库了，把控件与数据库绑定，它就会自动更新了。

Answer 2

FRM文件自动保存了，你可以用记事本打开就能看到。

追问

不是这个意思。是保存对程序所有操作的代码。

追答

程序是你写的话，在鼠标点击的地方写代码保存下来就是