Dim MyLetters As New List(Of Char)
Public Class Form3 Dim MyLetters As New List(Of Char) Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress 'e.KeyChar va renvoyer le caractère saisi If MyLetters.Contains(e.KeyChar) Then MessageBox.Show("Le caractère '" & e.KeyChar.ToString & "' a déjà été joué!") Else 'ormis la touche effacer et quelques unes du genre MyLetters.Add(e.KeyChar) End If e.Handled True 'pour annuler l'évènement> la lettre n'apparait même pas End Sub End Class
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question