VB.NET經(jīng)過(guò)長(zhǎng)時(shí)間的發(fā)展，很多用戶都很了解VB.NET了，這里我發(fā)表一下關(guān)于讀寫VB.NET INI文件個(gè)人理解，和大家分享一下。

#T#自從注冊(cè)表誕生以來(lái)ini文件正在逐漸失去其市場(chǎng)占有率，然而基于ini文件的獨(dú)立性，致使其還沒(méi)有到達(dá)退出歷史舞臺(tái)的地步，很多應(yīng)用程序的初始化和一些界面參數(shù)的設(shè)置仍然很愿意從ini文件中讀取，為了保證操作需用參數(shù)對(duì)ini文件的讀取的通明性，建議使用一個(gè)模塊來(lái)完成此工作。注：所有操作調(diào)用標(biāo)準(zhǔn)的WinAPI函數(shù)來(lái)完成。讀寫VB.NET INI文件例子代碼：

DimRetAsLong  
DimStartAsLong  
PublicFileNameAsString  
ConstBufSize=10240 
DimbufAsString*BufSize  
PrivateDeclareFunctionGetPrivateProfileIntLib"kernel32"Alias"GetPrivateProfileIntA"  
(ByVallpApplicationNameAsString,ByVallpKeyNameAsString,ByValnDefaultAsLong,ByVallpFileNameAsString)AsLong  
 
PrivateDeclareFunctionGetPrivateProfileSectionLib"kernel32"Alias"GetPrivateProfileSectionA"  
(ByVallpAppNameAsString,ByVallpReturnedStringAsString,ByValnSizeAsLong,ByVallpFileNameAsString)AsLong  
 
PrivateDeclareFunctionGetPrivateProfileStringLib"kernel32"Alias"GetPrivateProfileStringA"  
(ByVallpApplicationNameAsString,ByVallpKeyNameAsAny,ByVallpDefaultAsString,ByVallpReturnedStringAsString,ByValnSizeAsLong,ByVallpFileNameAsString)AsLong  
 
PrivateDeclareFunctionWritePrivateProfileSectionLib"kernel32"Alias"WritePrivateProfileSectionA"  
(ByVallpAppNameAsString,ByVallpStringAsString,ByVallpFileNameAsString)AsLong  
 
PrivateDeclareFunctionWritePrivateProfileStringLib"kernel32"Alias"WritePrivateProfileStringA"  
(ByVallpApplicationNameAsString,ByVallpKeyNameAsAny,ByVallpStringAsAny,ByVallpFileNameAsString)AsLong  
 
PublicSubSetValue(ByValclsNameAsString,ByValkeyAsString,ByValVAsString)  
Ret=WritePrivateProfileString(clsName,key,V,FileName)  
EndSub  
 
PublicFunctionGetValue(ByValclsNameAsString,ByValkeyAsString)AsString  
Ret=GetPrivateProfileString(clsName,key,"",buf,BufSize,FileName)  
Start=1 
GetValue=RetStr()  
EndFunction  
 
PrivateFunctionRetStr()AsString  
DimiAsLong  
i=InStr(Start,buf,Chr(0))  
Ifi>StartThen  
RetStr=Mid(buf,Start,i-Start)  
EndIf  
Start=i+1  
EndFunction  

上面就是一個(gè)讀寫VB.NET INI文件的例子，希望對(duì)大家有用。