4 réponses
Dans le Keypress de ta textbox, tape le code suivant:
If keyascii < 48 or keyascii > 57 then
beep
End If
les codes 48 et 57 correspondent au caractere ascii 0 et 9
If keyascii < 48 or keyascii > 57 then
beep
End If
les codes 48 et 57 correspondent au caractere ascii 0 et 9
Salut,
on peut aussi écrire
Private Sub Text1_KeyPress(KeyAscii As Integer)If InStr("0123456789", Chr(KeyAscii)) 0 Then KeyAscii 0
End Sub
c'est encore mieux :)
on peut aussi écrire
Private Sub Text1_KeyPress(KeyAscii As Integer)If InStr("0123456789", Chr(KeyAscii)) 0 Then KeyAscii 0
End Sub
c'est encore mieux :)
il y a une autre méthode plus compréhensible qui évite d'utilisé les caractères ascii
private sub text1_Keypress (index as integer, keyascii as integer)
if Instr("0123456789", Chr{le symbole dolar, je ne sais pas où il est sur mon clavier, sans cette remarque ni les crochets de cette remarque}(Keyascii))=0 then
keyascii=0
end
private sub text1_Keypress (index as integer, keyascii as integer)
if Instr("0123456789", Chr{le symbole dolar, je ne sais pas où il est sur mon clavier, sans cette remarque ni les crochets de cette remarque}(Keyascii))=0 then
keyascii=0
end