TRATAMENTO DE NUMERO

ADHEL 23/11/2010 13:29:26
#358042

Dá uma olhada nesse tópico
http://www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=321317&varWorld=

GERARDA 23/11/2010 23:14:02
#358085

ja tentou assim?

Private Sub Text1_KeyPress(KeyAscii As Integer)
If InStr(1, [Ô]1234567890[Ô] & Chr(8), Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

JANDER 24/11/2010 09:42:43
#358096

Function soNumeros(Text1 As TextBox, codigoasc As Integer)
If codigoasc = 8 Then
Exit Function
End If
If Chr(codigoasc) < 0 Or Chr(codigoasc) > 9 Then
codigoasc = 0
End If
End Function



Private Sub Text1_KeyPress(KeyAscii As Integer)
soNumeros Text1, KeyAscii
End Sub



essa função faz o que vc está pedindo.

ANDPAG 24/11/2010 15:38:43
#358126 Resposta escolhida

coloca essa linha dento do keypress do seu componente

If Not IsNumeric(Chr(KeyAscii)) And KeyAscii <> 8 And KeyAscii <> 13 Then KeyAscii = 0