'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.
