Dê dois clique no evento KeyPress do TextBox e insira o código logo abaixo.
If Not Char.IsNumber(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.
A mente que se abre a uma nova idéia jamais voltará ao seu tamanho original. Albert Einstein
0 comentários:
Postar um comentário