Module: INIFile in Category Windows : INI File from Total Visual SourceBook

' Example of the modINIFile module
'
' To use this example:
' 1. Create a new form.
' 2. Create a command button called cmdTest
' 3. Paste the entire contents of this module into the new form's module.
'
' This example assumes that the sample files are located in the folder named by the following constant.
Private Const mcstrSamplePath As String = "C:\Total Visual SourceBook 2013\Samples\"

Private Sub cmdTest_Click()
  ' This procedure shows how to use the modINIFile module.

  Const cstrPrivateINI As String = mcstrSamplePath & "FMSTEST.INI"

  Dim intRet As Integer
  Dim fOK As Boolean
  Dim strRet As String

  ' First, lets get some information from the WIN.INI file
  intRet = WinINIGetSettingInteger("Desktop", "WallpaperStyle")
  Debug.Print "Your Wallpaper style as defined in Win.INI is: " & intRet

  ' Next, get a string
  strRet = WinINIGetSettingString("INTL", "sLongDate")
  Debug.Print "Your Long Date format is: " & strRet

  ' Let's change the wallpaper (this line is commented out so we don't actually make changes to your system.
  ' Note also that the following code only changes wallpaper settings under Windows 3.x.
  ' fOK = WinINIWriteSetting("Desktop", "Wallpaper", "tiles.bmp")
  If fOK Then
    Debug.Print "Changed your wallpaper to tiles.bmp"
  Else
    Debug.Print "Couldn't change your wallpaper."
  End If

  ' Now we'll work with a "private" ini file (any ini file other the WIN.INI).
  strRet = INIGetSettingString("Favorites", "Color", cstrPrivateINI)
  Debug.Print "Your favorite color is: " & strRet

  ' Get an integer value
  intRet = INIGetSettingInteger("Secret", "PIN", cstrPrivateINI)
  Debug.Print "Your bank PIN number is: " & intRet

  ' Change our favorite color to Blue
  fOK = INIWriteSetting("Favorites", "Color", "Blue", cstrPrivateINI)
  If fOK Then
    Debug.Print "Your favorite color is now Blue."
  Else
    Debug.Print "Couldn't change INI file."
  End If

End Sub

The source code in Total Visual Sourcebook includes modules and classes for Microsoft Access, Visual Basic 6 (VB6), and Visual Basic for Applications (VBA) developers. Easily add this professionally written, tested, and documented royalty-free code into your applications to simplify your application development efforts.

Total Visual SourceBook is written for the needs of a developer using a source code library covering the many challenges you face. Countless developers over the years have told us they learned some or much of their development skills and tricks from our code. You can too!

Additional Resources

• List of All Modules in Total Visual SourceBook
• List of All Code Categories in Total Visual SourceBook
• Sample Module Code from Total Visual SourceBook (Example of Date, Time and Age Calculations)