如何保存一个程序设置的资料？

Question

保存到INI文件，这样别人会说您的程序“环保”
保存到注册表，这种比较流行看你自己愿意用那种了

Answer 1

更简单一点保存到txt文件，将设置好的属性值按一定的顺序保存在文件中，然后按同样的顺序读出。

Answer 2

Option Explicit'    Purpose:
'     Author:吴文智
'       Date:2001-1
'Description:要试用本例请在代码窗体中粘贴如下代码
'            Good luck!Private Sub Form_Load()
    Me.Font.Size = GetSetting(App.EXEName, "Config", "FontSize", 12)
    Me.Font.Name = GetSetting(App.EXEName, "Config", "FontName", "宋体")
    
    '如果已保存了背景就显示
    If Dir(App.Path & "\bg.bmp") <> "" Then
        Me.Picture = LoadPicture(App.Path & "\bg.bmp")
    End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
    SaveSetting App.EXEName, "Config", "FontSize", Me.Font.Size
    SaveSetting App.EXEName, "Config", "FontName", Me.Font.Name
    
    '如果窗体有背景就保存
    If Me.Picture Is Nothing Then
    Else
        SavePicture Me.Image, App.Path & "\bg.bmp"
    End If
End Sub