Definir le nombre maximum de caractères d'une textbox

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 596 fois - Téléchargée 43 fois

Contenu du snippet

Voici une petite fonction que j'ai recupe sur http://www.vb2themax.com/ qui permet de definir le nombre de caractères maximum d'une TextBox. Ca peut toujours servir :)

Source / Exemple :


Private Declare Function SendMessageLong Lib "user32" Alias _
        "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
        ByVal wParam As Long, ByVal lParam As Long) As Long

Private Const EM_LIMITTEXT As Long = &HC5

Public Sub SetTextBoxMaxChar(ByRef txtThis As TextBox, ByVal Num As Long)
    SendMessageLong txtThis.hwnd, EM_LIMITTEXT, Abs(Num), 0
End Sub

' Et dans le Load de votre Form vous faites :
SetTextBoxMaxChar Text1 , 40

Conclusion :


Bonne prog a tous

A voir également

Ajouter un commentaire

Commentaires

Messages postés
240
Date d'inscription
vendredi 14 juin 2002
Statut
Membre
Dernière intervention
17 mars 2009

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
@+
Messages postés
1522
Date d'inscription
mardi 18 décembre 2001
Statut
Modérateur
Dernière intervention
21 août 2010
5
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)
Messages postés
1251
Date d'inscription
mercredi 7 août 2002
Statut
Modérateur
Dernière intervention
10 avril 2013

Drole de façon de faire
Messages postés
7
Date d'inscription
mardi 21 août 2001
Statut
Membre
Dernière intervention
28 août 2002

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 ?

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.