05-12-2011, 06:38 PM
The following codes shows how to save program settings to an .ini file
![[Image: BB06y.png]](http://i.imgur.com/BB06y.png)
Form Codes:
Module Codes:
Contents of the ini file
Form Codes:
Code:
Imports System.IO
Public Class Form1
Dim File = Application.StartupPath + "\Test.ini"
Dim Section = "Settings"
Dim Author = "Author"
Dim org = "Organization"
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
TextBox1.Text = ReadIni(File, Section, Author, "")
TextBox2.Text = ReadIni(File, Section, org, "")
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
writeIni(File, Section, Author, TextBox3.Text)
writeIni(File, Section, org, TextBox4.Text)
End Sub
End ClassModule Codes:
Code:
Module modINI
Private Declare Unicode Function WritePrivateProfileString Lib "kernel32" _
Alias "WritePrivateProfileStringW" (ByVal lpApplicationName As String, _
ByVal lpKeyName As String, ByVal lpString As String, _
ByVal lpFileName As String) As Int32
Private Declare Unicode Function GetPrivateProfileString Lib "kernel32" _
Alias "GetPrivateProfileStringW" (ByVal lpApplicationName As String, _
ByVal lpKeyName As String, ByVal lpDefault As String, _
ByVal lpReturnedString As String, ByVal nSize As Int32, _
ByVal lpFileName As String) As Int32
Public Sub writeIni(ByVal iniFileName As String, ByVal Section As String, ByVal ParamName As String, ByVal ParamVal As String)
Dim Result As Integer = WritePrivateProfileString(Section, ParamName, ParamVal, iniFileName)
End Sub
Public Function ReadIni(ByVal IniFileName As String, ByVal Section As String, ByVal ParamName As String, ByVal ParamDefault As String) As String
Dim ParamVal As String = Space$(1024)
Dim LenParamVal As Long = GetPrivateProfileString(Section, ParamName, ParamDefault, ParamVal, Len(ParamVal), IniFileName)
ReadIni = Left$(ParamVal, LenParamVal)
End Function
End ModuleContents of the ini file
Code:
; Comment is in semi colon
[Settings]
Author=euverve/Thatskie84
Organization=Support Forums Inc.