Empecher saisie caracterer Textbox

Question

Bonjour, J'aimerais interdire la saisie de texte dans un textbox. J'ai trouvé ce code sur le net : Private Sub NBrePorts_KeyPress(KeyAscii As Integer) If (KeyAscii < 48 Or KeyAscii > 57) Then KeyAscii = 0 End Sub Il fonctionne, seulement un truc me gène, avec ceci je ne peux pas faire effacer (si je me trompe avec la touche) ce qui parait normal vu que je dit que tout ce qui n'est pas un chiffre je l'enleve. J'ai vu que la touche effacer avait pour code ascii 12 donc j'ai fait ensuite ceci : Private Sub NBrePorts_KeyPress(KeyAscii As Integer) If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 12 Then KeyAscii = 0 End Sub Mais la touche effacer ne fonctionne pas quand meme. Ca doit etre tout bete mais je ne trouve pas...

ricky84 · Answer

Private Sub NBrePorts_KeyPress(KeyAscii As Integer)
if KeyAscii=12 then Exit sub
If (KeyAscii < 48 Or KeyAscii > 57) Then KeyAscii = 0
End Sub

Lokomass · Answer

Merci, mais la tu sort carrément du Sub, moi j'aimerai que la touche effacer me permette de corriger ce que j'ai écrit. Et la ça ne fonctionne pas :(

Lokomass · Answer

J'ai trouvé, en fait ce n'était pas 12 mais 8 le code Ascii :

Private Sub NBrePorts_KeyPress(KeyAscii As Integer)
If (KeyAscii < 48 Or KeyAscii > 57) And Not KeyAscii 8 Then KeyAscii 0
End Sub

PCPT · Answer

salut,

umm, de mémoire, effacer c'est 8 :)
bien plus pratique d'utiliser les constantes pour s'en assurer

[b]
KeyAscii/b 
[F1]

++
[hr]

Empecher saisie caracterer Textbox

4 réponses

Votre réponse

Discussions similaires