|
|
Postada em 27/01/2006 11:33 hs
Brigadão pessoal Ai Tekki, se vc me mandar, eu agradeço... T+ Rinaldo |
|
|
|
|
|
Tekki
|
UBERLÂNDIA
MG - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 29/01/2006 19:24 hs
Liberei a dica do B1RUT@ lá tem o que você quer. |
|
|
|
Rinaldo
|
SÃO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 02/02/2006 07:40 hs
Valeu Tekki Já havia visto a dica. Desculpe não ter avisado pra vc. T+ Rinaldo |
|
|
|
|
|
Postada em 02/02/2006 17:39 hs
Faz assim no evento change If Len(TX(2).Text) = 2 Then
TX(2).Text = TX(2).Text + "/"
TX(2).SelStart = 3
ElseIf Len(TX(2).Text) = 5 Then
TX(2).Text = TX(2).Text + "/"
TX(2).SelStart = 6
TX(2).MaxLength = 10
End If Boa sorte Atenciosamente Ivo |
|
|
|
|
|
Postada em 02/02/2006 21:42 hs
|
|
|
|
Korn
|
SAO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 03/02/2006 08:31 hs
eu faço assim no keypress Private Sub txtdataEnt_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case vbKeyDelete, vbKeyBack
Case 48 To 57
If Len(txtdataEnt.Text) = 2 Or Len(txtdataEnt.Text) = 5 Then
txtdataEnt.Text = txtdataEnt.Text & "/"
End If
txtdataEnt.SelStart = Len(txtdataEnt.Text)
Case 8, 44
Case Else
KeyAscii = 0
End Select
End Sub
Jesus Cristo é O Senhor!!!
|
|
|
|
