LIMITAR COUNTEUDO DE TEXT BOX

MATHEUS1346 20/11/2009 17:33:22
#328290
Galera, como faço para deixar o usuário colocar apenas caracteres de 1a9 no text box?

Grato
MARCOSLING 20/11/2009 17:38:01
#328292
é só monitorar as teclas pressionadas no evento keypress do textbox
FBUR 20/11/2009 17:42:31
#328293 

Private Sub Text1_KeyPress(KeyAscii As Integer)

    If (KeyAscii < 48 Or KeyAscii > 57) Then [ô]entre 48 e 57: correspondem aos numeros de 0 à 9
        If KeyAscii <> 8 Then [ô]corresponde ao backspace, senão o camarada só digita mas não apaga :)
            KeyAscii = 0
        End If
    End If

End Sub



[ ]'s
MATHEUS1346 20/11/2009 17:52:06
#328296
ainda não sei quando que vai dar o erro vcs podem ajudar??
FBUR 20/11/2009 17:54:33
#328297
que erro?
EDERMIR 20/11/2009 18:18:01
#328300
Citação:

FBUR escreveu:


Private Sub Text1_KeyPress(KeyAscii As Integer)

    If (KeyAscii < 48 Or KeyAscii > 57) Then [ô]entre 48 e 57: correspondem aos numeros de 0 à 9
        If KeyAscii <> 8 Then [ô]corresponde ao backspace, senão o camarada só digita mas não apaga :)
            KeyAscii = 0
        End If
    End If

End Sub



[ ]'s


Tem que incluir o ENTER:
       If KeyAscii <> 8 Then [ô]corresponde ao backspace, senão o camarada só digita mas não apaga :)
            If KeyAscii <> 13 Then [ô]corresponde ao ENTER, senão o camarada só sai por TAB :8)
                KeyAscii = 0
            End If
        End If
TECLA 20/11/2009 22:17:54
#328324
Transcrevendo o código postado, segue uma outra dica:

1. Insira um TEXTBOX (e não mude a propriedade NAME do mesmo)
2. Copie o código, e cole no FORM:
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
    Case 48 To 57 [txt-color=#006400][ô]0 a 9[/txt-color]
    Case 13       [txt-color=#006400][ô]Enter[/txt-color]
    Case 8       [txt-color=#006400] [ô]BackSpace[/txt-color]
    Case Else
        KeyAscii = 0
End Select
End Sub
MATHEUS1346 23/11/2009 21:53:49
#328440
Maas quaNDO ENTRA O MSGBOX DIZENDO QUE HOUVE O ERRO
MARCOSLING 23/11/2009 21:56:12
#328441
Mas pra quê msgbox?!?
Vc não queria só resrtringir a entrada de dados?!?
RONALD.OTAVIO 24/11/2009 18:15:34
#328516
Olá Matheus, coloque a função (conforme anexo) em um módulo e no keypress do textbox a chamada:KeyAscii = SoNumeros(KeyAscii)

Teste aí e verifique se é isto que precisa.
Página 1 de 2 [12 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar