《vb读写ini》word版

《《vb读写ini》word版》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、建议将变量写入INI文件中，下次再用时直接读取INI文件中变量的值。比如一个登陆窗口需要输入用户名和密码，但是退出系统后再次登录时还需要选择或者输入用户名，这样很麻烦所以可以将上次登录的信息写入INI文件中，下次登录时直接读取INI文件。读写INI文件代码如下：AttributeVB_Name="读写INI文本模块"OptionExplicitPublicDeclareFunctionGetPrivateProfileStringLib"kernel32"Alias"GetPrivateProfileStringA"

2、(ByVallpApplicationNameAsString,ByVallpKeyNameAsAny,ByVallpDefaultAsString,ByVallpReturnedStringAsString,ByValnSizeAsLong,ByVallpFileNameAsString)AsLongPublicDeclareFunctionWritePrivateProfileStringLib"kernel32"Alias"WritePrivateProfileStringA"(ByVallpApplicati

3、onNameAsString,ByVallpKeyNameAsAny,ByVallpStringAsAny,ByVallpFileNameAsString)AsLongPublicSubMyWriteINI(ByValstrSectionNameAsString,ByValstrTopicAsString,ByValstrContentAsString,ByValstrINIfilenameAsString)'******************************************************

4、*'功能：（建立）写入INI文件2004-5-17'参数：[strSectionName]---要在其中写入新字符串的[小节名]'strTopic----小节中的要设置的项目标题,用vbNullString可删除这个小节的所有设置项.'strContent------指定为对应项目标题写入的字符串内容,用vbNullString可删除这个项目现有的字符串.'strINIfilename------.ini文件的(完整)名称,如果没有找到,函数会创建它.'********************************

5、**********************DimlngSuccessAsLonglngSuccess=WritePrivateProfileString(strSectionName,strTopic,strContent,strINIfilename)IflngSuccess=0ThenDisplayMessage"写入INI文件失败！"EndIfExitSubEndSubPublicFunctionMyReadINI(ByValstrSectionNameAsString,ByValstrTopicAsStri

6、ng,ByValstrINIfilenameAsString)AsStringDimlngRetAsLongDimbuffAsStringbuff=String(255,0)lngRet=GetPrivateProfileString(strSectionName,strTopic,"",buff,256,strINIfilename)IflngRet>0ThenMyReadINI=buffEndIfExitFunctionEndFunction classIniFile.cls的内容：  OptionExplici

7、t '--------classIniFile.cls代码---------------- '这里定义了一个classIniFile类 '一个绝对经典的在VB中操作.ini文件的通用类源代码 '程序编写：中国青岛·许家国 '2002.6.16 'E－Mail:goj2000@163.com 'HomePage:http://www.gojclub.com ' 'Privatememberthatholdsareferenceto 'thepathofourinifile PrivatestrINIAsString '

8、WindowsAPIDeclares PrivateDeclareFunctionWritePrivateProfileStringLib"kernel32"Alias"WritePrivateProfileStringA"_ (ByVallpApplicationNameAsString,_ ByVallpKeyNameAsAny,_ ByV