Les "Checkbox" liés au registre

cs_et1 Messages postés 250 Date d'inscription vendredi 14 janvier 2005 Statut Membre Dernière intervention 27 janvier 2011 - 23 janv. 2005 à 16:16
cs_et1 Messages postés 250 Date d'inscription vendredi 14 janvier 2005 Statut Membre Dernière intervention 27 janvier 2011 - 26 janv. 2005 à 13:44
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

valtrase Messages postés 937 Date d'inscription lundi 19 janvier 2004 Statut Membre Dernière intervention 9 mai 2022 4
23 janv. 2005 à 17:07
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é
0
cs_et1 Messages postés 250 Date d'inscription vendredi 14 janvier 2005 Statut Membre Dernière intervention 27 janvier 2011 9
26 janv. 2005 à 13:44
Merci pour le code.
0