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

Commenter

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

S'inscrire maintenant

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.

Du même auteur (cs_Crazyht)