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

Pratite Krstaricu i preko mobilne aplikacije za Android i iPhone.