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

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

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