'申明变量 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 '定义一个字符串缓冲区