Pb RichTextBox

Signaler
Messages postés
9
Date d'inscription
jeudi 27 mars 2008
Statut
Membre
Dernière intervention
10 janvier 2009
-
Messages postés
3275
Date d'inscription
jeudi 3 avril 2008
Statut
Membre
Dernière intervention
14 septembre 2014
-
Bonjour à tous ! En fait j'aimerais pouvoir mettre en valeur un mot precis dans une ligne d'un textbox ou d'un richtextbox
en le mettant en couleur par exemple. C'est simple pour mettre en couleur une ligne mais un mot d'une ligne je n'y arrive pas Pouvez-vous m'aidez ?
Merci d'avance !

L'exces en tout est la ruine de l'homme

2 réponses

Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
43
salut,

textbox -> pas possible en VB6, et je ne pense pas que çà le soit en VB.NET
RTB -> chaque "partie sélectionnée" est modifiable
la RTB a des méthodes commençant par SELxxx (pour "sélection")
donc soit tu sélectionnes ton texte par code

bonjour je suis un texte
.SelStart sera à 3
.SelLength sera à 4
puis SelFont ou SelBold ou autre, regarde ce que l'intellisense te propose

soit l'utilisateur sélectionne, donc si la taille de .SelText est >0, tu travailles dessus de la même manière

++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp  
Messages postés
3275
Date d'inscription
jeudi 3 avril 2008
Statut
Membre
Dernière intervention
14 septembre 2014
4
  Public Function SurLigner(ByVal Red As String, ByVal Green As String, ByVal Blue As String) As String
<li>        Dim str As String = vbNullString
</li><li>        Try
</li><li>            rtbDoc.SelectedRtf = "{\rtf1\pard" & "{\colortbl ;\red" & Red & "\green" & Green & "\blue" & Blue & ";}" & "\highlight1" & rtbDoc.SelectedText & "\highlight0\par}"
</li><li>        Catch ex As Exception
</li><li>            MessageBox.Show("Error N° " & Err.Number & vbCrLf & Err.Description & vbCrLf & "In " & Err.Source)
</li><li>        End Try
</li><li>        Return str
</li><li>    End Function
</li>