• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

davide_shot

Caixa de Texto[Proibir] (RESOLVIDO)

4 mensagens neste tópico

Boas..  :D

Bem preciso de ajuda para um o seguinte:  :hmm:

tenho uma caixa de texto, e gostava de fazer com que nessa caixa de texto não se pudesse introduzir numeros (ou se possivel tambem nao poder introduzir caracteres especiais , acentos etc), apenas queria que a caixa de texto aceita-se letras de A a Z.

eu tenho o  seguinte código, mas tem um problema,nao consigo utilizar o backspace depois de escrever algo na caixa...

Private Sub Text1_KeyPress(KeyAscii As Integer)

Dim ch As String
    ch = Chr$(KeyAscii)
    
    If Not ( _
       (ch >= "a" And ch <= "z")) Then
       KeyAscii = 0
       'KeyAscii = &H8
    End If

End Sub

Aceito ajudas..  :D

Cumps  :D

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Basta fazeres uma pequena alteração

Private Sub Text1_KeyPress(KeyAscii As Integer)

Dim ch As String

    ch = Chr$(KeyAscii)

   

    If Not (    (ch >= "a" And ch <= "z")  ) Then

     

      if KeyAscii <> vbKeyBack  then

        KeyAscii = 0

        'KeyAscii = &H8

      end if

    End If

End Sub

Em vez de vbkeyBack também podes por 8 que é o valor dessa constante

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

ah já agora se souberes como se proibe de por acentos , tambem podias deixar aqui :D

EDIT:  bem afinal quando fui a tentar por nomes com acentos hj também n dava.. eheheh .. afinal ja faz o que queria e não sabia :D ..

cumps

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora