---

Jeg har en Check1.
Meningen er at når programmet startes skal Check1´s sidste værdi indlæses
igen
så brugeren ikke behøver at pille i programmets indstillinger hver gang det
åbnes.

At gemme en String er næmt nok, men at gemme Check.Value kan jeg sq ikke
lige
finde ud af?


--
Mvh.... Tim Sørensen
http://dondata.adsl.dk/

---

"Tim Sørensen" wrote:
>
> Jeg har en Check1.
> Meningen er at når programmet startes skal Check1´s sidste værdi indlæses
> igen
> så brugeren ikke behøver at pille i programmets indstillinger hver gang det
> åbnes.
>
> At gemme en String er næmt nok, men at gemme Check.Value kan jeg sq ikke
> lige
> finde ud af?

hvad med at gemme strengen "TRUE" hvis den er checket og "FALSE" hvis
den ikke er, så kan du jo bare lave et lille tjeck når programmet
starter

--
/Lars

HTML software: <http://go.to/HTMLEasyColors>
Brug venligst Re: og ikke Sv: ved svar, da beskeder
der begynder med Sv: bliver slettet fra mange servere

---

"Tim Sørensen" <dondata@vip.cybercity.dk> wrote in message
news:9bf2o1$30t8$1@news.cybercity.dk...

> At gemme en String er næmt nok, men at gemme Check.Value kan
> jeg sq ikke lige finde ud af?

Du kan bare konvertere Check.Value til en streng, og så gemme
strengværdien i stedet for.

Når du gemmer:
DinStrengVariabel = CStr(Check.Value)

Når du tilbagelæser:
Check.Value = Val(DinStrengVariabel)

--
Vh Morten

---

Okay!
Jeg fandt frem til dette og det virker fremragene.
Dette er hele Form1´s kode hvor der kun er en kontrol, Check1:

'Kode-------------------------------------------------------------
Dim CheckBox1 As String

Private Sub Check1_Click()
If Check1.Value = 1 Then
SaveSetting App.EXEName, "Options", "Tjek1", "Sand"
Else
SaveSetting App.EXEName, "Options", "Tjek1", "Falsk"
End If
End Sub

Private Sub Form_Load()
CheckBox1 = GetSetting(App.EXEName, "Options", "Tjek1")

If CheckBox1 = "Falsk" Then
MsgBox "CheckBoxen er ikke checket"
Check1.Value = 0
Else
MsgBox "CheckBoxen er checket"
Check1.Value = 1
End If
End Sub
'Kode slut--------------------------------------------------------

Mvh.... Tim Sørensen
http://dondata.adsl.dk/