【VB开源代码栏目提醒】：网学会员为广大网友收集整理了，在VB应用程序中使用INI文件的一点体会 - 社会科学，希望对大家有所帮助！

1 在VB应用程序中使用INI文件的一点体会 一、INI文件概述 Windows INI文件可解释为Windows初始化文件。

    它是一种专门用来保存应用程序初始化信息和运行环境信息的文本文件。

    例如Windows 中两个著名的INI文件win.ini和system.ini就在Windows启动时定义了Windows环境中鼠标响应速度、使用的外壳shell程序等设置。

    Windows系统附带的许多应用程序也都有自己的INI文件例如控制面板的INI 文件为control.ini它也同样定义了控制面板的有关设置。

    ini文件是一种文本文件它可以通过Notepad等文本编辑器进行编辑。

    ini文件具有特定的格式。

    一个INI文件是由若干个段section组成的每个段中包含若干关键字key及相应的值value。

    段的格式如下: SectionName KeyNameValue 其中SectionName和KeyName分别是段名和关键字名Value为关键字对应的设定值。

    需要加以注意的是: 1段名必须加以和且必须在屏幕的第一列 2关键字名也必须从屏幕的第一列开始书写且后面必须紧跟 3可以对文件加以注释每行注释须以开头。

     在Windows中可以通过手工编辑INI 文件来改变应用程序设置。

    如要想将Windows的外壳程序改为文件管理器则可将system.ini中boot段下的shellprogman.exe改为shellwinfile.exe。

    有些设置也可以直接在应用程序界面上更改但实际上也是通过修改INI文件来保存这些修改的。

     二、在VB中操作INI文件的几个Windows API函数 在开发应用程序时我们可以创建应用程序自己的INI文件通过INI文件保存应用程序的一些运行环境信息然后在程序中读取INI文件中的设置信息并据以处理。

    一旦程序的运行环境需要变更则可以通过直接修改INI文件或在程序中提供专门的界面间接地修改INI文件来保证程序的可用性。

     VBVisual Basic语言是近年来十分流行的一种面向对象的编程语言但VB本身并不提供操纵INI文件的函数。

    所幸的是 VB支持DLLDynamic Link Library的调用。

    一个DLL事实上就是一个可供其它支持DLL调用的应用程序调用的外部函数集。

    DLL中的函数称为API应用编程接口Application Programming Interface函数。

    我们可以通过调用相应的API函数来实现操纵INI文件的功能。

    下面列出了相关的API函数及其说明。

    在使用这些函数之前必须首先在VB的模块文件.bas中用Declare语句对它们进行声明。

     三、实例分析 下面就笔者参加天津财经学院教学办公自动化OA系统开发的实践介绍一下具体的实现方法。

    假定项目文件为man.mak对应的INI文件为man.ini其部分内容如下: 数据库 文件名DEC_LX5120DBOA.mdb 开户银行 2 类型数3 B1中国人民银行 B2中国农业银行 B3中国工商银行 1. 在程序启动时执行SUB MAIN和SUB FORM_LOAD从man.ini文件中读取相应的值并进行以后的操作。

    其中SUB MAIN中的有关代码如下: Dim DbName as String255 数据库名 Dim n as Integer 得到INI文件名INIfileName为一全局变量 INIfileNameApp.Pathapp.ExeName.ini 从man.ini中读取数据库文件名 nGetPrivateProfileString数据库文件名DbNameLenDbName _ INIfileName DbNameLeftDbNamen 打开数据库Db为一全局变量 Set DbOpenDatabaseDbName 在FORM_LOAD过程中读取了man.ini中有关的内容并加入相应的组合框Combo Box列表中。

    这里只给出对开户银行段的相应操作代码如下: Dim BankCount as Integer 银行类型数 Dim BankName as String255 银行名 Dim i as Integern as Integer 读取原有银行类型数 BankCountGetPrivateProfileInt开户银行类型数0INIfileName 读取银行名并加入到组合框cmbBank中 For I1 to BankCount nGetPrivateProfileString开户银行BiBankNameLenBankName_ INIfileName BankNameLeftBankNamen cmbBank.AddItem BankName Next I 2. 在程序中提供了一个专用维护界面该界面通过操作INI文件的相应内容来实现相应的修改。

     下面代码实现数据库路径的修改 Dim n as Integer txtDbName.Text对应新的数据库文件名 If txtDbName.Text Then MsgBox 数据库文件名不能为空MB_ICONSTOPApp.Title txtDbName.SetFocus Exit Sub Else 修改数据库文件名 nWritePrivateProfileString数据库文件名txtDbName.TextINIfileName 3 End If 下面代码往组合框开户银行中增加一个新银行 Dim NewBank as String 新银行名 Dim BankCount as Integer 银行类型数 Dim I as Integern as Integer 输入新银行名 NewBankInputBox增加开户银行。

    App.Title If NewBank Then MsgBox 银行名不能为空MB_ICONSTOPApp.Title Exit Sub Else 判断输入的银行名是否已存在于列表中 For I0 to cmbBank.ListCount-1 If NewBankcmbBank.Listi Then 存在则终止 MsgBox NewBank已存在于列表中MB_ICONSTOPApp.Title Exit Sub End If Next I 读取原银行类型数 BankCountGetPriVateProfileInt开户银行类型数0INIfileName 将银行类型数增1 BankCountBankCount1 nWritePrivateProfileString开户银行类型数StrBankCountINIfileName 将新银行名写入INI文件中 nWritePrivateProfileString开户银行BBankCountNewBankINIfileName End If 四、结论 综上所述在实际的VB应用程序开发中适当地利用INI文件可以很好地改善程序的可维护性和可用性。

    尤其在数据库访问中使用INI文件可使用户在数据库路径改变时免去修改原代码之苦。

    在实际开发中若结合一定的维护界面也可使应用程序容易维护增强友好性。