controle de saisie

Question

bonjour,

je voudrais controler la saisie d'une textbox (que des chiffres, retour chariot et backspace) mais je n'y arrive pas

quelqu'un peut il m'expliquer?

d'avance merci

pcpunch · Answer

ca doit étre la 20 éme fois que l'on pose cette question :

Private Sub Text1_KeyPress(KeyAscii As Integer)
'8 = Backspace 13=enterIf KeyAscii 8 Or KeyAscii 13 Then Exit Sub
If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End Sub


'Dans l'évenement Keypress du textbox

'Si la touche est Backspace ou enter alors on sort de la subIf KeyAscii 8 Or KeyAscii 13 Then Exit Sub

'Si la touche est pas numéric alors on ecrit rien(Keyascii=0)
If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0

Voila ++

cs_wholehog2 · Answer

merci de m'avoir répondu mais ça ne fonctionne pas

quand j'appuie sur des lettres de mon clavier elles s'inscrivent dans le textbox

y aurai t il une autre solution ?

cs_labout · Answer

labout
C'est la meilleure solution et cela marche très bien sous VB6

dionysos6868 · Answer

Perso je fais comme ca

Select Case KeyAscii
Case 48 To 57, 8
Case 44, 46
Case Else
    KeyAscii = 0
End Select

Je n'autorise que l'appuis sur les touche 0 a 9 et effacement

A toi d'enrajouter si tu veux autoriser des touche

ce code il faut le mettre sur la methode KeyPress de ton textbox

Dionysos

www.hackeinfo.net

cs_wholehog2 · Answer

en fait je suis sous visual basic.net

quand je selectionne l'évenement keypress de ma textbox (qui s'appelle txtannee) il me met cette ligne


Private Sub txtannee_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtannee.KeyPress


je ne sais pas dans quoi il met se qui est tapper au clavier

pour ensuite vérifier sa valeur

cs_wholehog2 · Answer

en fait je suis sous visual basic.net

quand je selectionne l'évenement keypress de ma textbox (qui s'appelle txtannee) il me met cette ligne


Private Sub txtannee_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtannee.KeyPress


je ne sais pas dans quoi il met se qui est tapper au clavier

pour ensuite vérifier sa valeur

dionysos6868 · Answer

dsl mais moi je programme sous VB6
 mais a tu regarder dans msnd de vb.net pour la fonction KEYPRESS?
Dionysos

www.hackeinfo.net

cs_wholehog2 · Answer

:big)  ça y est j'ai trouvé

voila ce que j'ai marqué :


Private Sub txtannee_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtannee.KeyPress

        Select Case Asc(e.KeyChar)

            Case 48 To 57  ' chiffre de 0 à 9
            Case 8             ' backspace
            Case 13           ' touche entrée
            Case Else
            e.Handled = True   'sinon marque rien
        End Select

    End Sub

Controle de saisie

8 réponses

Discussions similaires