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 na www.krstarica.com