Disparition des carcteres d'un RichEditBox [Résolu]

Messages postés
406
Date d'inscription
lundi 9 juin 2003
Dernière intervention
4 septembre 2013
- - Dernière réponse : cs_andrebernard
Messages postés
406
Date d'inscription
lundi 9 juin 2003
Dernière intervention
4 septembre 2013
- 4 sept. 2007 à 09:09
Bonjour à tous

Je voudrais faire un richeditbox dans lequel les caracteres varie selon la taille de la fenetre qui le contient.
ça marche tres bien mais quand je resize la fenetre le texte que j'avais ecris en vert redeviens noir et donc disparait sur mon fond noir

Private Sub Form_Load()
 RichTextBox1.Width = Form1.Width
 RichTextBox1.Height = Form1.Height
End Sub



Private Sub Form_Resize()
 RichTextBox1.Font.Size = Int(Form1.Width / 400)
 RichTextBox1.Width = Form1.Width
 RichTextBox1.Height = Form1.Height
 RichTextBox1.SelColor = &HC000&
End Sub


Je n'ai pas compris pourquoi

Merci et bonne journée
Afficher la suite 

Votre réponse

2 réponses

Meilleure réponse
Messages postés
7745
Date d'inscription
mercredi 1 septembre 2004
Dernière intervention
24 septembre 2014
3
Merci
Essaye ceci :

Private Sub Form_Resize()
RichTextBox1.Font.Size = Int(Form1.Width / 400)
RichTextBox1.Width = Form1.Width
RichTextBox1.Height = Form1.Height
RichTextBox1.SelStart = 0
RichTextBox1.SelLength = Len(RichTextBox1.Text)
RichTextBox1.SelColor = &HC000&
RichTextBox1.SelLength = 0
End Sub<hr />
, ----
[code.aspx?ID=41455 By Renfield]

---- Sevyc64  (alias Casy) ---- <hr size ="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 98 internautes ce mois-ci

Commenter la réponse de cs_casy
Messages postés
406
Date d'inscription
lundi 9 juin 2003
Dernière intervention
4 septembre 2013
3
Merci
Bonjour CASY

Merci ça marche nickel.
Par contre j'avais encore un petit soucis, c'est que du coup quand on resizait la fenetre le curseur se remttait au debut et ne gardait pas sa place d'origine.

Grace à ton code que j'ai compris, j' ai un peu modifié pour que le curseur reste ou il est

Merci beaucoup

Private Sub Form_Resize()
 rtf.Font.Size = Int(frmDoc.Width / 400)
 rtf.Width = frmDoc.Width
 rtf.Height = frmDoc.Height
 rtf.SelStart = 0
 rtf.SelLength = Len(rtf.Text)
 rtf.SelColor = &HC000&
 rtf.SelStart = Len(rtf.Text)
End Sub

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 98 internautes ce mois-ci

Commenter la réponse de cs_andrebernard

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.