Discussion :

[pascb423]

Bonjour,
soit un label avec des lettres, j'aimerai controler lors de la frappe d'une lettre dans une textbox si elle apparait dans le label, merci

[Phil Rob]

Je suppose que l'écriture, dans la procédure événementielle de réponse au TextChanged, de l'algo de recherche de la dernière lettre tapée ±(LaTextBox.text.substring(LaTextBox.text.count-1)) dans le contenu du label (UnLabel.text), devrait faire ce que tu demandes ...

[pascb423]

voilà le code mais il ne marche pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        TextBox1.CharacterCasing = CharacterCasing.Upper
        Dim i, oui As Integer
        oui = 0
        For i = 0 To Len(Label1.Text) - 1
            If TextBox1.Text.Substring(TextBox1.Text.Count - 1) = (Label1.Text(i)) Then
                oui = 1
                If i = Len(Label1.Text) - 1 Then
                    If oui = 1 Then
                    Else
                        MsgBox("Ce n'est pas la meme lettre")
                    End If
                End If
            End If
 
        Next
    End Sub

[pascb423]

j'ai trouvé une solution, si ca peut aider voici le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
oui = 0
        If Len(TextBox1.Text) = 0 And non > 0 Or TextBox1.Text = "" Then
            non = 0
            Exit Sub
 
        End If
        non = 0
        For i = 0 To Len(Label1.Text) - 1
            ecrireINI("lettre fausse", "lettre", "0")
            If TextBox1.Text.Substring(TextBox1.Text.Count - 1) = Label1.Text(i) Then
                oui = 1
            End If
        Next
        If oui = 0 And Len(TextBox1.Text) > 1 Then
            MsgBox("Cette lettre n'est pas dans les lettres proposées!!!")
            TextBox1.Text = Strings.Left(TextBox1.Text, TextBox1.Text.Length() - 1)
            TextBox1.Select(TextBox1.Text.Length, 0)
 
        End If
        If oui = 0 And Len(TextBox1.Text) = 1 Then
            MsgBox("Cette lettre n'est pas dans les lettres proposées!!!")
            non = non + 1
            TextBox1.Text = ""
        End If

[Phil Rob]

Pas mal mais fort compliqué ...
Peut-être que le code suivant t'inspirera :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Dim DerniereLettre As Char
        DerniereLettre = TextBox1.Text.Substring(TextBox1.Text.Length - 1)
        If Label1.Text.IndexOf(DerniereLettre) > -1 Then
            MessageBox.Show(DerniereLettre)
        End If
    End Sub

[pascb423]

merci pour le code, effectivement c'est plus simple!!!

une autre question:
j'aimerai savoir comment comparer deux textebox par exemple, il faudrait savoir si les caractères de la textbox1 sont dans la textbox2 même si les caractères sont pas au même endroit.
vous avez une suggestion? merci

j'ai fait ce code la mais il ne fonctionne pas, il y a peut etre des modifications?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim i As Integer
        Dim oui As Integer = 0
        For i = 1 To Len(TextBox1.Text) - 1
            If i.ToString.IndexOf(TextBox2.Text) <> -1 Then
                oui = oui + 1
            End If
        Next
        If oui = Len(TextBox1.Text) Then
            TextBox3.Text = TextBox1.Text
        End If