TEXTBOX ACEITAR APENAS LETRAS, NUMEROS E HIFEN

MARCOSSFERREIRA 03/07/2011 16:17:32
#378361
Olá pessoal como faço pra deitar minha textbox aceitar apenas letras numeros e hifen ou entao proibir que digitem a barra /.

Obrigado.
FROSTYNHO 03/07/2011 18:20:42
#378368 
    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        Dim allowedChars As String = [Ô]0123456789-[Ô]
        If allowedChars.IndexOf(e.KeyChar) = -1 Then
            e.Handled = True
        End If
    End Sub
MARCOSSFERREIRA 03/07/2011 18:29:30
#378369
Então mas este ai não permite letras eu preciso das letras numeros e hifen.
FROSTYNHO 03/07/2011 18:38:58
#378370
só adicionar as letras.......
    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        Dim allowedChars As String = [Ô]qwertyuipçlkjhgfdsazxcvbnm0123456789-[Ô]
        If allowedChars.IndexOf(e.KeyChar) = -1 Then
            e.Handled = True
        End If
    End Sub
MARCOSSFERREIRA 03/07/2011 18:40:38
#378371
é acabei de fazer..deu certissimo muito obrigado heim valeu mesmo.
MARCOSSFERREIRA 04/07/2011 08:23:22
#378403
Amigo!!! E como faço pra permitir tambem a tecla Backspace? Por que so consigo apagar com Delete.
JONATHANSTECKER 04/07/2011 09:03:23
#378407 Resposta escolhida
Se você simplesmente deseja bloquear o caracter [Ô]/[Ô], então aconselho a fazer dessa forma:
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
    If e.KeyChar = [Ô]/[Ô] Then
        e.Handled = True
    End If
End Sub

De qualquer forma, use o evento KeyPress para reconhecer o caracter pressionado e aplicar a condição desejada.
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
    If Not Char.IsLetter(e.KeyChar) _
       And Not Char.IsNumber(e.KeyChar) _
       And Not e.KeyChar = vbBack _
       And Not e.KeyChar = [Ô].[Ô] _
       And Not e.KeyChar = [Ô],[Ô] Then
        e.Handled = True
    End If
End Sub

Obs.: A função e.Handled = True, interrompe o evento.

[txt-color=#e80000]Alteração:[/txt-color] Erro de digitação.
MARCOSSFERREIRA 04/07/2011 10:14:27
#378414
Só poderei marcar uma mas todas resolvem meu problema...Obrigado Galera.
Tópico encerrado , respostas não são mais permitidas
Voltar