Pb tt simple

deetsrider Messages postés 12 Date d'inscription samedi 17 mai 2003 Statut Membre Dernière intervention 7 septembre 2003 - 29 juin 2003 à 23:42
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 - 30 juin 2003 à 02:04
Je voudrais savoir comment faire provoquer une action quand par exemple :
dans un textbox on attend un nombre et l utilisateur marque un chiffre.....ou le contraire
enfin pour expliquer mm si c'est faux :

If Text1.text <> String Then .....

si vous avez compris svpppp
:-/ merci

3 réponses

deetsrider Messages postés 12 Date d'inscription samedi 17 mai 2003 Statut Membre Dernière intervention 7 septembre 2003
29 juin 2003 à 23:43
-------------------------------
Réponse au message :
-------------------------------

> Je voudrais savoir comment faire provoquer une action quand par exemple :
> dans un textbox on attend un nombre et l utilisateur marque un chiffre.....ou le contraire
> enfin pour expliquer mm si c'est faux :
>
> If Text1.text <> String Then .....
>
> si vous avez compris svpppp
> :-/ merci
0
deetsrider Messages postés 12 Date d'inscription samedi 17 mai 2003 Statut Membre Dernière intervention 7 septembre 2003
29 juin 2003 à 23:44
-------------------------------
Réponse au message :
-------------------------------

>
>
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > Je voudrais savoir comment faire provoquer une action quand par exemple :
> > dans un textbox on attend un nombre et l utilisateur marque un chiffre.....ou le contraire
> > enfin pour expliquer mm si c'est faux :
> >
> > If Text1.text <> String Then .....
> >
> > si vous avez compris svpppp
> > :-/ merci
>
0
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 11
30 juin 2003 à 02:04
Salut
Si tu veux uniquement des chiffres, le point décimal et effacement arrière :

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
  Case 8, 48 To 57 , 46' Retour + chiffres + point : autorisés
  Case Else ' interdits
    KeyAscii = 0
End Select
End Sub
0
Rejoignez-nous