home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / NexIRC_v2_2222363312012.psc / clsINI.cls < prev    next >
Text File  |  2004-07-18  |  2KB  |  46 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "clsINI"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. Option Explicit
  15. 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
  16. 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
  17. Private mvarAppName As String
  18. Private mvarDefaultReturn As String
  19.  
  20. Public Property Let DefaultReturn(ByVal vData As String)
  21.     mvarDefaultReturn = vData
  22. End Property
  23.  
  24. Public Property Get DefaultReturn() As String
  25.     DefaultReturn = mvarDefaultReturn
  26. End Property
  27.  
  28. Public Property Let AppName(ByVal vData As String)
  29.     mvarAppName = vData
  30. End Property
  31.  
  32. Public Property Get AppName() As String
  33.     AppName = mvarAppName
  34. End Property
  35.  
  36. Public Sub WPPS(KeyName As String, txt As String, FileName As String)
  37. WritePrivateProfileString mvarAppName, KeyName, txt, FileName
  38. End Sub
  39.  
  40. Public Function GPPS(KeyName As String, FileName As String) As String
  41. Dim str As String * 500
  42. GetPrivateProfileString mvarAppName, KeyName, mvarDefaultReturn, str, Len(str), FileName
  43. GPPS = Trim(str)
  44. End Function
  45.  
  46.