DEFINIR LE NOMBRE MAXIMUM DE CARACTÈRES D'UNE TEXTBOX
cs_Insight
Messages postés7Date d'inscriptionmardi 21 août 2001StatutMembreDernière intervention28 août 2002
-
28 août 2002 à 12:49
psykocrash
Messages postés240Date d'inscriptionvendredi 14 juin 2002StatutMembreDernière intervention17 mars 2009
-
7 sept. 2002 à 13:08
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
psykocrash
Messages postés240Date d'inscriptionvendredi 14 juin 2002StatutMembreDernière intervention17 mars 2009 7 sept. 2002 à 13:08
Slt
Non seulement il y a MaxLenght comme l'a dis Insight, ms il y a aussi un p'tit bout de code que voici :
Private Sub Text1_Change()
If Len(Text1.text) > 40 then
a = Left(Text1.Text, 40)
text1.text = a
End Sub
+ simple et la j'crois pas qu'il y a un bug
@+
cs_Crazyht
Messages postés1522Date d'inscriptionmardi 18 décembre 2001StatutMembreDernière intervention21 août 20108 29 août 2002 à 08:14
Tout simplement car le MaxLength buggait avec un des SP de VB6 et en plus car la il existe la meme chose avec les combobox il suffit de remplacer EM_LIMITTEXT par CB_LIMITTEXT (=&H141)
nickadele
Messages postés1251Date d'inscriptionmercredi 7 août 2002StatutModérateurDernière intervention10 avril 2013 28 août 2002 à 15:38
Drole de façon de faire
cs_Insight
Messages postés7Date d'inscriptionmardi 21 août 2001StatutMembreDernière intervention28 août 2002 28 août 2002 à 12:49
et pourquoi ne pas utiliser tout simplement Text1.MaxLength = 40 ? Dans quel cas est-ce nécessaire ( ou plus avantageux ) d'utiliser la méthode que tu nous indiques ?
7 sept. 2002 à 13:08
Non seulement il y a MaxLenght comme l'a dis Insight, ms il y a aussi un p'tit bout de code que voici :
Private Sub Text1_Change()
If Len(Text1.text) > 40 then
a = Left(Text1.Text, 40)
text1.text = a
End Sub
+ simple et la j'crois pas qu'il y a un bug
@+
29 août 2002 à 08:14
28 août 2002 à 15:38
28 août 2002 à 12:49