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

Luis Marques

[Resolvido] Bloquear numeros ou letras

8 mensagens neste tópico

Boas, é assim eu quero bloquear numeros numa textbox, mas quero que o backspace e o spacebar funcionem,

tenho aqui o código com o spacebar a funcionar, mas não sei como colocar  o backspace a trabalhar também, ou seja só consigo colocar um ou outro.

Código:

 Dim KeyAscii As Short = Asc(eventArgs.KeyChar)
        Dim Tecla As Long
        Tecla = KeyAscii

        If KeyAscii <> 32 Then
            If Chr(KeyAscii) < "A" Or Chr(KeyAscii) > "ç" Then
                MsgBox("Digite somente Letras!")
                KeyAscii = 0
            End If
        End If

        eventArgs.KeyChar = Chr(KeyAscii)
        If KeyAscii = 0 Then
            eventArgs.Handled = True
        End If

Ali onde está  If KeyAscii <> 32 Then , o 32 é o valor do spacebar, o valor para o backspace é o 8.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Ok ok, acabei de ver e de aplicar, mesmo assim nao fazes ideia de como resolver o problema que eu perguntei?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

O teu código está um pouco confuso  :P

Só tens de fazer:

    Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown

        If (e.KeyCode >= Keys.NumPad0 AndAlso e.KeyCode <= Keys.NumPad9) Or (e.KeyCode >= Keys.D0 AndAlso e.KeyCode <= Keys.D9) Then
            e.SuppressKeyPress = True
        End If

    End Sub

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Sei k esta resolvido mas outra solucao e sempre boa :confused: e eu so ca cheguei hoje

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If Char.IsNumber(e.KeyChar) Then
            e.Handled = True
        End If
    End Sub

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Sei k esta resolvido mas outra solucao e sempre boa ;) e eu so ca cheguei hoje

Todas as sugestões são bem vindas ;) ... e bem vindo!

Mas mesmo assim usava uma MaskedTextBox :confused:

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