VicoLaChips2
Messages postés436Date d'inscriptiondimanche 20 janvier 2002StatutMembreDernière intervention 2 février 20102 21 janv. 2002 à 21:25
Merci Seb :))
Donc il faut dire sans le composant...MSMASK32.OCX
Seb_d_angers
Messages postés155Date d'inscriptionvendredi 2 novembre 2001StatutMembreDernière intervention19 mai 2011 21 janv. 2002 à 20:56
MS Masked Edit Control c'est pas fait pour les chiens...
VicoLaChips2
Messages postés436Date d'inscriptiondimanche 20 janvier 2002StatutMembreDernière intervention 2 février 20102 21 janv. 2002 à 13:11
Sur le form1, il vaut mieux mettre :
Un évènement KeyDown... autrement on peut pas faire backspace...
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If Not KeyCode = 8 Then
Call FormatDate(Text1.Text, Form1.Text1)
End If
End Sub
21 janv. 2002 à 21:25
Donc il faut dire sans le composant...MSMASK32.OCX
21 janv. 2002 à 20:56
21 janv. 2002 à 13:11
Un évènement KeyDown... autrement on peut pas faire backspace...
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If Not KeyCode = 8 Then
Call FormatDate(Text1.Text, Form1.Text1)
End If
End Sub