SOMENTE NUMEROS EM UM TEXTBOX

SOUZA 13/03/2011 16:06:48
#367905
Pessoal sei que pode parecer coisa boba pra muitos mas nao consigo fazer ser digitados somente numeros inteiros num textbox tipo e um grade que pode ter 3 caracteres somente ou seja ex: (125) uma a mais o maxlength ja breca mas e quanto a somente os numeros pra evitar que seja digitado ex (12h) ?

esse e o codigo pra o ENTER que estou usando pra púlar o campo

Private Sub N33_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys [Ô]{tab}[Ô]
End If
End Sub
SOUZA 13/03/2011 17:02:02
#367907
é eu vi isso mas nao consegui fazer ele fun cionar vc testou isso ai ? pois nao consegui nao testa pra vc ver coloca um numero com uma lentra junto na trava !
TECLA 13/03/2011 17:02:08
#367908 Resposta escolhida
Veja se resolve.

Private Sub Text1_KeyPress(KeyAscii As Integer)
    Select Case KeyAscii
        Case 48 To 57
        Case 13
        Case 8
        Case Else
            KeyAscii = 0
    End Select
End Sub
SOUZA 13/03/2011 17:11:40
#367909
opa agora fumego coloquei assim pra nao perder o enter

Private Sub N33_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57
Case 13
Case 8
Case Else
KeyAscii = 0
End Select
If KeyAscii = 13 Then
SendKeys [Ô]{tab}[Ô]
End If
End Sub

valeu
Tópico encerrado , respostas não são mais permitidas
Voltar