Postada em 04/06/2013 21:43 hs
Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = SóNúmeros(KeyAscii)
End Sub
Function SóNúmeros(Key As Integer) As String
'selecione os caracteres que desejar
Const Números$ = "0123456789"
SóNúmeros = Key
If Key <> 8 Then 'conferindo se é backspace
'vê se é um caracter permitido
If InStr(Números$, Chr(Key)) = 0 Then
SóNúmeros = 0
End If
End If
End Function
|
