Les "Checkbox" liés au registre

Signaler
Messages postés
250
Date d'inscription
vendredi 14 janvier 2005
Statut
Membre
Dernière intervention
27 janvier 2011
-
Messages postés
250
Date d'inscription
vendredi 14 janvier 2005
Statut
Membre
Dernière intervention
27 janvier 2011
-
Bonjour

Je suis en train de faire un programme qui fonctionne avec des cases à cocher (Checkbox).
Ces cases doivennt être en rapport avec des valeurs du registre.

Par exemple :
-Au démarrage du programme, elles doivent êtres cochées (ou non) si une valeur du registre et égal à "1" ou "0", par exemple.
-Si on coche (ou décoche) la case, la valeur du registre doit changer, par exemple "0" ou "1".

Je pense que le code doit être a peu près :

Set wshshell = CreateObject("Wscript.Shell")
wshshell.RegWrite "ma_clé_demandée", 0, "REG_DWORD"
If CheckBox1.Value = Checked Then
wshshell.RegWrite "ma_clé_demandé", 1, "REG_DWORD"
End If


If CheckBox1.Value = 0 Then
WSHShell.RegWrite "ma_clé_demandé", "0", "REG_DWORD"
End If
If CheckBox1.Value = 1 Then
WSHShell.RegWrite "ma_clé_demandé", "1", "REG_DWORD"
End If


tempI = WSHShell.RegRead("ma_clé_demandé")
If tempI = 1 Then
CheckBox1.Value = 1
Else
CheckBox1.Value = 0
End If

Pouvez vous me dire précisement quel est le code.

merci

2 réponses

Messages postés
936
Date d'inscription
lundi 19 janvier 2004
Statut
Membre
Dernière intervention
17 mars 2017
4
Salut,
VB contient une instruction pour cela
CheckBox1.Value = GetSetting(App.EXEName, "Options", "CheckBoxValue", "Valeur défaut")

De même SetSetting ecrit dans la base
Sinon tu trouveras de bonnes sources sur le forum

Cordialement, Jean-Paul
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partagé
Messages postés
250
Date d'inscription
vendredi 14 janvier 2005
Statut
Membre
Dernière intervention
27 janvier 2011
9
Merci pour le code.