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.

1 comentários:

  1. 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
:) :)) ;(( :-) =)) ;( ;-( :d :-d @-) :p :o :>) (o) [-( :-? (p) :-s (m) 8-) :-t :-b b-( :-# =p~ $-) (b) (f) x-) (k) (h) (c) cheer
Click to see the code!
To insert emoticon you must added at least one space before the code.