Disparition des carcteres d'un RichEditBoxRésolu

Question

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

cs_casy · Accepted Answer

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

, ---- [code.aspx?ID=41455 By Renfield] ---- Sevyc64 (alias Casy) ----

# LE PARTAGE EST NOTRE FORCE # http://aide-office-vba.monforum.com/index.php

cs_andrebernard · Answer

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

Disparition des carcteres d'un RichEditBox

2 réponses

Votre réponse

Discussions similaires