'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.
---------------------------------
Shape Yahoo! in your own image. Join our Network Research Panel today!
