Textbox Receba Apenas Números

[Mauro Jr]

E aí pessoal!

Como faço para validar um TextBox para que ele receba apenas números?

Agradeço a atenção!

Mauro Junior

[Rafael_Tomitao]

Mauro Jr,

Tente isso colocar no evento KeyPress do TextBox que você quer que somente receba numeros:

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii < 48 Or KeyAscii > 57 Then

If KeyAscii <> 8 Then

KeyAscii = 0

End If

End If

End Sub

Espero que te ajude

[]'s

Rafael

[Promotor Advanced]

Private Sub Text1_KeyPress(KeyAscii As Integer)

Dim StrValid As String

StrValid = "0123456789"

If InStr(StrValid, Chr(KeyAscii)) = 0 Then

KeyAscii = 0

End If

End Sub

[Mauro Jr]

Valeu Rafael_Tomitao

Valeu Promotor Advanced

Graças a vocês consegui resolver o meu problema.

Viva ao Ascii (hehehehe)

Força Sempre!

Mauro Junior

[Rafael_Tomitao]

Mauro,

Estamos aqui pra isso, e sempre que precisar é só postar...

[]'s

Fique com Deus