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
- Deux caractères manquent dans cette url ✓ - Forum Programmation
- Le fichier contient le nombre de voyageurs dans 3 gares. dans la cellule b5, saisissez une formule qui calcule le total et se met à jour si on change une valeur du tableau. quel total obtenez-vous ? quelle formule avez-vous saisie ? ✓ - Forum Excel
- Clavier mac caractères spéciaux - Guide
- Caractères ascii - Guide
- Test de recrutement opérateur de saisie ✓ - Forum Études / Formation High-Tech
2 réponses
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 193
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 =)