Discussion :

[amka]

Bonjour
J'ai une zone de texte que je veux limiter la taille de son contenu, j'ai fais ce petit code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub ActComp_KeyDown(KeyCode As Integer, Shift As Integer)
If Len(ActComp) > 255 Then KeyCode = 0
End Sub

mais avec ce code : dans la zone de texte(ZT1) je peux écrire tant que je veux la premiére fois et quand je passe à la zone de texte(ZT2) suivante et je reviens à la précédente(ZT1) , là je ne peux pas ajouter du texte si les 255 est dépassé.

est ce que je veux c'est lors de la saisie de mon texte il m'affiche un message comme quoi j'ai dépassé le nombre de caractére autorisé et il bloque la saisie.
je vous remercie de votre aide.

[Arkham46]

slt,

pour avoir la taille du texte en cours de saisie, utilisez la propritété text

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Len(ActComp.Text)

[amka]

slt,

pour avoir la taille du texte en cours de saisie, utilisez la propritété text

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Len(ActComp.Text)

ça marche mnt mais il y a un autre probléme , une fois arrivée à la fin je ne peux plus modifier ce que j'ai écrit.

[amka]

Bonjour
J'ai toujours pas résolue ce probléme. il y a qlq un qui peut me proposer qlq chose. merci

[cafeine]

il faut tester si le keycode est celui de l'effacement ... pour ne pas bloquer cet événement touche

j'ai rajouté d'autres touches pratiques à ne pas bloquer ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub txtInput_KeyDown(KeyCode As Integer, Shift As Integer)

Select Case KeyCode
    Case vbKeyBack, vbKeyTab, vbKeyLeft, vbKeyRight, vbKeyDelete
    
    Case Else
        ' Blocage à 15 mais on peut bien sûr changer
        If Len(Me.txtInput.Text) > 15 Then
            KeyCode = 0
        End If
    
End Select

End Sub

[amka]

je te remercie bcp de ton aide.

[amka]

il faut tester si le keycode est celui de l'effacement ... pour ne pas bloquer cet événement touche

j'ai rajouté d'autres touches pratiques à ne pas bloquer ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub txtInput_KeyDown(KeyCode As Integer, Shift As Integer)

Select Case KeyCode
****Case vbKeyBack, vbKeyTab, vbKeyLeft, vbKeyRight, vbKeyDelete
****
****Case Else
********' Blocage à 15 mais on peut bien sûr changer
********If Len(Me.txtInput.Text) > 15 Then
************KeyCode = 0
********End If
****
End Select

End Sub

je te remercie bcp de ton aide.