Bloquer le clavier
cs_nawre
Messages postés
4
Date d'inscription
lundi 24 mai 2004
Statut
Membre
Dernière intervention
9 juin 2004
-
9 juin 2004 à 14:37
Silmon Messages postés 85 Date d'inscription mardi 6 janvier 2004 Statut Membre Dernière intervention 7 mai 2007 - 9 juin 2004 à 19:04
Silmon Messages postés 85 Date d'inscription mardi 6 janvier 2004 Statut Membre Dernière intervention 7 mai 2007 - 9 juin 2004 à 19:04
1 réponse
Silmon
Messages postés
85
Date d'inscription
mardi 6 janvier 2004
Statut
Membre
Dernière intervention
7 mai 2007
9 juin 2004 à 19:04
9 juin 2004 à 19:04
SIMON LEBON
Peut etre que cet exemple de code pourra t'inspirer une solution
' On controle l'introduction de caractere a partir du clavier
' pour ne permettre que des nombres
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
' Ici on ne fait rien (pour permettre l'introduction des numero)
' le KeyAscii 48 correspond au 0
' le KeyAscii 49 correspond au 1
' ...
' le KeyAscii 57 correspond au 9
Case 48, 49, 50, 51, 52, 53, 54, 55, 56, 57
'-----------------------------------------------------------
' On anule le caractere si ce n'est pas un numero
Case Else: KeyAscii = 0
'-------------------------
End Select
End Sub
Peut etre que cet exemple de code pourra t'inspirer une solution
' On controle l'introduction de caractere a partir du clavier
' pour ne permettre que des nombres
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
' Ici on ne fait rien (pour permettre l'introduction des numero)
' le KeyAscii 48 correspond au 0
' le KeyAscii 49 correspond au 1
' ...
' le KeyAscii 57 correspond au 9
Case 48, 49, 50, 51, 52, 53, 54, 55, 56, 57
'-----------------------------------------------------------
' On anule le caractere si ce n'est pas un numero
Case Else: KeyAscii = 0
'-------------------------
End Select
End Sub
