home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 6_2008-2009.ISO / data / zips / VIDEO_TO_C2172701122010.psc / clsINI.cls < prev   
Text File  |  2009-10-08  |  1KB  |  37 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. ' ModINIWG.bas
  15.  
  16. Option Explicit
  17.  
  18. Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" _
  19.         (ByVal lpApplicationName As String, ByVal lpKeyName As Any, _
  20.         ByVal lpString As Any, ByVal lpFileName As String) As Long
  21. Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" _
  22.         (ByVal lpApplicationName As String, ByVal lpKeyName As Any, _
  23.         ByVal lpDefault As String, ByVal lpReturnedString As String, _
  24.         ByVal nSize As Long, ByVal lpFileName As String) As Long
  25. ' lpDefault is the string return if no ini file found.
  26. '------------------------------------------------------
  27.  
  28. ' File  stuff  ini & RecentFiles
  29. 'Public IniTitle$, IniSpec$
  30.  
  31. Public FileName$
  32.  
  33.  
  34. 'Public Const MaxRecentFiles = It MaxRecentFiles = It MaxRecentFiles = It MaxRecentnUtName$
  35. Ueund.
  36.  oh ' kd
  37. af