TEXTBOX MASCARA PERSONALIZADA..

MESTRE 28/01/2014 09:38:43
#433662
Então galera tenho um textbox que recebe o valor em Hora, defini o maxlenght para 5 ai o usuário digita:

2000 e faz ficar 20:00

utilizo no evento change do textbox
[th][/th]
codigo
Private Sub txthora4_Change()
If Len(txthora4) = 2 Then
txthora4 = txthora4 + [Ô]:[Ô]
txthora4.SelStart = 4

End If


Só que agora estou em outro caso que preciso que o usuário digite 20:00-12:00 no mesmo textbox..
Ja tentei de tudo alguem sabe como me ajudar??
MESTRE 28/01/2014 10:10:45
#433665
Bom consegui HAHA

[th][/th]
Private Sub txthorafase_Change()
If Len(txthorafase) = 2 Then
txthorafase = txthorafase + [Ô]:[Ô]
txthorafase.SelStart = 4
End If

If Len(txthorafase) = 5 Then
txthorafase = txthorafase + [Ô]-[Ô]
txthorafase.SelStart = 6
End If

If Len(txthorafase) = 8 Then
txthorafase = txthorafase + [Ô]:[Ô]
txthorafase.SelStart = 9
End If
End Sub
Tópico encerrado , respostas não são mais permitidas