[VB.NET] SelectionColor del controllo RichTextBox

[kataklisma]

Ho scritto una routine che mi permette tramite due parametri di scrivere in una richtextbox un determinato testo con un determinato colore...

Public Sub Writelog(ByVal text As String, ByVal Color As Color)


Dim Start As Int64

frmLOG.rtbLOG.Text = frmLOG.rtbLOG.Text & vbCrLf & text
Start = InStr(frmLOG.rtbLOG.Text, text) - 1
frmLOG.rtbLOG.Select(Start, text.Length)
frmLOG.rtbLOG.SelectionColor = Color

End Sub

La procuedura funziona o meglio...riesce a colorare il testo...ma mi colora solamente l'ultima linea inserita nella RichTB mi spiego meglio...

WriteLog("Prova",color.red)

avro come risultato il testo "prova scritto in rosso"....ora guardate...

WriteLog("Prova1",color.red)
WriteLog("Prova2",color.red)

avro "Prova1" in nero e "prova2" in rosso!!!!

Buona serata!

[kataklisma]

Up...

[alka]

Linguaggio? Versione? Regolamento?

[kataklisma]

Originariamente inviato da alka
Linguaggio? Versione? Regolamento?

giusto vb.net 2005 modifico il titolo...credevo che...visto la routine e la dichiarazione int64 fosse ovvio che parlavo di vb.net....

[kataklisma]

Ho risolto modificando la routine...

Public Sub Writelog(ByVal text As String, ByVal Color As Color)

Dim start As Int64 = frmLOG.rtbLOG.Text.Length + 1

frmLOG.rtbLOG.AppendText(vbCrLf & text)
frmLOG.rtbLOG.Select(start, text.Length)
frmLOG.rtbLOG.SelectionColor = Color

End Sub

[alka]

Originariamente inviato da kataklisma
giusto vb.net 2005 modifico il titolo...credevo che...visto la routine e la dichiarazione int64 fosse ovvio che parlavo di vb.net....

Il Regolamento non dice che il linguaggio va indicato quando è ovvio (anche perché in questo caso sarei costretto a "fare i raggi" alla discussione per capire qual è il linguaggio trattato).

Ciao!

[Bighi]

Ho fatto anch'io qualcosa di simile, un pelo piu' complesso perche' ho utilizzato dei tag tipo html nelle stringhe.

cmq io partendo dal tuo esempio l'ho fatto cosi':

Public Sub Writelog(ByVal text As String, ByVal Color As Color)
   frmLOG.rtbLOG.SelectionColor = Color
   frmLOG.rtbLOG.AppendText(vbCrLf & text)
End Sub

PS. Io avrei anche messo il vbCrLF dopo il text, ma non conosco il resto del programma.

[kataklisma]

Originariamente inviato da Bighi
Ho fatto anch'io qualcosa di simile, un pelo piu' complesso perche' ho utilizzato dei tag tipo html nelle stringhe.

cmq io partendo dal tuo esempio l'ho fatto cosi':

Public Sub Writelog(ByVal text As String, ByVal Color As Color)
   frmLOG.rtbLOG.SelectionColor = Color
   frmLOG.rtbLOG.AppendText(vbCrLf & text)
End Sub

PS. Io avrei anche messo il vbCrLF dopo il text, ma non conosco il resto del programma.

ma cosi nn funzionerebbe....l'ultima riga deve essere selezionata automaticamente...nn sei tu a selezionare il testo per cui cambiare colore....

[Bighi]

Hai provato? Io nel mio programma faccio cosi'

In pratica cosi' selezioni il colore con cui scrivere e poi scrivi con quel colore.

[kataklisma]

Originariamente inviato da Bighi
Hai provato? Io nel mio programma faccio cosi'

In pratica cosi' selezioni il colore con cui scrivere e poi scrivi con quel colore.

No nn l'ho provato!lo provero ora devo scappare!Grazie cmq!