FORMATER UN TEXTE sans OCX

Bonjour à tous...
J'aimerai Formater mon texte avec la même possibilité que l'OCX Mask, c'est à dire soit entrer un numéro de téléphone ou une date de naissance et que mon textbox affiche automatiquement les séparateurs: "/" et qu'il ny est pas possibilité de rentrer du texte.

faut faire un truc du style:
et faut rajouter un controle de la date



Private Sub Text1_KeyPress(KeyAscii As Integer)

If Len(Text1) = 10 Then
'limite de la date a 10 caractere : JJ/MM/AAAA
KeyAscii = 0
Else
If KeyAscii <> 8 Then
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
End If
Else
'gestion du retour arriere
If Len(Text1) = 3 Or Len(Text1) = 6 Then Text1 = Left(Text1, Len(Text1) - 2)
End If
End If
End Sub

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)

If Len(Text1) = 2 Or Len(Text1) = 5 Then Text1 = Text1 & "/"
If KeyCode > 48 Or KeyCode < 57 Then Text1.SelStart = Len(Text1)
End Sub



-------------------------------
Réponse au message :
-------------------------------

Bonjour à tous...
J'aimerai Formater mon texte avec la même possibilité que l'OCX Mask, c'est à dire soit entrer un numéro de téléphone ou une date de naissance et que mon textbox affiche automatiquement les séparateurs: "/" et qu'il ny est pas possibilité de rentrer du texte.

MERCI beaucoup....
Ca marche impec......
Tchao....


-------------------------------
Réponse au message :
-------------------------------

faut faire un truc du style:
et faut rajouter un controle de la date



Private Sub Text1_KeyPress(KeyAscii As Integer)

If Len(Text1) = 10 Then
'limite de la date a 10 caractere : JJ/MM/AAAA
KeyAscii = 0
Else
If KeyAscii <> 8 Then
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
End If
Else
'gestion du retour arriere
If Len(Text1) = 3 Or Len(Text1) = 6 Then Text1 = Left(Text1, Len(Text1) - 2)
End If
End If
End Sub

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)

If Len(Text1) = 2 Or Len(Text1) = 5 Then Text1 = Text1 & "/"
If KeyCode > 48 Or KeyCode < 57 Then Text1.SelStart = Len(Text1)
End Sub



-------------------------------
Réponse au message :
-------------------------------

Bonjour à tous...
J'aimerai Formater mon texte avec la même possibilité que l'OCX Mask, c'est à dire soit entrer un numéro de téléphone ou une date de naissance et que mon textbox affiche automatiquement les séparateurs: "/" et qu'il ny est pas possibilité de rentrer du texte.