ini文件类.cls

实现对触摸屏的监控

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "cIniFile"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

'--------cIniFile.cls 代码----------------
'这里定义了一个cIniFile类
'// public member that holds a reference to

'// the path of our ini file
Private strInI As String

'// Win 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, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

Public Function MakePath(ByVal strDrv As String, _
  ByVal strDir As String) As String

'// Makes an INI file: Guarantees a sub dir
Do While Right$(strDrv, 1) = "\"
   strDrv = Left$(strDrv, Len(strDrv) - 1)
Loop

Do While Left$(strDir, 1) = "\"
   strDir = Mid$(strDir, 2)
Loop

'// Return the path
MakePath = strDrv & "\" & strDir
End Function

Public Sub CreateIni(strDrv As String, strDir As String)


'// Make a new ini file
strInI = MakePath(strDrv, strDir)
End Sub

Public Sub WriteFile(strSection As String, _
strKey As String, _
strValue As String)

'// Write to strINI
WritePrivateProfileString strSection, _
   strKey, strValue, strInI
End Sub

Public Function GetFile(strSection As String, _
  strKey As String) As String

  Dim strTmp As String
  Dim lngRet As String

  strTmp = String$(100, Chr(32))
  lngRet = GetPrivateProfileString(strSection, _
    strKey, "", strTmp, _
    Len(strTmp), strInI)
    
  GetFile = strTmp

End Function

Public Property Let INIFile(ByVal New_IniPath As String)

'// Sets the new ini path
strInI = New_IniPath

End Property

Public Property Get INIFile() As String

'// Returns the current ini path
INIFile = strInI

End Property

'cIniFile.cls 使用举例
'Dim myIniFile As New cIniFile
'指定访问的ini文件
'If Len(App.Path) > 3 Then
'under disk root dir , eg: "C:\"
'   myIniFile.INIFile = App.Path & "\setting.ini"
'Else
'   myIniFile.INIFile = App.Path & "setting.ini"
'End If
 
'写入ini文件

'myIniFile.WriteFile "setting", "username", strUser

'读出ini文件的数据
'注意，如果是字符串，则去掉末尾一个字符
 
'strUser = Trim(myIniFile.GetFile("setting", "username"))
'strUser = Left(strUser, Len(strUser) - 1)