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

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