VB.net empêcher saisie de caractères dans tbx
Résolu/Fermé
WarT
Messages postés
67
Date d'inscription
vendredi 14 août 2009
Statut
Membre
Dernière intervention
4 juin 2014
-
11 mai 2012 à 20:32
WarT Messages postés 67 Date d'inscription vendredi 14 août 2009 Statut Membre Dernière intervention 4 juin 2014 - 12 mai 2012 à 23:35
WarT Messages postés 67 Date d'inscription vendredi 14 août 2009 Statut Membre Dernière intervention 4 juin 2014 - 12 mai 2012 à 23:35
A voir également:
- VB.net empêcher saisie de caractères dans tbx
- Caractères ascii - Guide
- Caractères spéciaux clavier azerty - Guide
- Caractères spéciaux - Guide
- Saisie gestuelle iphone - Guide
- Exemple de mot de passe à 8 caractères - Guide
2 réponses
lermite222
Messages postés
8724
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
12 mai 2012 à 15:25
12 mai 2012 à 15:25
Bonjour,
On peu tester le code mais apparement il y a un bug dans VB, quand ont tape 1 à partir du clavier numérique le code renvoyer est celui de la lettre "a"
Pour contourner le problème...
Avec ça pas besoin du retour arrière (en français c'est mieux)
A+
On peu tester le code mais apparement il y a un bug dans VB, quand ont tape 1 à partir du clavier numérique le code renvoyer est celui de la lettre "a"
Pour contourner le problème...
Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown Dim C As String = Chr(e.KeyValue) Dim B As String = Chr(e.KeyCode - 48) If Not (IsNumeric(C) Or IsNumeric(B)) Then e.SuppressKeyPress = True Beep() End If End Sub
Avec ça pas besoin du retour arrière (en français c'est mieux)
A+
WarT
Messages postés
67
Date d'inscription
vendredi 14 août 2009
Statut
Membre
Dernière intervention
4 juin 2014
16
12 mai 2012 à 23:35
12 mai 2012 à 23:35
J'ai trouvé cette solution sinon :
Merci de l'aide =)
Private Sub tbx_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tbx.KeyPress If Char.IsDigit(e.KeyChar) = False And Asc(e.KeyChar) <> System.Windows.Forms.Keys.Back Then e.Handled = True End Sub
Merci de l'aide =)