/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
CheckBox, Savesetting, hvordan
Fra : Tim Sørensen


Dato : 16-04-01 16:25

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/



 
 
Lars Hoffmann (16-04-2001)
Kommentar
Fra : Lars Hoffmann


Dato : 16-04-01 16:43

"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

Morten Fast (16-04-2001)
Kommentar
Fra : Morten Fast


Dato : 16-04-01 16:47


"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



Tim Sørensen (17-04-2001)
Kommentar
Fra : Tim Sørensen


Dato : 17-04-01 08:17

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/





Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste