这个代码是我搜来的！

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

我需要自动保存一些设置好的信息该怎么写呢！列入我填写好一些控件里的信息！可以点击
保存键或者不点击在我关闭工具的时候可以自动保存，打开后自动读取！只用保存一次设置的信息就可以！如果有新信息要输入！我可以点击清除从新设置！
我搜了一下相关资料，像我这样只保存这么一点信息的花可以不用生成TXT或者INI或者数据库！，实现这样的功能我应该怎么写代码呢！！各位师傅帮帮忙了！！谢谢了！！

一下是建立好的工程！方便帮助我的师傅们就不用创建界面了！！

那bczgvip 这个是不用INI的吧！我数据不多！如果用INI是不是没必要呢？
那如果要使用INI在你现在这个代码里需要怎么修改来实现嗯！！！

感谢死你了！呵呵

对了！！不用声明吗！！！？

bczgvip
我测试了！！我点清除出现出错！！！！

        If TypeOf v Is COMBOBox Then ' 可以自行添加别的控件设置 CommandButton TextBox 等
            v.LIST = GetSetting(App.Title, Me.Name, v.Name, "默认值") '默认值自己设置
        End If
v.LIST 在这是不是应该加索引哦。bczgvip拜托了。你帮我处理一下啦

bczgvip   我想加个ListBox，这样就不用那么多TEXT了！！但是怎么改都出错！
 v.List1 = GetSetting(App.Title, Me.Name, v.Name, "List1.List")  这个出错！
v.Text = GetSetting(App.Title, Me.Name, v.Name, "List1.List") 这样能运行！但是保存之会出现Form1         List1  没有值！

ListBox要赋值或者让TEXT获得值是 Text1 = List1.List(1)这个是获得第2个选项里的值对吧！Text1 = List1.List（List1.ListIndex）这是选择赋值对吧！
我是什么地方书写不对呢！！！还是不用应该这么写？？

 v.Text = GetSetting(App.Title, Me.Name, v.Name, "0")
        
v.Name这个不是名称名可以填写List1，但是填写后都不对！！！！！

[ 本帖最后由 qiziyun 于 2013-1-23 05:50 编辑 ]

昨晚看电影看晚了！然后就改改看！结果一直出错

这条好像只是读取的对吧我要自己+储存是吗！

兄弟！！我看这代码意思应该是-1表示从头开始往下循环获取全部List里的值对吧！！我想我选那一个就保存那一个就行了！！我下个绿色版VB打开看看！！

我用的ListBox控件是下拉选择的