Visual Basic - Kreiranje *.INI editora

U svrhu demonstracije korišćenja API funkcija, kreiraćemo jednostavni editor INI fajlova, koji će vam dopustiti da "čitate" i "pišete" INI fajlove korišćenjem API funkcija. Zato, pokrenite Visual Basic i kreirajte novi projekt, sa jednom formom i jednim modulom. Na formu dodajte tri tekst polja (text-box), tri naslova (label) i tri komandna dugmića (command-button). Neka vam vodič za raspored elemenata na formi bude slika. Prvi programski kod koji ćemo dodati su deklaracije API funkcija, unutar sekcije deklaracija modula:

Declare Function WritePrivateProfileString _
Lib "kernel32" Alias "WritePrivateProfileStringA" _
(ByVal lpApplicationname As String, ByVal _
lpKeyName As Any, ByVal lsString As Any, _
ByVal lplFilename As String) As Long
Declare Function GetPrivateProfileString Lib _
"kernel32" Alias "GetPrivateProfileStringA" _
(ByVal lpApplicationname As String, ByVal _
lpKeyName As String, ByVal lpDefault As _
String, ByVal lpReturnedString As String, _
ByVal nSize As Long, ByVal lpFileName As _
String) As Long

Pazite, ovo su u stvari, samo dve linije koda koje su prelomljene zbog svoje dužine. Svaka oznaka "_" označava nastavak linije koda. Potom ćemo dodati kod koji će "obrađivati" događaj "Click" komandnih dugmića, a u svrhu čitanja i upisivanja u INI fajlove. Unutar "Click" događaja dugmića "Snimi" dodajte sledeći kod:

Private Sub Command1_Click()
Dim lngRezultat As Long
Dim strNazivFajla
strNazivFajla = "c:\test.ini"
lngResult = WritePrivateProfileString(txtZaglavlje, _
 txtKljuc.Text, txtVrednost.Text, strNazivFajla)

If lngRezultat = 0 Then
'Dogadjaj greske
Call MsgBox("Greska!", vbExclamation)
End IfEnd Sub

Unutar "Click" događaja dugmića "Ucitaj" dodajte sledeći kod:

Private Sub Command2_Click()
Dim lngRezultat As Long
Dim strNazivFajla
Dim strRezultat As String * 50

strNazivFajla = "c:\test.ini"
lngRezultat = GetPrivateProfileString(txtZaglavlje, _
txtKljuc, strNazivFajla, strRezultat, Len(strRezultat), _
strNazivFajla)

If lngRezultat = 0 Then
'Dogadjaj greske
Call MsgBox("Greska!", vbExclamation)
Else
txtVrednost.Text = Trim(strRezultat)
End If
End