|
|
|
|
|
|
|
|
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
|
|
|
|
|
