Obtenir une zone de texte pour accepter uniquement les caractères dans vb.net

Je suis de la création d'une application simple en Vb.net là où j'ai besoin pour effectuer certaines validations. Si je veux une zone de texte nom d'accepter uniquement les lettres de a-z et A-Z par exemple.

Pour ce que j'ai écrit le code suivant:

   Private Sub txtname_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox5.KeyPress
    If Asc(e.KeyChar) <> 8 Then
        If Asc(e.KeyChar) > 65 Or Asc(e.KeyChar) < 90 Or Asc(e.KeyChar) > 96 Or Asc(e.KeyChar) < 122 Then
            e.Handled = True
        End If
    End If
End Sub

Mais de toute façon ce n'est pas ce qui me permet de saisir des caractères. Lorsque j'essaie d'entrer n'importe quel caractère il ne fait rien.

Quelles sont les causes de ce problème et comment puis-je le résoudre?

InformationsquelleAutor EqEdi | 2012-09-28
  1. 8

    Sinon, vous pouvez faire quelque chose comme cela,

    Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) _
                              Handles txtName.KeyPress

    If Not (Asc(e.KeyChar) = 8) Then
        Dim allowedChars As String = "abcdefghijklmnopqrstuvwxyz"
        If Not allowedChars.Contains(e.KeyChar.ToString.ToLower) Then
            e.KeyChar = ChrW(0)
            e.Handled = True
        End If
    End If

End Sub

    ou si vous voulez toujours la ASCII façon, essayez cela,

    Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtName.KeyPress

    If Not (Asc(e.KeyChar) = 8) Then
        If Not ((Asc(e.KeyChar) >= 97 And Asc(e.KeyChar) <= 122) Or (Asc(e.KeyChar) >= 65 And Asc(e.KeyChar) <= 90)) Then
            e.KeyChar = ChrW(0)
            e.Handled = True
        End If
    End If

End Sub

    les deux se comportent de même.

    • Mais même le code qui j'ai écrit shd de travail .... do u pense qu'il y a issum prob wid le code ??
    • votre code ne fonctionnera pas parce que vos conditions sont foiré, provoquant le compilateur confondre 😀
    • Solution sympa. Adapté sur stackoverflow.com/questions/41151574/...
    InformationsquelleAutor John Woo
  2. 0

    Privé Sous txtname_KeyPress(ByVal sender as Object, ByVal e as System.De Windows.Les formulaires.KeyPressEventArgs) Poignées TextBox5.KeyPress

    If AscW(e.KeyChar) > 64 And AscW(e.KeyChar) < 91 Or AscW(e.KeyChar) > 96 And AscW(e.KeyChar) < 123 Or AscW(e.KeyChar) = 8 Then 
    Else
        e.KeyChar = Nothing
    End If

    End Sub

    J'espère que cela aide!

    InformationsquelleAutor charles
  3. 0

    C'est une approche plus abstraite, mais toujours efficace néanmoins. Il est simple et peut être ajouté à la TextChanged événement. Vous pouvez l'utiliser avec plusieurs zones de texte par l'ajout de poignées pour le sub et à l'aide d'un DirectCast().

    Dim allowed As String = ("abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ")
        For Each c As Char In TextBox.Text
            If allowed.Contains(c) = False Then
                TextBox.Text = TextBox.Text.Remove(TextBox.SelectionStart - 1, 1)
                TextBox.Select(TextBox.Text.Count, 0)
            End If
        Next

    Résumé: Si un caractère non valide est entré, il sera immédiatement supprimé (la plupart du temps, le personnage ne sera pas visible assez longtemps pour que l'utilisateur de l'avis).

    InformationsquelleAutor Dog Lover
  4. -1
    Private Sub txtStudentName_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtStudentName.KeyPress

  If Not Char.IsLetter(e.KeyChar) And Not e.KeyChar = Chr(Keys.Delete) And Not e.KeyChar = Chr(Keys.Back) And Not e.KeyChar = Chr(Keys.Space) Then

      e.Handled = True

  End If

End Sub
    • En général, ne pas mettre de code dans les commentaires. Modifier votre réponse au lieu de cela, et assurez-vous que vous utilisez le bloc de code de mise en forme pour des raisons de lisibilité.
    InformationsquelleAutor Purushottam Kumar