如何保存当前的设置。即实现存档功能。(请详细说明）50分

Question

use propertybag, read this:Persisting a Component's Data
http://msdn.microsoft.com/library/en-us/vbcon98/html/vbconpersistingcomponentsdata.asp?frame=true

Answer 1

有意的话，请留Email。
发例程序给你。

Answer 2

combread,我已经把E-MAIL地址通过短信息发给你了。请你把程序发给我，谢谢。

Answer 3

呵呵，可以用ini嘛！！！txt也行呀！！

Answer 4

我写的Ini模块：
Option Explicit
Private Declare Function WritePrivateProfileString _
        Lib "kernel32" Alias "WritePrivateProfileStringA" _
        (ByVal lpApplicationName As String, _
        ByVal lpKeyName As Any, _
        ByVal lpString As Any, _
        ByVal lpFileName As String) As Long
Public Declare Function GetPrivateProfileString _
        Lib "kernel32" Alias "GetPrivateProfileStringA" _
        (ByVal lpApplicationName As String, _
        ByVal lpKeyName As Any, _
        ByVal lpDefault As String, _
        ByVal lpReturnedString As String, _
        ByVal nSize As Long, _
        ByVal lpFileName As String) As Long
'FileName：Ini文件
'PathName：小节名
'KeyName：值名
'WriteValue：值
Public Function WriteIni(FileName As String, _
        PathName As String, _
        KeyName As String, _
        WriteValue As String) As Long
    Dim Rc As Long
    
    Rc = WritePrivateProfileString(PathName, KeyName, WriteValue, FileName)
    
    WriteIni = Rc
    
End Function'FileName：Ini文件
'PathName：小节名
'KeyName：值名
'BackValue：返回值
'Default：默认字符
Public Function ReadIni(FileName As String, _
        PathName As String, _
        KeyName As String, _
        BackValue As String, _
        Optional Default As String = "缺省") As Long
    Dim Rc As Long
    Dim TempNum As String
    Dim TempStr As String
    
    TempStr = String$(255, Chr$(0))
    TempNum = 255
    
    Rc = GetPrivateProfileString(PathName, KeyName, Default, TempStr, TempNum, FileName)
    
    If Rc <> 0 Then
        BackValue = Left$(TempStr, TempNum)
        
    End If
    
    ReadIni = Rc
    
End Function

Answer 5

不用那么麻纺：
保存参数：
SaveSetting "APP1", "选项", "X", str(form1.left)
SaveSetting "APP1", "选项", "Y", str(form1.top)
SaveSetting "APP1", "选项", "Caption", str(form1.caption)
SaveSetting "APP1", "选项", "User", strUserName程序启动时读取参数:
form1.left = cint(GetSetting("APP1", "选项", "X", "0"))
......
......
其它以此类推。

Answer 6

ohnoohno，查收信箱。
呵呵，星期五等了你一天，跑到那儿去了。
周六在家里上网，你却找来了
^_^

Answer 7

上午基本没时间来，要上班啊。谢谢~~combread(大点)