quarta-feira, 24 de agosto de 2011

on
Dê dois clique no evento KeyPress do TextBox e insira o código logo abaixo.

If Not Char.IsLetter(e.KeyChar) And Not e.KeyChar = vbBack And Not e.KeyChar = "." And Not e.KeyChar = "," Then
e.Handled = True
End If

Espero ter ajudado e até a próxima.

2 comentários:

  1. Isso vai depender do conteudo a ser inserido se for um nome não vai aceitar pois o espaço esta desabilitado

    ResponderExcluir
  2. Bom dia Paulo Eduardo,

    Agradeço primeiramente ao comentário... E com relação a observação que você fez, você está correto, mas segue abaixo o código conforme observação sua.

    If Not Char.IsLetter(e.KeyChar) And Not Asc(e.KeyChar) = Keys.Back And Not Asc(e.KeyChar) = Keys.Space Then
    e.Handled = True
    End If


    Espero ter ajudado, até mais... Abraços!

    Atenciosamente,
    Carlos Henrique Pereira - Analista de TI
    (11) 96834-8466 / (35) 8468-6021

    ResponderExcluir