《vb讀寫ini》word版

《《vb讀寫ini》word版》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在工程資料-天天文庫。

1、建議將變量寫入INI文件中，下次再用時(shí)直接讀取INI文件中變量的值。比如一個(gè)登陸窗口需要輸入用戶名和密碼，但是退出系統(tǒng)后再次登錄時(shí)還需要選擇或者輸入用戶名，這樣很麻煩所以可以將上次登錄的信息寫入INI文件中，下次登錄時(shí)直接讀取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'參數(shù)：[strSectionName]---要在其中寫入新字符串的[小節(jié)名]'strTopic----小節(jié)中的要設(shè)置的項(xiàng)目標(biāo)題,用vbNullString可刪除這個(gè)小節(jié)的所有設(shè)置項(xiàng).'strContent------指定為對應(yīng)項(xiàng)目標(biāo)題寫入的字符串內(nèi)容,用vbNullString可刪除這個(gè)項(xiàng)目現(xiàn)有的字符串.'strINIfilename------.ini文件的(完整)名稱,如果沒有找到,函數(shù)會(huì)創(chuàng)建它.'********************************

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的內(nèi)容：??OptionExplici

7、t?'--------classIniFile.cls代碼----------------?'這里定義了一個(gè)classIniFile類?'一個(gè)絕對經(jīng)典的在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