Manipulasi File INI

Kali ini saya ingin bahas bagaimana memanipulasi file INI. Jika anda belum tahu apa itu file INI, File INI adalah file yang di gunakan untuk meyimpan suatu konfigurasi sebagai contoh

[Form]
Background=123456

Konfigurasi yang ingin di simpan pun bisa tentang apa saja, asal memperhatikan aturan penulisan, sebagai contoh:

[Form] –ini di sebut sebagai SECTION
Background= — ini disebut KEY
123456 di sebut VALUE

Pada artikel kali ini saya akan mencotohkan perubahan warna background Form yang di simpan di file conf.INI

Buka Project baru

Tambahkan Reference (Menu Project-Reference-Microsoft Scripting Reference) :

Refrence ini untuk mengaktifkan code pengelolaan file VB 6

Tambahkan Componen (Ctrl+T) Microsoft Windows Common Dialog

Pada Design Form susunlah komponen sbb:

CommandButton – name=CommandButton1
Windows Common Dialod – name=cdlg

kemudian tambahkan Modul, masukkan kode berikut ini

di Form masukkan kode -kode seperti ini
'API DECLARATIONS
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
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
Public Function sGetINI(sINIFile As String, sSection As String, sKey _
As String, sDefault As String) As String
Dim sTemp As String * 256
Dim nLength As Integer
sTemp = Space$(256)
nLength = GetPrivateProfileString(sSection, sKey, sDefault, sTemp, _
255, sINIFile)
sGetINI = Left$(sTemp, nLength)
End Function

Public Sub writeINI(sINIFile As String, sSection As String, sKey _
As String, sValue As String)
Dim n As Integer
Dim sTemp As String
sTemp = sValue
'Replace any CR/LF characters with spaces
For n = 1 To Len(sValue)
If Mid$(sValue, n, 1) = vbCr Or Mid$(sValue, n, 1) = vbLf _
Then Mid$(sValue, n) = " "
Next n
n = WritePrivateProfileString(sSection, sKey, sTemp, sINIFile)
End Sub

setelah itu di form kode nya adalah sebagai berikut

Dim fso As New FileSystemObject
Private Sub Command1_Click()
Me.cdlg.ShowColor
Me.BackColor = Me.cdlg.Color
If fso.FileExists("conf.ini") Then
writeINI "conf.ini", "Form", "Backcolor", Me.cdlg.Color
Else
fso.CreateTextFile "conf.ini"
writeINI "conf.ini", "Form", "Backcolor", Me.cdlg.Color
End If
End Sub

Private Sub Form_Load()
Dim bg As Single
bg = sGetINI("conf.ini", "Form", "Backcolor", "0")
Me.BackColor = bg
End Sub


selamat mencoba.

Sumber : http://davidkurniawan.web.id/manipulasi-file-ini/

Posted in: Visual Basic