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

 

  Dicas

  Visual Basic    (Validações)

Título da Dica:  Controla digitação de numeros com casas decimais de um Textbox
Postada em 11/4/2002 por Alan            
---- NO EVENTO KEYPRESS DO txtCampo
KEYASCII = TratarNumeroDecimal (keyascii, txtCampo)


---- NO MODULO
Public Function TratarNumeroDecimal(intAscii As Integer, ByRef oControle As Object) As Integer
    Dim I As Integer
    
    'DEIXA SER DIGITADA SOMENTE A CADEIA DE CARACTERES : "0123456789.,"
    If InStr("0123456789.,", Chr(intAscii)) = 0 And intAscii <> 8 Then
        TratarNumeroDecimal = 0
        Exit Function
    End If

    'TROCA O PONTO POR VÍRGULA
    If intAscii = 46 Then
        intAscii = 44
    End If
    
    'NÃO PERMITE A DIGITAÇÃO DE VÁRIAS VÍRGULAS
    For I = 1 To Len(oControle)
        If Mid(oControle, I, 1) = Chr(intAscii) And intAscii = 44 Then
            TratarNumeroDecimal = 0
            Exit Function
        End If
    Next I
        
    TratarNumeroDecimal = intAscii

End Function
 


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