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

 

  Dicas

  Visual Basic    (Miscelâneas)

Título da Dica:  Utilizando formatação no Array
Postada em 26/12/2006 por Álvaro            
Nesse caso estou utilizando no evento keypress e como sabemos isso ira automaticamente para todos os text que formam o array.
No caso vamos usar normalmente o comando format a única diferença e colocar entre parentes o index, para que o sistema reconheça cada text individualmente mesmo fazendo parte da array. É simples porém funcional

    If KeyAscii = 13 Then
        If IsNumeric(TxtEntrada1(Index).Text) = False Then
            MsgBox "Digite uma hora válida e/ou tudo junto ex: 0800", vbInformation
            TxtEntrada1(Index).Text = ""
            TxtEntrada1(Index).SetFocus
        Else
            TxtEntrada1(Index).Text = Format(TxtEntrada1(Index).Text, "0#:##")
            TxtSaida1(Index).SetFocus
        End If
    End If
 


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