FORMATER UN TEXTE sans OCX

Question

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.

BasicInstinct · Answer

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

wojc · Answer

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

FORMATER UN TEXTE sans OCX

2 réponses

Discussions similaires