A voir également:
- Empecher la saisie de caractères sous vb
- Saisie gestuelle iphone - Guide
- Caractères ascii - Guide
- Caractères spéciaux - Guide
- Vb - Télécharger - Langages
- Saisie vocale whatsapp - Accueil - Messagerie instantanée
5 réponses
Private Sub NomCombo_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case vbKey0 To vbKey9
Case Else
KeyAscii = 0
End Select
End Sub
=}- The_Str@nger -{=
Select Case KeyAscii
Case vbKey0 To vbKey9
Case Else
KeyAscii = 0
End Select
End Sub
=}- The_Str@nger -{=
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Merci d'avance
Florent
if not isNumeric(objet.text) then ...
mais le problème c'est que tu risques de pouvoir entrer des points et si tu n'en veux pas il faut ruser avec un keyup.
ex:
private sub monobjet_KeyUp(blabla auto)
if keycode = vbkeyDecimal then ... 'vbkeyDecimal c'est le caractère correspondant à la virgule ou au point, pour enlever 'la virgule il faut taper: keycode = 188 (188 correspond à la touche "?/,"
end sub
private sub monobjet_click() 'par exemple, moi je met ca sur mes boutons pour éviter les bugs
if not isNumeric(objet.text) then ...
end sub
je te conseil le keyUp si tu veux vider ta textbox ou autre si non il vide la textbox et met la virgule vu que le caractère n'est pas encore saisi (il faut que la touche soit relevé pour que le caractère soit saisi)