Empecher le défilement d'un RichTextBox
cs_007
Messages postés
24
Date d'inscription
jeudi 20 juin 2002
Statut
Membre
Dernière intervention
1 janvier 2007
-
11 janv. 2005 à 21:43
addamsmercredi Messages postés 121 Date d'inscription dimanche 3 octobre 2004 Statut Membre Dernière intervention 27 juillet 2006 - 12 janv. 2005 à 20:04
addamsmercredi Messages postés 121 Date d'inscription dimanche 3 octobre 2004 Statut Membre Dernière intervention 27 juillet 2006 - 12 janv. 2005 à 20:04
A voir également:
- Empecher le défilement d'un RichTextBox
- Defilement d'image en boucle html ✓ - Forum Javascript / DHTML
- Défilement d'image Automatique - Forum VB.NET
- Richtextbox vba ✓ - Forum Visual Basic 6
- Créer un défilement d'images + zoom sur la séléction - Forum Flash
- Empecher conjugaison ✓ - Forum PHP
3 réponses
addamsmercredi
Messages postés
121
Date d'inscription
dimanche 3 octobre 2004
Statut
Membre
Dernière intervention
27 juillet 2006
11 janv. 2005 à 22:37
11 janv. 2005 à 22:37
Voici un bout de code qui pourra sûrement t'aider, il te restera à définir nblignemax qui limitera l'utilisateur à ce nombre de lignes :
Private Sub RichTextBox1_Change()
If RichTextBox1.GetLineFromChar(RichTextBox1.SelStart) > nblignemax Then
RichTextBox1.Text = left(RichTextBox1.Text, Len(RichTextBox1.Text) - 1)
End If
End Sub
Private Sub RichTextBox1_Change()
If RichTextBox1.GetLineFromChar(RichTextBox1.SelStart) > nblignemax Then
RichTextBox1.Text = left(RichTextBox1.Text, Len(RichTextBox1.Text) - 1)
End If
End Sub
cs_007
Messages postés
24
Date d'inscription
jeudi 20 juin 2002
Statut
Membre
Dernière intervention
1 janvier 2007
12 janv. 2005 à 18:29
12 janv. 2005 à 18:29
Salut à toi addamsmercredi, et déjà merci pour avoir répondu à mon post.
Cependant, ton code ne résout pas mon problème, car comme tu le sais on peut modifier la taille du texte dans un contrôle RichTextBox, or si je définit un nombre maximal de ligne à 12 et 10 pt, par exemple, cette limite retombe à 2 ou lorsque je tape en 72 pt. Et pour corser le tout, je ne peut pas me fier à la taille utilisée, car différentes tailles de texte doivent pouvoir cohabiter.
La seule solution que j'ai trouvée jusqu'à présent consiste à se faire renvoyer la hauteur du texte et la comparer à la hauteur du contrôle. Si celui-ci est trop petit par rapport au texte, j'affiche un messagebox à l'utilisateur en le prévenant que son texte risque de ne pas être affiché dans son intégralité et en lui proposant, soit d'ignorer, soit de corriger.
James Bond
Cependant, ton code ne résout pas mon problème, car comme tu le sais on peut modifier la taille du texte dans un contrôle RichTextBox, or si je définit un nombre maximal de ligne à 12 et 10 pt, par exemple, cette limite retombe à 2 ou lorsque je tape en 72 pt. Et pour corser le tout, je ne peut pas me fier à la taille utilisée, car différentes tailles de texte doivent pouvoir cohabiter.
La seule solution que j'ai trouvée jusqu'à présent consiste à se faire renvoyer la hauteur du texte et la comparer à la hauteur du contrôle. Si celui-ci est trop petit par rapport au texte, j'affiche un messagebox à l'utilisateur en le prévenant que son texte risque de ne pas être affiché dans son intégralité et en lui proposant, soit d'ignorer, soit de corriger.
James Bond
addamsmercredi
Messages postés
121
Date d'inscription
dimanche 3 octobre 2004
Statut
Membre
Dernière intervention
27 juillet 2006
12 janv. 2005 à 20:04
12 janv. 2005 à 20:04
Salut,
En fait, j'ai déjà cherché la même chose que toi sans succès :
http://www.vbfrance.com/forum.v2.aspx?ID=356072
Sauf que moi, je ne veux pas bloquer la saisie du texte mais afficher la suite dans une autre feuille pour pouvoir l'imprimer en entier.
Pour finir, j'ai donc utilisé le même test If que celui que je t'ai mis dans ma première réponse juste après un RichTextBox1.UpTo (Len(RichTextBox1.Text)) pour bien me placer à la fin du texte et tant pis si l'utilisateur met une trop grosse police... c'est à lui de faire un petit peu attention... je n'ai pas trouvé d'autre solution car je ne sais pas comment avoir la hauteur du texte ou alors il faudrait la calculer en tenant compte à chaque ligne de la taille de la police...
En fait, j'ai déjà cherché la même chose que toi sans succès :
http://www.vbfrance.com/forum.v2.aspx?ID=356072
Sauf que moi, je ne veux pas bloquer la saisie du texte mais afficher la suite dans une autre feuille pour pouvoir l'imprimer en entier.
Pour finir, j'ai donc utilisé le même test If que celui que je t'ai mis dans ma première réponse juste après un RichTextBox1.UpTo (Len(RichTextBox1.Text)) pour bien me placer à la fin du texte et tant pis si l'utilisateur met une trop grosse police... c'est à lui de faire un petit peu attention... je n'ai pas trouvé d'autre solution car je ne sais pas comment avoir la hauteur du texte ou alors il faudrait la calculer en tenant compte à chaque ligne de la taille de la police...
