"taille" ou nombre maximal de caractères dans une RichTextBoxRésolu

Question

Bonjour, 
Cette fois, je suis vraiment désolé de demander à la "communauté" ce petit programme mais j'ai eu beau essayer plusieurs formules, je n'ai toujours pas réussi à résoudre mon problème, que je vais détailler maintenant.

J'essaie tout simplement de limiter le nombre de caractères entrés au clavier par l'utilisateur dans une RichTextBox.

Ce qui me paraissait simple s'avère pour moi un travail de galérien.
J'ai tenté de mettre un MaxLenght dans les propriétés de la RichTextBox, de faire des boucles While ... End While avec tantôt des MaxLenght, tantôt des Len(RichTextBox)...rien n'y fait.

Si quelqu'un avait la gentillesse de m'indiquer comment compter chaque caractère frappé et à imposer de remplir une autre RichTextBox quand on est arrivé au maximum autorisé dans la RichTextBox1.

Merci beaucoup,
Grég

Zermelo · Answer

Bonsoir gregml.
Voici un très petit code qui devrait vous convenir. RTB est un contrôle RichTextBox.
 
Public Class Accueil
    Private n As Integer = 0

Private Sub RTB_KeyDown(sender As Object, e As KeyEventArgs) Handles RTB.KeyDown
        n = n + 1 : If n > 3 Then e.SuppressKeyPress = True
    End Sub

End Class 

Cordialement.

gregml · Answer

Merci beaucoup Zermelo de ton code. 
Je l'ai retranscris mais Par contre, VB.Net ne me "prend" pas 'SuppressKeyPress'...

Dommage car ça a l'air super simple.
Grég

gregml · Answer

Pas de problème. Voici le code en son entier, avec une Form qui contient une RichTextBox.

Option Strict On
Option Explicit On
Imports ImageSur_Form
Imports Microsoft.Office.Interop
Imports Microsoft.Office.Interop.Word

Public Class Form1
Dim oWord As New Word.Apllication
Dim n As Integer =0

Private Sub RichTextBox1_KeyDown(Byval sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles RichTextBox1.KeyDown
n = n+1 : If n>15 Then e.SuppressKeyPress = True
End Sub

End Class

Il y a une erreur avant exécution au KeyDown du 

Handles RichTextBox1.KeyDown

et une à : 

e.SuppressKeyPress

Grég

cs_ShayW · Answer

Bonjour
Je n'ai pas compris que veux tu dire par 
J'essaie tout simplement de limiter le nombre de caractères entrés au clavier par l'utilisateur dans une RichTextBox. 
maxlength est le nombre total de caractères 
si maxlength =100 je suis limité à 100 caractères

gregml · Answer

Salut,
Ca y est, j'ai quelquechose :
en écrivant

Private Sub RichTextBox1_KeyPress(Byval sender As System.Object, _
 e As System.Windows.Forms.KeyPressEventArgs) Handles RichTextBox1.KeyPress
If Len(RichTextBox1.Text)>RichTextBox1.MaxLenght then MSgbox("Oups")
End If
End Sub

La saisie des caractères s'arrête effectivement à celle définie dans la propriété MaxLenght de la RichTextBox1. Par contre, pas de message Oups (en fait je voulais surtout que dès que l'on atteint la limite MaxLenght, on aille "écrire" dans une autre RichTextBox)... d'où le fait que je me soucie du 'Oups'...
Greg

Whismeril · Answer

Bonsoir comme le dis ShayW, si MaLength est configuré, il n'y a rien à faire d'autre:
Sur un formulaire j'ai posé un RichTextBox, et mis 15 dans la propriété MaxLength


A l'exécution je ne peux pas taper de 16eme caractère:

gregml · Answer

Oui, merci à vous deux. Je pense que nos messages se sont télescopés. J'ai depuis "compris" le truc. 

Merci,Grég

cs_ShayW · Answer

Tu ne veux pas seulement limiter le nombre de caractères mais passer le focus à une autre rtb 
peut etre sers toi d'un boolean

private flagmax as boolean = falsePrivate Sub RichTextBox1_KeyPress(Byval sender As System.Object, _ e As System.Windows.Forms.KeyPressEventArgs) Handles RichTextBox1.KeyPressif flagmax then   messagebox.show("new rtb")   exit sub end if If (RichTextBox1.Text).lenght = RichTextBox1.MaxLenght then     flagmax = true else    flagmax = false End IfEnd Sub

"taille" ou nombre maximal de caractères dans une RichTextBox

8 réponses

Votre réponse

Discussions similaires