ENVENTO KEYPRESS

MARIOANDRADE 07/12/2013 18:20:03
#431899
Meus amigos, eu uso este código:

[txt-color=#0000f0]If KeyAscii < Asc([Ô]0[Ô]) Or KeyAscii > Asc([Ô]9[Ô]) Then
KeyAscii = 0
End If[/txt-color]

Para digitarem somente números numa determinada Textbox, este código eu usava no excel e, lá
eu podia usar as teclas BackSpace, Ctrl + C , Ctrl + V e Ctrl + X , já no VB6 ele bloqueia tudo.

Alguém sabe como digitar somente números sem bloquear essas teclas?
ANDPAG 08/12/2013 00:43:45
#431903 Resposta escolhida
Use essa linha no lugar dentro do keypress do textbox

If Not IsNumeric(Chr(KeyAscii)) And KeyAscii <> 8 And KeyAscii <> 44 _
And KeyAscii <> 3 And KeyAscii <> 23 And KeyAscii <> 24 Then KeyAscii = 0


Abs.
MARIOANDRADE 08/12/2013 10:37:57
#431907
Citação:

:
Use essa linha no lugar dentro do keypress do textbox

If Not IsNumeric(Chr(KeyAscii)) And KeyAscii <> 8 And KeyAscii <> 44 _
And KeyAscii <> 3 And KeyAscii <> 23 And KeyAscii <> 24 Then KeyAscii = 0


Abs.




Amigo, funcionou, só tive que colocar [Ô]VBA.Chr[Ô] depois do [Ô]IsNumeric[Ô] porém o Ctrl + V ainda não funciona, tem como acrescentar nessa linha de comando?
ANDPAG 09/12/2013 01:34:52
#431916
opa, tem que colocar --> and keyascii <> 22 <--
MARIOANDRADE 09/12/2013 11:50:43
#431921
Citação:

:
opa, tem que colocar --> and keyascii <> 22 <--



Valeu, ajudou muito..
Tópico encerrado , respostas não são mais permitidas
Voltar