用VB开发应用程序如何使用INI文件

Str
AsString)
Dimres%
res%=WritePrivateprofileString(SectionName，KeyWord，ValStr，AppProfileName())
EndSub
SubSetIniN(ByValSectionNameAsString，ByValKeyWordAsString，ByValValInt
AsInteger)
Dimres%，s$
s$=Str$(ValInt)
res%=WriteprivateProfileString(SectionName，KeyWord，s$，AppProfileName())
EndSub

SectionName为每一部分的标题，KeyWord为关键词，GetIniS和GetIniN中的DefValue为关键词的缺省值，SetIniS和SetIniN的ValStr和ValInt为要写入INI文件的关键词的值。为了能更好地说明如何使用以上函数和过程，下面举两个实例。

实例1:

开发应用程序通常要使用数据库和其它一些文件，这些文件的目录(包括路径和文件名)不应在程序中固定，而是保存在INI文件中，程序运行时由INI文件中读入。读入数据库文件的代码如下:



DimDatabasenameAsString
Databasename=GetIniS(“数据库”，“职工”，“”)
IfDatabaseName=“”ThenDatabaseName=InputBox(“请输入数据库《职工》的目录”)，
App.Title)’也可通过“文件对话框”进行选择
OnErrorResumeNext
Setdb=OpenDatabas(DatabaseName)
IfErr<>0Then
MsgBox“打开数据库失败!”，MB-
ICONSTOP，App.Title:GotoErrorProcessing
Else
SetIniS“数据库”，“职工”，DatabaseName
EndIf
OnErrorGoTo0
……



实例2:

为了方便用户操作，有时需要保存用户界面的某些信息，例如窗口的高度和宽度等。装载窗体时，从INI文件中读入窗体高度和宽度，卸载窗体时将窗体当前高度和宽度存入INI文件，代码如下:



Sub Form1_Load()
……
Forml.Height=GetIniN(“窗体1”，“高度”，6000)
Form1.Width=GetIniN(“窗体1”，“高度”，4500)
EndSub
……
Sub Form1_Unload()
……
SetIniN“窗体1”，“高度”，Me.Height
SetIniN“窗体1，”宽度“，Me.Width
……
End Sub