Les checkboxs liés à une valeur du registre

Commenter

Contenu du snippet

Ces 4 petits code très simples permettent :

-De changer la donnée d'une valeur du registre en cochant/décochant un checkbox

-Que lorsque qu'on ouvre le programme, le checkbox doit être coché/ou non, suivant la valeur :

Source / Exemple : 


'Voici les quatre petits code qui servent à relier un checkbox à une valeur du registre.

'1. Le checkbox doit être coché si : HKEY_LOCAL_MACHINE\Software\vb = "1" :

'Dans form.load

Set WshShell = CreateObject("Wscript.Shell")

Dim a As String

On Error Resume Next 'Très important, car par exemple, si la valeur n'existe pas, cela fait comme si elle était égale à "0"

a = WshShell.RegRead("HKEY_LOCAL_MACHINE\Software\vb") 'Chemin de la valeur pour savoir sa donnée
If a = "1" Then 'Si vb = "1"
CheckBox1.Value = "True" 'Le checkbox1 doit être coché
End If

'2. Le checkbox doit être décoché si : HKEY_LOCAL_MACHINE\Software\vb = "0" ou si la clés "vb n'existe pas :

'Dans form.load

Set WshShell = CreateObject("Wscript.Shell")

Dim b As String

On Error Resume Next

b = WshShell.RegRead("HKEY_LOCAL_MACHINE\Software\vb")
If b = "0" Then
CheckBox.Value = "False"
End If

'3. Si l'on coche le checkbox, la valeur "HKEY_LOCAL_MACHINE\Software\vb" doit avoir comme donné "1" :

'dans checkbox1.click

Set WshShell = CreateObject("Wscript.Shell")

On Error Resume Next

If CheckBox1.Value = True Then
Set WshShell = CreateObject("WScript.Shell")
WshShell.RegWrite "HKEY_LOCAL_MACHINE\Software\vb", 1, "REG_DWORD"
End If

'4. Si l'on décoche le checkbox, la clés "HKEY_LOCAL_MACHINE\Software\vb" doit avoir comme donné "0" :

'dans checkbox1.click

Set WshShell = CreateObject("Wscript.Shell")

On Error Resume Next

If CheckBox1.Value = False Then
Set WshShell = CreateObject("WScript.Shell")
WshShell.RegWrite "HKEY_LOCAL_MACHINE\Software\vb", 0, "REG_DWORD"
End If

Conclusion :


J'attends des commentaires ou d'autres façons plus simples pour ce code ...

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_et1)