COMO EU DEXO UM TEXTBOX SO PARA NUMEROS

FERDN4NDO 21/01/2005 01:08:02
#62090
Po meu, eu ja vo encerra esse topico, mas me add no msn
( ferdn4ndo@hotmail.com )

[S27] [S67] [S98]
FERDN4NDO 21/01/2005 01:09:45
#62091
E mais, eu queria sabe como deixa um InputBox so para numeros.
USUARIO.EXCLUIDOS 21/01/2005 01:30:12
#62095
Bem com tantas opções coloco mais uma sendo que vc pode configurar para qualquer coisa. Só numeros, Só letras, Só o que vc determinar

Exemplo

Chamada:

Private Sub FTxtMesa_KeyPress(KeyAscii As Integer)
    KeyAscii = SoDigitar_OpcoesVenda(KeyAscii)
End Sub


Função
Private Function SoDigitar_OpcoesVenda(ByVal Key As Integer) As Integer
    'Rotina que so permiter digitar as opcoes disponiveis para a venda
    Const Numeros$ = "BD1234567890 "
    SoDigitar_OpcoesVenda = Key
    If Key <> 8 Then
        If InStr(Numeros$, Chr(Key)) = 0 Then
            SoDigitar_OpcoesVenda = 0
        End If
    End If
    'Chamanda:No evento KeyPress do Componente
    'KeyAscii = SoNumeros(KeyAscii)
End Function


Const Numeros$ = "BD1234567890 " é aonde vc coloca os caracteres que podem ser digitados. No seu caso Const Numeros$ = "1234567890 "
Repare que também tem um espaço isso para o usuario poder apagar o que digitou.
Página 2 de 2 [13 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar