cs_et1
Messages postés250Date d'inscriptionvendredi 14 janvier 2005StatutMembreDernière intervention27 janvier 2011
-
23 janv. 2005 à 16:16
cs_et1
Messages postés250Date d'inscriptionvendredi 14 janvier 2005StatutMembreDernière intervention27 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