Sendkeys, ou comment se tirer une balle

Signaler
Messages postés
12
Date d'inscription
samedi 2 mars 2002
Statut
Membre
Dernière intervention
22 décembre 2004
-
Messages postés
34
Date d'inscription
jeudi 29 juin 2000
Statut
Membre
Dernière intervention
27 octobre 2003
-
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

Messages postés
34
Date d'inscription
jeudi 29 juin 2000
Statut
Membre
Dernière intervention
27 octobre 2003

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