Menyimpan/Mengambil Setting ke/dari INI File VB6

Berikut ini adalah cara menggunakan file INI (*.ini) di visual basic 6,  yaitu contohnya menyimpan/mengambil setting ke/dari INI File, untuk mempraktekannya siapkan :

1. Buat 1 Project baru dengan 1 Form, 1 TextBox, dan 2 Commandbutton.
2. Copy-kan coding berikut ke editor Form yang bertalian.

          'Jalankan program, masukkan suatu teks ke dalam TextBox.
          'Klik Command1 untuk menyimpan teks ke dalam INI File.

          'Klik Command2 untuk mengambil teks dari INI File.

          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

          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

          'Ganti 'C:\MyFile.ini' dengan nama file INI yang Anda inginkan
          Const INIFileName = "C:\MyFile.ini"

          Private Sub Command1_Click()
            'Coding berikut ini akan menyimpan teks di Text1 di bawah section 'My App Name'
            'dan di bawah Key 'My Key'.

            Result = WritePrivateProfileString("My App Name", "My Key", Text1.Text, INIFileName)
          End Sub

          Private Sub Command2_Click()

          Dim MyValue As String * 20
            'Coding berikut akan mengambil nilai dari key 'My Key' di bawah section 'My App Name',
            'dan akan memasukkan nilainya ke dalam suatu variabel bernama 'MyValue'.
            Result = GetPrivateProfileString("My App Name", "My Key", "Empty", MyValue, _
            Len(MyValue), INIFileName)

            MsgBox MyValue
          End Sub
          'Ketika Anda keluar dari program ini dan menjalankannya kembali di lain kesempatan, coba
          'langsung klik tombol Command2, maka data yang dulu Anda masukkan akan ditampilkan lagi.

Tags:

contoh program vb6, contoh fungsi di vb6, cara penggunaan fungsi vb, tutorial vb6, download tutorial vb6, vb6 tutorial download, dasar dasar vb6, belajar vb6, cara mudah belajar vb6, vb6 artikel download, vb6 blog, contoh program vb6, artikel vb6, semua tentang vb6, vb6 api, cara menggunakan module, cara menggunakan class module