USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (ActiveX/Controles/DLL)

Título da Dica:  Só números em TextBox ..
Postada em 26/12/2006 por Carlos.DF            
'ATENÇÃO invento KeyPress
Private Sub Text1_KeyPress(KeyAscii As Integer)
'

    Const Number$ = "0123456789." ' aceitar só estes caracteres

    If KeyAscii <> 8 Then
    If InStr(Number$, Chr(KeyAscii)) = 0 Then
            KeyAscii = 0
            Exit Sub
        End If
    End If

'OU:
    '
    If IsNumeric(Chr(KeyAscii)) <> True Then KeyAscii = 0
End Sub
'Abraços ..
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página