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:
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