Bonjour,
Voici mon problème, j'ai fais ce petit bout de code qui lorsque je clique sur la checkbox et que la combobox contient un certains texte fais certaines choses.
Le problème ici est que lorsque la combobox contient "autoriser fonction(s)" et que je clique sur la checkbox10 cela devrait me mettre "E," dans la chaine de caractère liste_lettre et pour finir lorsque je clique sur le bouton 6 je vois
la concaténation de a + c mais je ne vois pas b.
Pourriez vous m'aidez svp, je suis débutant
Cordialement
Private Sub CheckBox10_Checked(sender As Object, e As EventArgs) Handles CheckBox10.Click
If ComboBox1.Text.Contains("Sélection Mode...............................................") Then
MsgBox("Veuillez sélectionnez un mode", vbExclamation + vbOKOnly, "Attention")
Me.CheckBox10.CheckState = False
ElseIf ComboBox1.Text.Contains("Autoriser Fonction(s)") Then
liste_lettre = "E,"
ElseIf ComboBox1.Text.Contains("Bloquer Fonction(s)") Then
liste_lettre = Replace(liste_lettre, "E,", "")
End If
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
Dim a As String
Dim b As String
Dim c As String
Dim Res As String
If ComboBox1.Text.Contains("Sélection Mode...............................................") Then
MsgBox("Veuillez sélectionnez un mode", vbExclamation + vbOKOnly, "Attention")
ElseIf ComboBox1.Text.Contains("Autoriser Fonction(s)") Then
a = "Reg add ""HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\advanced"" /V ""DisableHotkeys"" /d"
b = liste_lettre
c = "/f"
Res = a + b + c
RichTextBox20.AppendText(Res)
Endif
