Write/Read File .ini Dengan VB.NET

Setelah beberapa hari yang lalu saya memposting tentang Menyimpan/Menampilkan Gambar Dari Database Dengan VB.NET.
Kali ini saya akan memposting tentang Write/Read File .ini Dengan VB.NET, mungkin ada yang belum tahu tentang kegunaan dari file .ini, file .ini adalah sebuah file yang digunakan untuk menyimpan konfigurasi-konfigurasi yang dibutuhkan oleh program yang kita buat, seperti konfigurasi untuk koneksi database, konfigurasi untuk data perusahaan, toko atau sebagainya, dan juga masih banyak lagi.

Langkah - langkah Write/Read File .ini Dengan VB.NET

1. Buatlah project dengan visual studio

2. Design form seperti gambar dibawah ini

Object	Property	Value
Textbox1	Name	Txt_nama
Textbox2	Name	Txt_alamat
Textbox3	Name	Txt_notelepon
Textbox4	Name	Txt_website
Button1	Name	Btn_read
	Text	Read
Button2	Name	Btn_write
	Text	write

3. Buatlah sebuah function dan procedure untuk write file .ini dengan script dibawah ini

     'fungsi untuk write file .ini
    Private Declare Unicode Function WritePrivateProfileString Lib "kernel32" _
    Alias "WritePrivateProfileStringW" (ByVal lpSection As String, ByVal lpParamName As String, _
    ByVal lpParamVal As String, ByVal lpFileName As String) As Int32

    'procedure untuk write .ini
    Private Sub writeini(ByVal iniFilename As String, ByVal section As String, ByVal ParamName As String, ByVal ParamVal As String)
        'menanggil fungsi WritePrivateProfilString untuk write file .ini
        Dim result As Integer = WritePrivateProfileString(section, ParamName, ParamVal, iniFilename)
    End Sub

4. Buatlah sebuah function dan procedure untuk read file .ini dengan script dibawah ini

    'function untuk read file .ini
    Private Declare Unicode Function GetPrivateProfileString Lib "kernel32" _
    Alias "GetPrivateProfileStringW" (ByVal lpSection As String, ByVal lpParamName As String, _
    ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Int32, _
    ByVal lpFilename As String) As Int32

    'function untuk read file .ini
    Private 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)
        'mengembalikan nilai yang sudah didapatkan
        readini = Strings.Left(ParamVal, LenParamVal)
    End Function

5. Klik 2 kali pada tombol Write dan ketikan script dibawah ini

        'menyiapkan string untuk menampung lokasi file .ini 
        Dim FilePath As String = Application.StartupPath & "\setting.ini"
        'memanggil procedure writeini untuk menyimpan data nama pada file setting.ini
        writeini(FilePath, "Data Perusahaan", "Nama", txt_nama.Text)
        'memanggil procedure writeini untuk menyimpan data alamat pada file setting.ini
        writeini(FilePath, "Data Perusahaan", "Alamat", txt_alamat.Text)
        'memanggil procedure writeini untuk menyimpan data no telepon pada file setting.ini
        writeini(FilePath, "Data Perusahaan", "No. Telepon", txt_notelepon.Text)
        'memanggil procedure writeini untuk menyimpan data website pada file setting.ini
        writeini(FilePath, "Data Perusahaan", "Website", txt_website.Text)
        'menampilkan pesan konfigurasi berhasil disimpan
        MsgBox("Konfigurasi berhasil disimpan", MsgBoxStyle.Information, "Informasi")

6. Klik 2 kali pada tombol Read dan ketikan script dibawah ini

        'menyiapkan string untuk menampung lokasi file .ini 
        Dim FilePath As String = Application.StartupPath & "\setting.ini"
        'memanggil function read ini untuk mengambil data nama dari file setting.ini
        txt_nama.Text = readini(FilePath, "Data Perusahaan", "Nama", "")
        'memanggil function read ini untuk mengambil data alamat dari file setting.ini
        txt_alamat.Text = readini(FilePath, "Data Perusahaan", "Alamat", "")
        'memanggil function read ini untuk mengambil data no. telepon dari file setting.ini
        txt_notelepon.Text = readini(FilePath, "Data Perusahaan", "No. Telepon", "")
        'memanggil function read ini untuk mengambil data website dari file setting.ini
        txt_website.Text = readini(FilePath, "Data Perusahaan", "Website", "")
        'Menampilkan pesan konfigurasi berhasil didapatkan
        MsgBox("Data konfigurasi berhasil di dapatkan", MsgBoxStyle.Information, "Informasi")

7. Jalankan program tersebut dengan menekan CTRL+F5