MASCARA EM COMBO...

CARINHENA 14/01/2005 16:28:06
#60780
Boa tarde.

é possivel colocar mascara em um combo?

é um formato hora, ou seja, gostaria que quando a pessoa digita-se a hora, apenas digita-se os numeros, exemplo:

Ao invez de digitar 14:20 digite apenas 1420
O ":" Fique na caixa para que a pessoa não precise digitar.

Coloquei o Data Format como 00:00, mas, ao digitar o numero não aparece o ":" e ainda por cima, quando o registro é recuperado ele ele fica assim "14:20:00" e não fica de jeito nenhum abreviado para "14:20".

Alguem pode esclarecer isso?
USUARIO.EXCLUIDOS 14/01/2005 17:14:10
#60792 Resposta escolhida
Basta você ativar o Keypreview do forma para true e fazer o seguinte

'Testei o codigo e deu certo, mas se der algum problema você pode modificar
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 8 Or KeyCode = 191 Then Exit Sub: KeyCode = 0
If Len(Combo1) = 1 Then
SendKeys Chr(58)
ElseIf Len(Combo1) > 4 Then
SendKeys "{bs}"
End If
End Sub


Ok, gatinha?
Até
CARINHENA 14/01/2005 18:07:39
#60815
Pefeito.

Pode colocar assim:

Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 8 Or KeyCode = 191 Then Exit Sub: KeyCode = 0
If Len(Combo1) = 1 Then
SendKeys Chr(58)
ElseIf Len(Combo1) > 4 Then
SendKeys "{bs}"
End If
End Sub

que funciona tb.

Um abraço e valeu pela ajuda!!!
USUARIO.EXCLUIDOS 14/01/2005 18:10:52
#60818
Ok! Não se esqueça de Encerrar o Tópico...
Tópico encerrado , respostas não são mais permitidas
Voltar