在vb中 如何保存程序的设置 *·#￥%（替一位很靓的MM问的）·#￥·！

[zyf_zsj1]

用vb编了一个地址簿 如何在退出时保存文件
各位大哥 快救救小弟吧 不然 有我好看了

[step]

写成文本文件

[DTWUJP]

你用了数据库了吗，你将它保存在数据库里不行了吗。你最好讲得详细些,是怎么不能保存了。

[piaoyang80]

同意step(飞沙)　
也可以建立一个简单的Accse数据库暂时保存信息，
然后重新运行时在Form_load代码段里在加入。

[Leemaasn]

使用数据库比较好，（专业，呵呵。。。）

[zyf_zsj1]

如果是记录用的控件 怎么在退出是保存程序当时的状态呢？？？？

[a_geng]

如果使用的是控件，它会自动调用Update保存到数据库。
如果不放心，可以在Form_Unload中调用控件的Update方法。

[piaoyang80]

控件也一样呀，你举个例题。
我门一起讨论

[MonkeyLin]

用ini也可以：

WritePrivateProfileString

VB声明
Declare Function WritePrivateProfileString& Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As String, ByVal lpFileName As String)
说明
在初始化文件指定小节内设置一个字串
返回值
Long，非零表示成功，零表示失败。会设置GetLastError
参数表
参数 类型及说明
lpApplicationName String，要在其中写入新字串的小节名称。这个字串不区分大小写
lpKeyName Any，要设置的项名或条目名。这个字串不区分大小写。用vbNullString可删除这个小节的所有设置项
lpString String，指定为这个项写入的字串值。用vbNullString表示删除这个项现有的字串
lpFileName String，初始化文件的名字。如果没有指定完整路径名，则windows会在windows目录查找文件。如果文件没有找到，则函数会创建它
其他
在vb的api文本查看器里复制的声明如下：
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

GetPrivateProfileSection

VB声明
Declare Function GetPrivateProfileSection Lib "kernel32" Alias "GetPrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
说明
获取指定小节所有项名和值的一个列表
返回值
Long，装载到lpReturnedString缓冲区的字符数量。如缓冲区的容量不够大，不能容下所有信息，就返回nSize-2
参数表
参数 类型及说明
lpAppName String，欲获取的小节。注意这个字串不区分大小写
lpReturnedString String，项和值字串的列表。每个字串都由一个NULL字符分隔，最后一个字串后面用两个NULL字符中止
nSize Long，lpReturnedString缓冲区的大小。在windows系统中最大值为32767
lpFileName String，初始化文件的名字。如没有指定完整路径名，windows就在Windows目录中查找文件
注解
参考对GetPrivateProfileInt函数的注解

[zyf_zsj1]

多谢各位大哥 小弟我终于给解决这个问题了

[gameboy999]

漂亮的MM呀～～你在哪～～～