[es] - save/load______

deepwhite

Član broj: 92996
Poruke: 559
*.beobug.com.

+3 Profil

^{27.05.2008. u 20:52 - pre 194 meseci}

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

Prikačeni fajlovi

test save load.rar - 1.93k

Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
91.150.99.*

+41 Profil

Re: save/load_______

^{27.05.2008. u 21:07 - pre 194 meseci}

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.

Odgovor na temu

deepwhite

Član broj: 92996
Poruke: 559
*.beobug.com.

+3 Profil

Re: save/load_______

^{27.05.2008. u 21:10 - pre 194 meseci}

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

Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
91.150.99.*

+41 Profil

Re: save/load_______

^{27.05.2008. u 21:32 - pre 194 meseci}

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.

Prikačeni fajlovi

test save load.zip - 2.32k

Odgovor na temu

deepwhite

Član broj: 92996
Poruke: 559
*.beobug.com.

+3 Profil

Re: save/load_______

^{27.05.2008. u 21:39 - pre 194 meseci}

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

Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
91.150.99.*

+41 Profil

Re: save/load_______

^{27.05.2008. u 21:42 - pre 194 meseci}

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.

Odgovor na temu

deepwhite

Član broj: 92996
Poruke: 559
*.beobug.com.

+3 Profil

Re: save/load_______

^{27.05.2008. u 21:48 - pre 194 meseci}

primetio sam, vrlo elegantno reseno

Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
91.150.99.*

+41 Profil

Re: save/load_______

^{27.05.2008. u 21:55 - pre 194 meseci}

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

Odgovor na temu

deepwhite

Član broj: 92996
Poruke: 559
*.beobug.com.

+3 Profil

Re: save/load_______

^{27.05.2008. u 23:54 - pre 194 meseci}

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

Odgovor na temu

deepwhite

Član broj: 92996
Poruke: 559
*.beobug.com.

+3 Profil

Re: save/load_______

^{28.05.2008. u 00:03 - pre 194 meseci}

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?

Odgovor na temu

rgdrajko
Beograd

Član broj: 117734
Poruke: 710
91.143.217.*

+3 Profil

Re: save/load_______

^{28.05.2008. u 00:28 - pre 194 meseci}

@ 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

rgdrajko

Odgovor na temu