[es] - Treba mi pomoć oko INI fajla

Towar
Ivan Kardum
Split

Član broj: 23258
Poruke: 78
*.xnet.hr.

Profil

^{24.12.2004. u 20:23 - pre 235 meseci}

Napravio sam jedan program i dodao funkciju mjenjanja skinova, odnosno boja. Evo kod:

Code:
Private Sub red_Click()

Form1.ON.BackColor = &HFF&
Form1.OFF.BackColor = &HFF&
Form1.SysMon.TimeBarColor = &HFF&
frmAbout.lblDescription.BackColor = &HFF&
frmAbout.lblDisclaimer.BackColor = &HFF&
frmAbout.lblTitle.BackColor = &HFF&
frmAbout.lblVersion.BackColor = &HFF&
frmAbout.cmdOK.BackColor = &HFF&
frmAbout.cmdSysInfo.BackColor = &HFF&
frmAbout.picIcon.BackColor = &HFF&
frmPicture.Label1.BackColor = &HFF&
frmPicture.Text1.BackColor = &HFF&
frmPicture.cmdChange.BackColor = &HFF&
frmPicture.cmdCancel.BackColor = &HFF&

color.Text = &HFF&

Call WriteToINI("Picture Address", "c", color.Text, App.Path & "\Glowpad.ini")

MsgBox ("Skin color changed to RED")

End Sub

Private Sub yellow_Click()

Form1.ON.BackColor = &HFFFF&
Form1.OFF.BackColor = &HFFFF&
Form1.SysMon.TimeBarColor = &HFFFF&
frmAbout.lblDescription.BackColor = &HFFFF&
frmAbout.lblDisclaimer.BackColor = &HFFFF&
frmAbout.lblTitle.BackColor = &HFFFF&
frmAbout.lblVersion.BackColor = &HFFFF&
frmAbout.cmdOK.BackColor = &HFFFF&
frmAbout.cmdSysInfo.BackColor = &HFFFF&
frmAbout.picIcon.BackColor = &HFFFF&
frmPicture.Label1.BackColor = &HFFFF&
frmPicture.Text1.BackColor = &HFFFF&
frmPicture.cmdChange.BackColor = &HFFFF&
frmPicture.cmdCancel.BackColor = &HFFFF&

color.Text = &HFFFF&

Call WriteToINI("Picture Address", "c", color.Text, App.Path & "\Glowpad.ini")

MsgBox ("Skin color changed to YELLOW")

End Sub

To je kada je boja odabrana, i kad ju odaberem lijepo se boja i promjeni, to vidim, ali poslije neće čitat iz INI fajla, čak ne mogu niti kompajlirati program:

Code:
Form1.ON.BackColor = "" & GetFromINI("Picture Address", "c", App.Path & "\Glowpad.ini")
Form1.OFF.BackColor = "" & GetFromINI("Picture Address", "c", App.Path & "\Glowpad.ini")
Form1.SysMon.TimeBarColor = "" & GetFromINI("Picture Address", "c", App.Path & "\Glowpad.ini")
frmAbout.lblDescription.BackColor = "" & GetFromINI("Picture Address", "c", App.Path & "\Glowpad.ini")
frmAbout.lblDisclaimer.BackColor = "" & GetFromINI("Picture Address", "c", App.Path & "\Glowpad.ini")
frmAbout.lblTitle.BackColor = "" & GetFromINI("Picture Address", "c", App.Path & "\Glowpad.ini")
frmAbout.lblVersion.BackColor = "" & GetFromINI("Picture Address", "c", App.Path & "\Glowpad.ini")
frmAbout.cmdOK.BackColor = "" & GetFromINI("Picture Address", "c", App.Path & "\Glowpad.ini")
frmAbout.cmdSysInfo.BackColor = "" & GetFromINI("Picture Address", "c", App.Path & "\Glowpad.ini")
frmAbout.picIcon.BackColor = "" & GetFromINI("Picture Address", "c", App.Path & "\Glowpad.ini")
frmPicture.Label1.BackColor = "" & GetFromINI("Picture Address", "c", App.Path & "\Glowpad.ini")
frmPicture.Text1.BackColor = "" & GetFromINI("Picture Address", "c", App.Path & "\Glowpad.ini")
frmPicture.cmdChange.BackColor = "" & GetFromINI("Picture Address", "c", App.Path & "\Glowpad.ini")
frmPicture.cmdCancel.BackColor = "" & GetFromINI("PictureAddress", "c", App.Path & "\Glowpad.ini")

Proba sam mnogo načina i ništa mi ne radi. Molim vas pomozite

Odgovor na temu

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI,
USA / Software Engineer
Ann Arbor, MI, USA

Član broj: 6598
Poruke: 2065
*.bg.wifi.vline.verat.net.

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz

Profil

Re: Treba mi pomoć oko INI fajla

^{25.12.2004. u 13:30 - pre 235 meseci}

Pa &H8000000D i jeste broj (hex). Boju mozes da setujes kao hex ili kao long. I jedno i drugo radi.

Code:

Private Sub Command1_Click()
    Label1.BackColor = &H8000000D
End Sub

Private Sub Command2_Click()
    Label1.BackColor = -2147483635 ' ili &H8000000D
End Sub

Private Sub Command3_Click()
    Label1.BackColor = vbRed
