RichTextBox

Question

Salut a tous,

juste une petite question qui me derange, j'ai un contrôle RichTextBox et je voudrais y mettre :

Quantite :  12154

Date : 45454

Référence : 545345154

Mais avec Quantité, Date et Référence d'une autre Police que les Valeurs..
Comment faire ???

Merci

It@li@

econs · Answer

Private Sub Command1_Click()
RichTextBox1.SelStart = 4
RichTextBox1.SelLength = 6
RichTextBox1.SelColor = RGB(250, 50, 20)
RichTextBox1.SelFontName = "Courier"
End Sub

Private Sub Form_Load()
RichTextBox1.Text = "sdkqfjthsdlkfj hqsldkjf hqsldkj h"
End Sub



Manu

econs · Answer

Juste quelques précisions sur le code que j'ai rapidement tapé ci-dessus :

Ce code colorie en rouge, à partir du 4ème caractère et sur une longueur de 6 caractères, le texte présent dans RichTextBox1.

Pour ton problème, il te suffit de récupérer l'index où commencent les mots Quantite, Date, ... et de colorier le texte sur la bonne longueur.

indexDeQuantite = Instr(1,RichTextBox1.Text,"Quantite")
RichTextBox1.Selstart=indexDeQuantite - 1
RichTextBox1.Sellength = 8
RichTextBox1.SelColor = RGB(250, 50, 20)
RichTextBox1.SelFontName = "Courier"
...

Manu

RichTextBox

2 réponses

Discussions similaires