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

 

  Dicas

  Visual Basic    (Validações)

Título da Dica:  Somente valores numéricos num TextBox no formato 9.999,99
Postada em 16/2/2004 por Tekki            
Crie um novo projeto, adicione dois TextBox com o nome Text1 e Text2, o Text2 servirá só para receber o foco.

Declare uma variável.
Dim sQtdeVirgulas() As String

    'No Change do Text1
    If Len(Text1.Text) > 2 Then If Mid(Text1.Text, Len(Text1.Text) - 2, 1) = "," Then Text2.SetFocus Else If Left(Text1.Text, 1) = "," Then Text1.Text = "0" & Text1.Text
    
    'No KeyPress do Text1
    sQtdeVirgulas = Split(Text1.Text, ",")
    If UBound(sQtdeVirgulas) > 0 Then If KeyAscii = 44 Or KeyAscii = 46 Then KeyAscii = 0
    If KeyAscii = 46 Then KeyAscii = 44 Else If Not IsNumeric(Chr(KeyAscii)) And KeyAscii <> 32 And KeyAscii <> 44 And KeyAscii <> 13 And KeyAscii <> 8 And KeyAscii <> 32 Then KeyAscii = 0
    
    'No LostFocus do Text1
    Text1.Text = Format(Text1.Text, "Standard")


É uma forma bem simples porem o Split funciona em VB6.

(Tekki)
 


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