Sid Nelson
não registrado
|
|
Postada em 04/07/2004 21:03 hs
Pessoal, estou utilizando o código abaixo para permitir que se digite apenas as teclas que eu quero. Como faço para incluir a utilização do BackSpace no código abaixo? EXEMPLO: Private Sub TxtValor_KeyPress(KeyAscii As Integer)
If Chr(KeyAscii) = "," Then Exit Sub
If Chr(KeyAscii) < "0" Or Chr(KeyAscii) > "9" Then KeyAscii = 0
End Sub Toda ajuda será bem vinda. Sid Nelson |
|
|
|
|
|
Tiranossauro
não registrado
|
|
Postada em 04/07/2004 22:01 hs
Private Sub Txt_Valor_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 32 then ......
End Sub |
|
|
|
|
|
Postada em 04/07/2004 23:40 hs
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Chr(KeyAscii) = "," Or KeyAscii = 8 Then Exit Sub
If Chr(KeyAscii) < "0" Or Chr(KeyAscii) > "9" Then KeyAscii = 0
End Sub
Quando a Sua Dúvida For Esclarecida Encerre o Post ¥ ADS |
|
|
|
Sid Nelson
não registrado
|
|
Postada em 06/07/2004 09:27 hs
Pessoal, obrigado pela ajuda, funcionou certinho. Se alguém puder bloquear este post, eu agradeço. Sid Nelson |
|
|
|
|
|
Postada em 06/07/2004 09:39 hs
Acho que só vc pode fazer isso. Tem um ícone, no 1º Post, ao lado do ícone de denúcia, Uma página c/ um cadeado. É lá que vc bloqueia esse Post.
________________________ Té + Que NIMB role bons Dados! 
|
|
|
|
Sid Nelson
não registrado
|
|
Postada em 06/07/2004 09:52 hs
WaldirJr, não sou cadastrado, não tenho este icone (cadeado), por isso solicitei que algum MODERADOR o bloqueasse. Sid Nelson |
|
|
|
