Jump to content
Fórum Script Brasil
  • 0

Funcao Keyascii


Bob Esponja
 Share

Question

Olá pessoal.... estou tendo problemas com a seguinte rotina em VB...

If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then

KeyAscii = 0

End If

Esse pequeno código, é colocado no evento KeyPress de uma caixa de texto para o usuário somente poder digitar numeros e não poder digitar letras.

Mas nisso, ocorre o seguinte inconveniente.... ele também desabilita a tecla BACKSPACE....

alguém sabe como eu posso habilitar essa tacla sem alterar o objetivo do código, fazendo com q o usuário digite somente numeros ?! huh.gif

Se alguém souber, posta ai...

Um abraço! wink.gif

Link to comment
Share on other sites

5 answers to this question

Recommended Posts

  • 0
Olá pessoal.... estou tendo problemas com a seguinte rotina em VB...

If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then

KeyAscii = 0

End If

Esse pequeno código, é colocado no evento KeyPress de uma caixa de texto para o usuário somente poder digitar numeros e não poder digitar letras.

Mas nisso, ocorre o seguinte inconveniente.... ele também desabilita a tecla BACKSPACE....

alguém sabe como eu posso habilitar essa tacla sem alterar o objetivo do código, fazendo com q o usuário digite somente numeros ?! huh.gif

Se alguém souber, posta ai...

Um abraço! wink.gif

Voce pode usar o seguinte codigo...

If (KeyAscii >= Asc("a") And KeyAscii <= Asc("z"))Then

KeyAscii = 0

End If

Link to comment
Share on other sites

  • 0

Ae pessoal, as duas maneiras funcionam, mas elas apresentam uma diferença:

If (KeyAscii >= Asc("a") And KeyAscii <= Asc("z"))Then
KeyAscii = 0
End If 
Este ultimo codigo deixa o usuário digitar caracteres especiais, como [[~]~;´ç'[´';/; e etc. Abilitando também o backspace. Enquanto o codigo:
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
If KeyAscii <> 8 Then KeyAscii = 0
End If 

não permite que o usuário digite caracteres especiais e ao mesmo tempo habilita o BACKSPACE.

muito obrigado a todos q me deram um help ai!

Abraço!

Link to comment
Share on other sites

  • 0

Este ultimo codigo deixa o usuário digitar caracteres especiais, como [[~]~;´ç'[´';/; e etc. Abilitando também o backspace.

Na verdade, sera mostrado todos caracteres de 0 a 255 que não forem de A a Z

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      150.7k
    • Total Posts
      648.4k
×
×
  • Create New...