一个绝对经典的在VB中操作.ini文件的通用类源代码

程序界面：

源程序：

classIniFile.cls的内容：

Option Explicit

＇classIniFile.cls 代码
＇这里定义了一个classIniFile类
＇一个绝对经典的在VB中操作.ini文件的通用类源代码
＇程序编写：中国青岛·许家国
＇ 2002.6.16
＇E－Mail: goj2000@163.com
＇HomePage: http:www.gojclub.com
＇
＇Private member that holds a reference to
＇the path of our ini file

Private strINI As String

＇Windows API Declares
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" _
(ByVal lpApplicationName As String _
ByVal lpKeyName As Any _
ByVal lpString As Any _
ByVal lpFileName As String) As Long

Private Declare Function GetPrivateProfileString _
Lib "kernel32" Alias "GetPrivateProfileStringA" _
(ByVal lpApplicationName As String _
ByVal lpKeyName As Any _