'//////////////////////////////
'中文名稱：INI文件操作類
'英文名稱：Blood_INI Class
'作者：Blood
'制作時間：2002.2.8
'版本：1.0
'版權所有 Blood 2002-2003
'//////////////////////////////

'申明變量
Private strAppName As String 'INI小節名稱
Private strKeyName As String 'INI項目名
Private strValueStr As String 'INI的項目值
Private strFileName As String 'INI文件名

'申明操作INI文件的API
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As String, ByVal lpFileName As String) As Long

'////////////////////
'開始定義函數
'////////////////////

'定義寫INI文件的函數
Public Function WriteINI() As Long
'通過API將值寫入INI文件
WriteINI = WritePrivateProfileString(strAppName, strKeyName, strValueStr, strFileName)
End Function

'定義讀INI文件的函數
Public Function GetINI() As String
Const STRING_SIZE = 255 '指定字符串長度
Dim lngLength As Long '定義API函數返回的長度
Dim strDefault As String * STRING_SIZE '定義在沒有找到指定的項目時返回的默認值
Dim strReturn As String * STRING_SIZE '定義一個字符串緩沖區

'通過API函數取得INI文件的內容
lngLength = GetPrivateProfileString(strAppName, strKeyName, strDefault, strReturn, STRING_SIZE, strFileName)

'通過判斷API函數返回的長度來確定返回的值
If (lngLength = 0) Then
GetINI = strValueStr
Else
GetINI = Mid(strReturn, 1, lngLength)
End If

End Function

'////////////////////
'定義函數結束
'////////////////////

'////////////////////
'開始定義屬性
'////////////////////

'取得INI文件的名稱
Public Property Let FileName(ByVal strFile As String)
strFileName = strFile
End Property

'取得項目值
Public Property Let ValueStr(ByVal strValue As String)
strValueStr = strValue
End Property

'取得項目名稱
Public Property Let KeyName(ByVal strKey As String)
strKeyName = strKey
End Property

'取得小節名稱
Public Property Let AppName(ByVal strApp As String)
strAppName = strApp
End Property

'////////////////////
'結束定義屬性
'////////////////////