Les checkboxs liés à une valeur du registre

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 240 fois - Téléchargée 32 fois

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

Ajouter un commentaire

Commentaire

Messages postés
480
Date d'inscription
jeudi 6 mai 2004
Statut
Membre
Dernière intervention
3 septembre 2007

Ce code est bien mais je crois qu'il ne marche que sous la clé HKEY_LOCAL_MACHINE\Software\vb ce qui n'est pas vraiment interressant.

JRB

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.