VB经典:操作.ini文件的通用类源代码

下一页 1 2 3 4 

　　   一个绝对经典的在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, _

原文转自：http://www.ltesting.net