Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 46 Then ' remplace le point .
KeyAscii = 44 ' par la virgule ,
Exit Sub
End If
Select Case KeyAscii
Case 44, 8, 13, 48 To 57
'on accepte virgule, retour arrière, Entrée et les chiffres
Exit Sub
Case Else
'on refuse tout le reste
KeyAscii = 0
Exit Sub
End Select
End Sub
-------------------------------
Réponse au message :
-------------------------------
> Private Sub Text1_KeyPress(KeyAscii As Integer)
> Select Case KeyAscii
> Case 48 To 57
> Case Else
> KeyAscii = 0
> End Select
> End Sub
>
> Si tu veux la possibilité de virgule (ou point),
> tu remplaces
> Case 48 To 57
> par
> Case 48 To 57, 44 pour la virgule
> Case 48 To 57, 46 pour le point
>
>
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > Bonjour,
> >
> > J'ai créé un textbox dans lequel j'aimerai que l'utilisateur ne saisisse que des chiffres et non des lettres.
> >
> > Merci d'avance
>
|