Richtextbox color

Question

Bonjour,

j'utilise une richtext box et et je dois &#224; un moment indiquer PASS ou
FAIL. Je souhaiterais pouvoir indiquer mon r&#233;sultat PASS en vert et mon
r&#233;sultat FAIL en rouge et continuer ensuite &#224; &#233;crire en black.
Quelqu'un a-t-il une id&#233;e pour faire cela ?

Merci d'avance

BasicInstinct · Answer

'lut

faut jouer avec le selstart, sellength & selcolor.

++

 BasicInstinct

runo · Answer

Jai bien essay&#233; mais ca ne marche pas !

voici mon code :

Function PrintText1(ByRef value As String, ByVal color As String) As Object

        Dim start As Integer

        Form1.DefInstance.RichTextBox1.Focus()

        start = Len(Form1.DefInstance.RichTextBox1.Text)

       
Form1.DefInstance.RichTextBox1.Text =
Form1.DefInstance.RichTextBox1.Text & vbCrLf & " " & value

       
Form1.DefInstance.RichTextBox1.SelectionStart =
Len(Form1.DefInstance.RichTextBox1.Text)

        Form1.DefInstance.RichTextBox1.ScrollToCaret()



        If (color = "red") Then

            Form1.DefInstance.RichTextBox1.SelectionStart = start

           
Form1.DefInstance.RichTextBox1.SelectionLength =
Len(Form1.DefInstance.RichTextBox1.Text)

           
Form1.DefInstance.RichTextBox1.SelectionColor =
Form1.DefInstance.RichTextBox1.ForeColor.Red

        ElseIf (color = "green") Then

            Form1.DefInstance.RichTextBox1.SelectionStart = start

           
Form1.DefInstance.RichTextBox1.SelectionLength =
Len(Form1.DefInstance.RichTextBox1.Text)

           
Form1.DefInstance.RichTextBox1.SelectionColor =
Form1.DefInstance.RichTextBox1.ForeColor.Green

        End If

        'color = "black"



        Form1.DefInstance.RichTextBox1.Focus()

    End Function



Il s&#233;lectionne bien la bonne ligne, mais il ne l'affiche jamais en
rouge ou vert.... En fait, il lui arrive de mettre une prochaine ligne
de texte en red mais elle redevient aussitot black ensuite...

BasicInstinct · Answer

Me.RichTextBox1.Text = "ceci est du text"



Me.RichTextBox1.SelectionStart = 5 
'debut du mot est



Me.RichTextBox1.SelectionLength = 3 
'longueur



Me.RichTextBox1.SelectionColor = Color.Red 
'color



Me.RichTextBox1.SelectionStart = 
Me.RichTextBox1.TextLength 
'curseur a la fin

 BasicInstinct

runo · Answer

OK

mais Color.Red 
'colorne fonctionne pas en vb.net !!

Je me demande bien si jai bien fait de my mettre a celui la...

PCPT · Answer

salut, VB6 ???? un bouton et un RTB (par défaut) Private Sub Form_Load() RichTextBox1.Text = "" End Sub ' ' Private Sub Command1_Click() With RichTextBox1 .SelBold = True .SelItalic = False .SelUnderline = False .SelFontSize = 10 .SelFontName = "MS Sans Serif" .SelColor = vbBlue .SelText = "Click -> " .SelFontSize = 8 .SelText = "(" & Time & ") : " .SelStart = Len (.Text) .SelBold = False .SelItalic = False .SelUnderline = True .SelFontSize = 12 .SelFontName = "Courier New" .SelColor = vbRed .SelText = "magique... ;)" & vbCrLf .SelStart = Len(.Text) End With End Sub Coloration syntaxique automatique [AFCK] ++ PCPT

PCPT · Answer

arf, d&#233;sol&#233;... (.NET)
bon courage

PCPT

BasicInstinct · Answer

le code que je t'ai fil&#233; a &#233;t&#233; fait sous du .Net (2003)

 BasicInstinct

runo · Answer

Ok BasicInstinct..

C ok maintenant... jai r&#233;ussi a faire ce que jvoulais

merqui..

Richtextbox color

8 réponses

Discussions similaires