-
I am writing an application just for fun and practice, I want the user to able to change the color of the form and the text, so I have command buttons that pull up the custom pallete. I put in the command click event the following code.
SaveSetting appname:="csClient", Section:="Prferences", Key:="BackColor", Setting:=cmdChangeColor.BackColor
and in the form load event.
dim result as variant
result = GetSetting(appname:="csClient", Section:="Preferences", Key:="BackColor", Default:="")
If result > " " Then
frmClient.BackColor = result
End If
I can change the color of the form and the text but when I close and reopen it doesn't remember my changes.
I think that I am putting the savesetting in the wrong procedure, I also tried it in the lost focus, but that didn't seem to work either. this has worked for me with font and font size before. Any suggestions?
Thanks in advance, Cady
-
You use SaveSetting like this:
SaveSetting App.EXEName, "Preferences", "BackColor", cmdChangeColor.BackColor
And GetSetting like this:
result = GetSetting (App.EXEName, "Preferences", "BackColor", "")
Ain I would make the If statement this:
If result <> "" Then
frmClient.BackColor = result
End If
PS: You don't need the As Variant clase for the Dim statement, they are automatically Variant unless declared otherwise
-
Thanks Philosopher, I got it to work with this.
Dim lngBackColor As Long
in general declarations
and under cmdChangeColor:
With CommonDialog1
.Flags = cdlCCFullOpen
.ShowColor
BackColor = .Color
End With
lngBackColor = frmClient.BackColor
SaveSetting "csClient", "STARTUP", "BackColor", lngBackColor
and under formload:
lngBackColor = GetSetting("csClient", "STARTUP", "BackColor", &H8000000F)
frmClient.BackColor = lngBackColor
thankyou for the help.
Cady
