Sendkeys, ou comment se tirer une balle

pablo79 Messages postés 12 Date d'inscription samedi 2 mars 2002 Statut Membre Dernière intervention 22 décembre 2004 - 1 août 2002 à 03:38
Icem@n Messages postés 34 Date d'inscription jeudi 29 juin 2000 Statut Membre Dernière intervention 27 octobre 2003 - 1 août 2002 à 08:55
C'est trois heures et demi du matin et je vais me flinguer, tout ca à cause d'un p@#*%ç de sendkeys.

Voila :

pour ne pas que l'on puisse noté de lettre dans mon text box, j'ai fait comme suit :

Private Sub text1_Change()

If Not IsNumeric(text1) Then
SendKeys "BS"
End If

ca revient donc d'un caractère un arriere, c super ca marche ! Mais la il fallait bien que ca se complique car ca marche jamais comme on veut, alors la l'ordi décide de mettre en disabled la touche Num Lock. C'est pas la première fois que ca arrive, je sais pas pk ca fait ca, si qqun peut m'aider ce serait volontiers.

Merci d'avance a +

1 réponse

Icem@n Messages postés 34 Date d'inscription jeudi 29 juin 2000 Statut Membre Dernière intervention 27 octobre 2003
1 août 2002 à 08:55
tu as une autre solution un filtre de touche :

Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii < Asc("0") Or KeyAscii > Asc("9")) And KeyAscii <> 8 Then
KeyAscii = 0
End If
End Sub

Explication :
si ce n'est pas un chiffre ou un BackSpace alors annule la touche.

Mais il à le même problème que ton code :
le copier coller n'est pas filtrer !!!
0
Rejoignez-nous