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 ...
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.