Husk indstillinger...

Du kan gemme indstillinger i regestry

Du kan som peter.erikse siger bruge registry eller som du selv skriver en fil. Der er ikke forskel på de 2 ting, begge dele er lige gode.
Propbag bruges ikke i den sammenhæng du efterlyser.

VH CK

ProbBag Kan du ikke bruge til det du taler om her!! Properties kan kun bruges i design time og ved initiliseringer af en control ved opstart!

Jeg ville nok også læse det ind i Registry!

//Nolle_K

"Du kan gemme indstillinger i regestry" er ikke helt nok for en smådum person som mig. Forklaring?

Brug SaveSetting til at gemme og GetSetting til at hente.
Skriv dem ind i din kode og marker ordet og tryk F1 og du får go' hjælp.

Så må jeg jo være dum når jeg ikke kan få det til at virke. Jeg skal angive "appname", "Section", "Key" og "setting" - og det kan jeg ikke finde ud af. Hvad er f.eks. en "section"...

Så jeg må hellere være lidt mere konkret:

Hvis jeg har en form med f.eks. 2 option-buttons, en checkbox og et textfelt, hvordan gemmer og sætter jeg så værdierne for disse når mit program startes/lukkes?

Altså værdierne : Option1.Value, Option2.Value, Check1.Value og Text1.Text

Private Sub Delete_Click()
  DeleteSetting "Appname", "Setup" 'Delete Setup
  DeleteSetting "Appname"          'Delete All
End Sub

Private Sub Form_Load()
  ' Load
  Check1.Value = Val(GetSetting("Appname", "Setup", "CheckBox", "0"))
End Sub

Private Sub Form_Unload(Cancel As Integer)
  ' Save
  SaveSetting "Appname", "Setup", "CheckBox", CStr(Check1.Value)
End Sub

Mange tak sjh - men hvad hvis jeg har mere end en checkbox, samt 2 option, og 2 textfelter?

PS. Jeg skal nok give points snarest;)

Private Sub Delete_Click()
  DeleteSetting "Appname", "Setup" 'Delete Setup
  DeleteSetting "Appname"          'Delete All
End Sub

Private Sub Form_Load()
  ' Load
  Text1.Text = GetSetting("Appname", "Setup", "Text", "Text1")
  Check1.Value = Val(GetSetting("Appname", "Setup", "CheckBox", "0"))
  Option1.Value = GetSetting("Appname", "Setup", "Option1", "false")
  Option2.Value = GetSetting("Appname", "Setup", "Option2", "true")
End Sub

Private Sub Form_Unload(Cancel As Integer)
  ' Save
  SaveSetting "Appname", "Setup", "Text", Text1.Text
  SaveSetting "Appname", "Setup", "CheckBox", CStr(Check1.Value)
  SaveSetting "Appname", "Setup", "Option1", CStr(Option1.Value)
  SaveSetting "Appname", "Setup", "Option2", CStr(Option2.Value)
End Sub

Fornemt - tak

selv tak :-)

Se det som en træstruktur
De 3 første niveauer kan du ikke ændre:
HKEY_CURRENT_USER\SOFTWARE\VB and Visual Basic program settings

...\appname (= Dit programnavn)
...\appname\sections (=brugerdef. underniveauer fx bruger1, bruger2 osv)
...\appname\sections\key (=navn der beskriver det der skan have værdi fx Option1Value)
...\appname\sections\key\Setting (= den værdi der skal angives fx true)

Nu har jeg godt nok lukket spørgsmålet, kjeld - men jeg forstår ikke din sidste sætning. Der skal jo netop ikke angives en værdi (setting), da den skal nappe den setting brugeren satte sidst programmet kørte.

Så hvis en bruger sætter en checkbox til false, synes jeg det er mærkeligt, at den rent faktisk indlæser False (for det virker jo som det skal) når programmet startes og følgende linie afvikles

Option2.Value = GetSetting("Appname", "Setup", "Option2", "true")

Eller er "true" bare en "default value" hvis der ikke er kørt en savesetting forinden?

Det sidste først. Ja. GetSetting henter den værdi der står i "key" (Option2). I Dit eksempel er "True" = Default og bruges kun hvis du ønsker at der skal returneres en bestemt værdi såfremt nøglen ikke findes. Derfor returneres "False" hvis brugeren på et tidspunkt har angivet det og det er gemt med SaveSetting.

Her er vi så ved dit første spørgsmål. SaveSetting angiver nøgle og værdi som sjh siger SaveSetting "Appname", "Setup", "Option2", CStr(Option2.Value)

Prøv at kikke i din reg.database Start\Kør\Regedit.exe og find dit program, så kan du se havd det laver. (Lad være med at ændre noget med Regedit med mindre du er helt sikker. Det kan være farligt. Derfor er det en meget let ting at bruge i VB da det så er under kontrol. :-)

Meget fornemt. Takker mange gange for udførligt svar, selv jeg kan fatte ;o)

Håber lige jeg kan få lidt "gratis" hjælp her. Jeg har nu gjort præcis som sjh har gjort, men der er problemer alligevel. Først lige koden som jeg har:

Private Sub Form_Load()

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

End Sub

Og så har jeg:

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

Alligevel sker der intet. Jeg holder øje med værdierne i registry, men der sker intet! Noget hjælpe bedes :/

Ah, fandt balladen. Den godtager åbenbart ikke End som Unload. Jeg skal bare quitte programmet fra Unload Me.