请教一个问题：程序设计完后，里面有一些修改参数的选项（比如延时1000改为10后），请问如何将修改的结果保存的文件中，以便下次启动程序后在调用最新的配置。有几种方法，好象有INI文件，注册表等，能否具体说明如何使用，最好有具体的例子（源代码），万分感谢！急用中~~~

我也是急切想知道啊！

不一定说用什么ini文件.和注册表..你可以自己建个文件...自己写数据进去..然后再用open语句.用input去读就行了.

在VB应用程序中使用INI文件的一点体会

天津财经学院经济信息管理系 金培权

摘要 结合实例介绍了在VB中调用Windows API函数操作初始化文件的方法和优点．
关键词　　VB Windows API INI文件

一、INI文件概述

Windows INI文件,可解释为Windows初始化文件。它是一种专门用来保存应用程序
初始化信息和运行环境信息的文本文件。例如Windows 3.1中两个著名的INI文件
win.ini和system.ini就在Windows启动时定义了Windows环境中鼠标响应速度、使
用的外壳(shell)程序等设置。Windows系统附带的许多应用程序也都有自己的INI
文件,例如控制面板的INI 文件为control.ini,它也同样定义了控制面板的有关设
置。ini文件是一种文本文件,它可以通过Notepad等文本编辑器进行编辑。ini文件
具有特定的格式。一个INI文件是由若干个段(section)组成的,每个段中包含若干
关键字(key)及相应的值(value)。段的格式如下:

[SectionName]
KeyName=Value

其中SectionName和KeyName分别是段名和关键字名,Value为关键字对应的设定值。
需要加以注意的是:

(1)段名必须加以"["和"]",且"["必须在屏幕的第一列;
(2)关键字名也必须从屏幕的第一列开始书写,且后面必须紧跟"=";
(3)可以对文件加以注释,每行注释须以";"开头。

在Windows中,可以通过手工编辑INI 文件来改变应用程序设置。如要想将Windows
的外壳程序改为文件管理器,则可将system.ini中[boot]段下的"shell=progman.
exe"改为"shell=winfile.exe"。有些设置也可以直接在应用程序界面上更改,但实
际上也是通过修改INI文件来保存这些修改的。

二、在VB中操作INI文件的几个Windows API函数

在开发应用程序时,我们可以创建应用程序自己的INI文件,通过INI文件保存应用程
序的一些运行环境信息,然后在程序中读取INI文件中的设置信息并据以处理。一旦
程序的运行环境需要变更,则可以通过直接修改INI文件或在程序中提供专门的界面
间接地修改INI文件来保证程序的可用性。

VB(Visual Basic)语言是近年来十分流行的一种面向对象的编程语言,但VB本身并
不提供操纵INI文件的函数。所幸的是, VB支持DLL(Dynamic Link Library)的调用。
(一个DLL事实上就是一个可供其它支持DLL调用的应用程序调用的外部函数集。)
DLL中的函数称为API(应用编程接口,Application Programming Interface)函数。
我们可以通过调用相应的API函数来实现操纵INI文件的功能。下面列出了相关的
API函数及其说明。在使用这些函数之前,必须首先在VB的模块文件(.bas)中用
Declare语句对它们进行声明。

三、实例分析

下面就笔者参加天津财经学院教学办公自动化(OA)系统开发的实践介绍一下具体的
实现方法。假定项目文件为man.mak,对应的INI文件为man.ini,其部分内容如下:

[数据库]
文件名=\\DEC_LX5120\DB\OA.mdb
[开户银行]
类型数=3
B1=中国人民银行
B2=中国农业银行
B3=中国工商银行

1. 在程序启动时(执行SUB MAIN()和SUB FORM_LOAD()),从man.ini文件中读取相应
的值并进行以后的操作。其中SUB MAIN()中的有关代码如下:

Dim DbName as String*255 '数据库名
Dim n as Integer
'得到INI文件名,INIfileName为一全局变量
INIfileName=App.Path&"\"&app.ExeName&".ini"
'从man.ini中读取数据库文件名
n=GetPrivateProfileString("数据库","文件名","",DbName,Len(DbName),
INIfileName)
DbName=Left(DbName,n)
'打开数据库,Db为一全局变量
Set Db=OpenDatabase(DbName)
在FORM_LOAD()过程中,读取了man.ini中有关的内容并加入相应的组合框(Combo
Box)列表中。这里只给出对"[开户银行]"段的相应操作,代码如下:
Dim BankCount as Integer '银行类型数
Dim BankName as String*255 '银行名
Dim i as Integer,n as Integer
'读取原有银行类型数
BankCount=GetPrivateProfileInt("开户银行","类型数",0,INIfileName)
'读取银行名并加入到组合框cmbBank中
For I=1 to BankCount
n=GetPrivateProfileString("开户银行","B"&i,BankName,Len(BankName),
INIfileName)
BankName=Left(BankName,n)
cmbBank.AddItem BankName
Next I

2. 在程序中提供了一个专用维护界面,该界面通过操作INI文件的相应内容来实现
相应的修改。

'下面代码实现数据库路径的修改
Dim n as Integer
'txtDbName.Text对应新的数据库文件名
If txtDbName.Text="" Then
MsgBox "数据库文件名不能为空!",MB_ICONSTOP,App.Title
txtDbName.SetFocus
Exit Sub
Else
'修改数据库文件名
n=WritePrivateProfileString("数据库","文件名",txtDbName.Text,
INIfileName)
End If

'下面代码往组合框"开户银行"中增加一个新银行
Dim NewBank as String '新银行名
Dim BankCount as Integer '银行类型数
Dim I as Integer,n as Integer
'输入新银行名
NewBank=InputBox("增加开户银行。",App.Title,"")
If NewBank="" Then
MsgBox "银行名不能为空!",MB_ICONSTOP,App.Title
Exit Sub
Else
'判断输入的银行名是否已存在于列表中
For I=0 to cmbBank.ListCount-1
If NewBank=cmbBank.List(i) Then
'存在则终止
MsgBox NewBank&"已存在于列表中!",MB_ICONSTOP,App.Title)
Exit Sub
End If
Next I
'读取原银行类型数
BankCount=GetPriVateProfileInt("开户银行","类型数",0,INIfileName)
'将银行类型数增1
BankCount=BankCount+1
n=WritePrivateProfileString("开户银行","类型数",Str(BankCount),
INIfileName)
'将新银行名写入INI文件中
n=WritePrivateProfileString("开户银行","B"&BankCount,NewBank,
INIfileName)
End If

四、结论

综上所述,在实际的VB应用程序开发中,适当地利用INI文件,可以很好地改善程序的
可维护性和可用性。尤其在数据库访问中使用INI文件可使用户在数据库路径改变
时免去修改原代码之苦。在实际开发中,若结合一定的维护界面,也可使应用程序容
易维护,增强友好性。

现在才看到..原来是05年的贴..我倒..