Gegevens onthouden

[bert2]

hallo,allemaal

Ik ben een programma aan't schrijven om enkele berekeningen te maken.

Ik wil hier een formulier aan toevoegen met instellingen voor bijv. lengte,breedte,dikte,enz. van een element.

Hoe kan ik nu een waarde toewijzen aan een instelling zodanig dat deze waarde blijft behouden tot ik een nieuwe waarde ingeef ook na het afsluiten van het programma.

Nu geef ik dus elke keer als ik het programmma opstart alle waarden terug in.

Ik gebruik voor de invoer van variabelen:

public variabelenaam as single = textbox1.text

Maar na het afsluiten van het programma is alles weer weg.

 

[kabourterplop]

Gebruik de settings. Zit standaard erbij.

Code om een setting aan te roepen:

msgbox(my.settings.mijnwaarde)

 

[bert2]

Bedankt voor de tip

Het is me nog niet gelukt, maar Ik probeer het nog wel eens

 

[anno1964]

waarden opslaan in het register

Gebruik je register om waarden op te slaan.

zoek even op GetSetting of op SaveSetting
dit is een stukje code om te contoleren of de database al eens is gecomprimeerd
IsDate is de variabele waarin de waarde uit het register wordt opgeslagen
getsetting haalt de gegevens uit het register,
app.title = de applicatienaam en is een map in het register
opstarten = de submap van bovenstaande
compress = is de sleutel in het register
TimeToCompressDb = de waarde van de sleutel dus de tijd in mijn geval

met savesetting kun je dus een waarde uit b.v een textbox opslaan in het register en deze
later weer gebruiken door getsetting aan te roepen
mappen submappen en sleutels worden met savesetting automatisch aangemaakt in het register.


TimeToCompressDb = IsDate(GetSetting(App.Title, "Opstarten", "Compress"))
'
If TimeToCompressDb = CDate("0:00:00") Then
TimeToCompressDb = Date + 30
SaveSetting App.Title, "Opstarten", "Compress", TimeToCompressDb
End If