ataeallah
Messages postés37Date d'inscriptionmercredi 2 janvier 2002StatutMembreDernière intervention17 juin 2010
-
12 juin 2002 à 12:58
ataeallah
Messages postés37Date d'inscriptionmercredi 2 janvier 2002StatutMembreDernière intervention17 juin 2010
-
12 juin 2002 à 19:37
comment je peux, limite l'ecriture dans une zone texte que sur la langueur de la zone, c-à-d ne pas permettre d'ecrire plus que la langueur "Width" de la Zone texte.
Merci d'avance
@+
cs_NuNu
Messages postés100Date d'inscriptionmercredi 29 mai 2002StatutMembreDernière intervention27 juillet 2004 12 juin 2002 à 19:09
C'est bien ce qu'il me semblait mais ta question méritait la 1ère réponse de fatNugly.
Sinon, il t'a donné la solution ds la seconde réponse
...Pendant ce temps je me suis amusée à tester.
Il te faut juste une Form et un TextBox (Text1) pour tester
RQ : faut faire le 1- ou le 2- (et pas les deux)
******************************************
Dim strChaine As String
'1- soit on met la propriété MaxLength=Nbr Max
'ça marche TB
'essaye d'écrire et tu verras qu'après 5 caractères,
'tu ne peux plus saisir
Private Sub Form_Load()
Text1.MaxLength = 5
End Sub
'2- on réinvente la roue
'pas terrible....
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
Dim iLongMax As Integer
iLongMax = 10
If Len(Text1.Text) < 10 Then
strChaine = Text1.Text
Else
Text1.Locked = True
End If
If KeyCode 8 Then Text1.Locked False
End Sub
******************************************
En espérant que ça t'aidera, sinon on essaiera de t'aider du mieux qu'on peux.