save/load_______

save/load_______ 27.05.2008. u 21:52 · pre 224 meseca #1

potrebni mi je da u .ini fajlu sacuvam, odnosno, ucitam odredjene podatke poput tipa fonta, boje itd. posto imam nekoliko vrsta teksta, imam problem sa kodom koji sam napravio.
u zakacenom rar fajlu je deo koda, ako neko moze da ga prepravi da u ini fajl upisuje parametre iz, recimo, 4 razlicita textboxa a koji opet mogu da procitam jednostavnom petljom.
pozdrav

test save load.rar1.93k

Re: save/load_______ 27.05.2008. u 22:07 · pre 224 meseca #2

Koliko vidim, projekt je OK i ne razumem gde je problem, ako si ovo znao da napravis treba samo jos 3 poziva funkcija ProfileSaveItem() i GetPrivateProfileString() za dodatna 3 textboxa pri cemu menjas vrednosti parametara lpSectionName, lpKeyName, lpValue.

Re: save/load_______ 27.05.2008. u 22:10 · pre 224 meseca #3

e tu lezi problem, izbacuje mi gresku "expected array" kako god okrenem. ako moze pomoc u smislu prepravke koda bilo bi od velike pomoci.

Re: save/load_______ 27.05.2008. u 22:32 · pre 224 meseca #4

Hajde molim te sledeci put bar nacrtaj ta 4 textbox-a; sta mislis koliko sam ekrana dosad nacrtao u zivotu?

U prilogu ti je resenje.

test save load.zip2.32k

Re: save/load_______ 27.05.2008. u 22:39 · pre 224 meseca #5

svaka cast, nisam mislio da kreiras textboxove, samo mi je trebalo ovo

Code:
   For Each tmpBox In Text1
      lpKeyName = tmpBox.Tag
      lpValue = tmpBox.Text
      ProfileSaveItem lpSectionName, lpKeyName, lpValue, lpFilename
   Next

hvala

Re: save/load_______ 27.05.2008. u 22:42 · pre 224 meseca #6

Nema na cemu. Posto ti nisam komentarisao kod samo da napomenem jer ne znam da li si primetio: u svojstvo tag od textbox-ova sam upisao odgovarajuci naziv kljuca u ini fajlu, tako da ako hoces da menjas - tamo menjaj.

Re: save/load_______ 27.05.2008. u 22:48 · pre 224 meseca #7

primetio sam, vrlo elegantno reseno

Re: save/load_______ 27.05.2008. u 22:55 · pre 224 meseca #8

Ma nije uopste elegantno, ja nisam pristalica koristenja tag svojstva, ali mi je to bilo najlakse u ovom momentu

Re: save/load_______ 28.05.2008. u 00:54 · pre 224 meseca #9

mala ispravka u kodu, ako nekome bude trebao

Code:
Private Sub Command2_Click()
   Dim tmpBox As TextBox

   lpFilename = "C:\test.ini"
   lpReturnedString = Space$(255)
   nSize = Len(lpReturnedString)

   For Each tmpBox In Text1
      nSize = GetPrivateProfileString("proba", tmpBox.Tag, " ", lpReturnedString, 50, lpFilename)

' ________________________________________________________________________________________
' prekopirati "nSize = Len(lpReturnedString)" jer pravi gresku u broju karaktera koji vraca
       nSize = Len(lpReturnedString)
' ________________________________________________________________________________________

      lpReturnedString = Mid(lpReturnedString, 1, nSize)
      tmpBox.Text = lpReturnedString
   Next

End Sub

Re: save/load_______ 28.05.2008. u 01:03 · pre 224 meseca #10

imam jos jedan problem koji nisam odmah primetio.

Dialog.Text1(0).Text = Form1.infotext.ForeColor

dobijem vrednost u nekoj vrsti heksadecimalne cifre prebacene u decimalnu vrednost a koja ne odgovara obicnoj vrednosti boje fonta, npr plavu cistu 0.0.255 mi daje kao 16711680 i ako to vratim iz ini fajla pravim gresku i prikazuje samo belu boju.
dok za vrednost crvene mi daje cistih 255, zuta 65535

u svakom slucaju posle linije:

Form1.infotext.ForeColor = Text1(0).Text

izbacuje uglavnom samo belu boju fonta. koje je resenje?

Re: save/load_______ 28.05.2008. u 01:28 · pre 224 meseca #11

@ deepwhite

Pa Aleksandar Ruzicic je vec odgovorio na to pitanje u u poruci o funkciji suprotnoj RGB:
http://www.elitesecurity.org/t289397-0-Funkcija-suprotna-RGB-Kako

Potpis

rgdrajko

Forum kao aplikacija na telefonu

Srodne teme