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 * 50strNazivFajla = „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
Pratite Krstaricu na www.krstarica.com