none
String vide RRS feed

  • Question

  • 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


    mardi 29 octobre 2013 10:41

Réponses

Toutes les réponses