End Sub

1. Napravi jednu funkciju koja menja boju

Code:

Public Function ChangeColor(C As Long, ColorText As String)
    Form1.On.BackColor = C
    Form1.OFF.BackColor = C
    Form1.SysMon.TimeBarColor = C
    frmAbout.lblDescription.BackColor = C
    frmAbout.lblDisclaimer.BackColor = C
    frmAbout.lblTitle.BackColor = C
    frmAbout.lblVersion.BackColor = C
    frmAbout.cmdOK.BackColor = C
    frmAbout.cmdSysInfo.BackColor = C
    frmAbout.picIcon.BackColor = C
    frmPicture.Label1.BackColor = C
    frmPicture.Text1.BackColor = C
    frmPicture.cmdChange.BackColor = C
    frmPicture.cmdCancel.BackColor = C

    Color.Text = C

    Call WriteToINI("Picture Address", "c", Color.Text, App.Path & "\Glowpad.ini")

    MsgBox ("Skin color changed to " & ColorText)
End Function

Private Sub red_Click()
    Call ChangeColor(&HFF&, "RED")
End Sub

Private Sub yellow_Click()
    Call ChangeColor(&HFFFF&, "YELLOW")
End Sub

2. setovanje boja ne bi trebalo da radis na ovaj nacin. Ako neka od formi nije loadovana setovanjem boje ce se loadovati, a nece biti prikazana. Trebalo bi da na Form_Load eventu setujes boju za tu formu, a setovanje spolja da radis samo ako je forma prikazana.

3. Ovde svaki put citas istu vrednost iz INI fajla, a dovoljno je samo jednom

Code:

Form1.ON.BackColor = "" & GetFromINI("Picture Address", "c", App.Path & "\Glowpad.ini")
Form1.OFF.BackColor = "" & GetFromINI("Picture Address", "c", App.Path & "\Glowpad.ini")
Form1.SysMon.TimeBarColor = "" & GetFromINI("Picture Address", "c", App.Path & "\Glowpad.ini")
frmAbout.lblDescription.BackColor = "" & GetFromINI("Picture Address", "c", App.Path & "\Glowpad.ini")
frmAbout.lblDisclaimer.BackColor = "" & GetFromINI("Picture Address", "c", App.Path & "\Glowpad.ini")
frmAbout.lblTitle.BackColor = "" & GetFromINI("Picture Address", "c", App.Path & "\Glowpad.ini")
frmAbout.lblVersion.BackColor = "" & GetFromINI("Picture Address", "c", App.Path & "\Glowpad.ini")
frmAbout.cmdOK.BackColor = "" & GetFromINI("Picture Address", "c", App.Path & "\Glowpad.ini")
frmAbout.cmdSysInfo.BackColor = "" & GetFromINI("Picture Address", "c", App.Path & "\Glowpad.ini")
frmAbout.picIcon.BackColor = "" & GetFromINI("Picture Address", "c", App.Path & "\Glowpad.ini")
frmPicture.Label1.BackColor = "" & GetFromINI("Picture Address", "c", App.Path & "\Glowpad.ini")
frmPicture.Text1.BackColor = "" & GetFromINI("Picture Address", "c", App.Path & "\Glowpad.ini")
frmPicture.cmdChange.BackColor = "" & GetFromINI("Picture Address", "c", App.Path & "\Glowpad.ini")
frmPicture.cmdCancel.BackColor = "" & GetFromINI("PictureAddress", "c", App.Path & "\Glowpad.ini")

Napravi ovako nesto

Code:

    Dim C As Long
    C = GetFromINI("PictureAddress", "c", App.Path & "\Glowpad.ini")
    Form1.On.BackColor = C
    Form1.OFF.BackColor = C
    Form1.SysMon.TimeBarColor = C
    frmAbout.lblDescription.BackColor = C
    frmAbout.lblDisclaimer.BackColor = C
    frmAbout.lblTitle.BackColor = C
    frmAbout.lblVersion.BackColor = C
    frmAbout.cmdOK.BackColor = C
    frmAbout.cmdSysInfo.BackColor = C
    frmAbout.picIcon.BackColor = C
    frmPicture.Label1.BackColor = C
    frmPicture.Text1.BackColor = C
    frmPicture.cmdChange.BackColor = C
    frmPicture.cmdCancel.BackColor = C

s tim, sto i ovde mozes da pozivas funkciju ChangeColor

4. probaj se da upisujes i citas istu vrednost iz INI fajla

Code:

frmPicture.cmdChange.BackColor = "" & GetFromINI("Picture Address", "c", App.Path & "\Glowpad.ini")
frmPicture.cmdCancel.BackColor = "" & GetFromINI("PictureAddress", "c", App.Path & "\Glowpad.ini")

Koristi "PictureAddress" ili "Picture Address". Najbolje je da to stavis kao konstantu i onda da radis sa konstantom. Takodje, ime ini fajla neka ti bude neka promenljiva i neka se "builduje" samo jednom, a ne svaki put kad citas/pises.

Elem, nakon ovih izmena kod ce ti biti mnogo pregledniji, a moguce je da ces i otkloniti problem. U svakom slucaju, bice ti lakse da pratis sta se desava i pronadjes sta ne valja

Blue Man Group

Odgovor na temu