max lenght

Question

bjr
svp quelu'un peut me dire comment faire si on atteint le nombre maximum de caractere permis dans une zone de text (text1) on fait une autre action,
exemple:
j'ai 3 zones de texte, leurs max lenght c'est 5,
je veut savoir si on atteint 5 caracteres dans le txt1 un msgbox s'affiche,
merci a vous

cs_DARKSIDIOUS · Answer

Salut,

Fait le test dans l'événement KeyUp de ton textbox.
______________________________________
DarK Sidious

achills · Answer

quesque tu veut dire par : Fait le test dans l'événement KeyUp de ton textbox.
si je savais comment faire sa je poserai pas la qestion lol

PCPT · Answer

salut,

Option Explicit
'   4 zones de texte 
indexées, comme une saisie d'adresse IP
Private Sub Text1_Change(Index As Integer)
    If Len(Text1(Index).Text) = Text1(Index).MaxLength Then
        Select Case Index
            Case 0, 1, 2   'on passe à la zone 
suivante
                    Text1(Index + 1).SetFocus
                    
            Case 3          'dernière zone, on a fini. reste évidemment après à vérifier que 
toutes les zones ont bien été remplies
                    MsgBox "dernière zone 
remplie"
        End Select
    End If
End Sub

ceci est à faire en définissant par exemple tes maxlength à 3
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

Max lenght

3 réponses

Votre réponse

Discussions similaires