|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Miscelâneas)
|
|
 |
Título da Dica: Como saber se vc esta no último text do seu array
|
 |
|
|
|
Postada em 26/12/2006 por Álvaro
Utilizando o comando case conseguimos fazer com q o sistema entenda qual é o último text do array e com isso vc pode jogar o foco, ou fazer qualquer outro tipo de evento no último text do array
No exemplo abaixo estou no evento keypress do text
If KeyAscii = 13 Then
If IsNumeric(TxtExtra2(Index).Text) = False Then
MsgBox "Digite uma hora válida e/ou tudo junto ex: 0800", vbInformation
TxtExtra2(Index).Text = ""
TxtExtra2(Index).SetFocus
Else
TxtExtra2(Index).Text = Format(TxtExtra2(Index).Text, "0#:##")
Select Case Index
Case 30
TxtExtra2(Index).SetFocus
Case Else
TxtEntrada1(Index + 1).SetFocus
End Select
End If
End If
|
|
|
|
|
