Problem ved Save/GetSetting

Jeg har et program med en checkbox, som skal gemmes når programmet aflsuttes, og hented igen når det starter... jeg kan simpelt hen ikke få det til at virke, så nu får i lige koden jeg bruger:


Private Sub Form_Load()

'get saved settings
chkOptionSound.Value = Val(GetSetting("QT", "Settings", "CheckBox", "0"))

End Sub

------------------------

Private Sub Form_Unload(Cancel As Integer)
' Save settings
SaveSetting "QT", "Settings", "CheckBox", CStr(chkOptionSound.Value)
End Sub

------------------------

Kan nogen fortælle mig hvad jeg gør forkert?

Har dog, selv om din anden kode virker fint, "crearet" noget mere VB 4.0 til 5.0 venlig kode og det virker mindst lige så godt:


Private Sub Form_Load()
Dim OptionSound As Integer

OptionSound = GetSetting("QT", "Settings", "CheckBox", "0")

chkOptionSound.Value = OptionSound


End Sub

Private Sub Form_Unload(Cancel As Integer)
' Save settings
SaveSetting "QT", "Settings", "CheckBox", chkOptionSound.Value
End Sub




www.andreaslinks.tk - Company Site
www.ournameclan.tk - AA : O Clan site

Jeg har et program med en checkbox, som skal gemmes når programmet aflsuttes, og hented igen når det starter... jeg kan simpelt hen ikke få det til at virke, så nu får i lige koden jeg bruger:

Har du prøvet at bruge eventet QueryUnload i stedet for Unload?

Jeg ville bruge følgende kode (det virker hos mig):

Private Sub Form_Load()
    chkOptionSound.Value = -(GetSetting("QT", "Settings", "CheckBox", "0") = "1")
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    SaveSetting "QT", "Settings", "CheckBox", CStr(chkOptionSound.Value)
End Sub

Har du prøvet at gå ind i registreringsdatabasen (Start -> Kør... -> regedit) og gå ind i HKEY_CURRENT_USER \\ Software \\ VB and VBA Program Settings \\ QT \\ Settings -> Nøglen CheckBox ... Findes den nøgle? Har den værdien 0 eller 1? Ændrer den værdien rigtigt, når du lukker programmet og det gemmer en ny værdi i nøglen?

Håber da du får det til at virke!

/ Bjarke

--------------------------------------------------
[THIS IS A SIGNATURE VIRUS! PLEASE COPY IT INTO YOUR OWN SIGNATURE(S)]
--------------------------------------------------
*** Matematisk Student anno 2003!! *** (Juhuu...)

Jeg har et program med en checkbox, som skal gemmes når programmet aflsuttes, og hented igen når det starter... jeg kan simpelt hen ikke få det til at virke, så nu får i lige koden jeg bruger:


Private Sub Form_Load()

'get saved settings
chkOptionSound.Value = Val(GetSetting("QT", "Settings", "CheckBox", "0"))

End Sub

------------------------

Private Sub Form_Unload(Cancel As Integer)
' Save settings
SaveSetting "QT", "Settings", "CheckBox", CStr(chkOptionSound.Value)
End Sub

------------------------

Kan nogen fortælle mig hvad jeg gør forkert?

Hmm, det virker fint hos mig, dit stykke kode når jeg tester det hos mig, kan du evt. fortælle os/mig, hvilken version af VB du bruger?
www.andreaslinks.tk - Company Site
www.ournameclan.tk - AA : O Clan site

[Redigeret d. 30/06-03 15:54:05 af Bjarke Walling Petersen]

Hov, jeg havde helt glemt jeg havde stillet dette spørgsmål! Anyway, fik det til at virke, men kan ikke huske hvordan