公司做程序要求不能用数据库方式来判断节假日
要求用ini来配置
请问高手，怎样配置比较方便
要求用ini来配置
请问高手，怎样配置比较方便
解决方案 »
- 请教combox控件itemdata值越界问题！
- VB6.0鼠标按住不放，如何获得持续的时间？
- 如何执行.sql文件？
- dao，ado都稍微懂一点，都说ado好，有没有必要深入学习一下dao呢？
- DataGrid如何判断鼠标位于第几列?
- ？模板文件的制作（文本文件，记录TextBox在Picture中大小，位置）
- 一个程序和网页交互的问题，急，请程序高手和asp高手进来
- 奇怪的问题，为何datagrid1中collindex的值为空？？？
- teechar画曲线的问题
- 女程序员的烦恼谁来解答？？？如何使用进程条progressbar
- 求VB RezQ 正式版！急急急！
- 托盘最小化以后，怎么象QQ一样，只在屏幕的右下角显示一个图标？？？怎么写，各位给看看，谢谢了！！！
http://www.zjol.com.cn/vbbible/software/program/vb/vb_vbini.htm
摘要：结合实例介绍了在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[开户银行]类型数=3B1=中国人民银行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 BankCountn=GetPrivateProfileString("开户银行","B"&i,BankName,Len(BankName),INIfileName)BankName=Left(BankName,n)cmbBank.AddItem BankNameNext I 2. 在程序中提供了一个专用维护界面,该界面通过操作INI文件的相应内容来实现相应的修改。 '下面代码实现数据库路径的修改Dim n as Integer'txtDbName.Text对应新的数据库文件名If txtDbName.Text="" ThenMsgBox "数据库文件名不能为空!",MB_ICONSTOP,App.TitletxtDbName.SetFocusExit SubElse'修改数据库文件名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="" ThenMsgBox "银行名不能为空!",MB_ICONSTOP,App.TitleExit SubElse'判断输入的银行名是否已存在于列表中For I=0 to cmbBank.ListCount-1If NewBank=cmbBank.List(i) Then'存在则终止MsgBox NewBank&"已存在于列表中!",MB_ICONSTOP,App.Title)Exit SubEnd IfNext I'读取原银行类型数BankCount=GetPriVateProfileInt("开户银行","类型数",0,INIfileName)'将银行类型数增1BankCount=BankCount+1 n=WritePrivateProfileString("开户银行","类型数",Str(BankCount),INIfileName)'将新银行名写入INI文件中n=WritePrivateProfileString("开户银行","B"&BankCount,NewBank,INIfileName)End If 四、结论综上所述,在实际的VB应用程序开发中,适当地利用INI文件,可以很好地改善程序的可维护性和可用性。尤其在数据库访问中使用INI文件可使用户在数据库路径改变时免去修改原代码之苦。在实际开发中,若结合一定的维护界面,也可使应用程序容易维护,增强友好性。