Keskustelu: Ohjelmointikysymykset: VB6: RichTextBoxin väri ei vaihdu

Niin kuten jo otsikosta kä ilmi, että richtextbox:in väri ei vaihdu... Siis vaikka laittaisi form loadiin tai juuri ennen

RichTextBox1.Text = RichTextBox1.Text + "tekstiä" & vbCrLf

tuon

RichTextBox1.SelColor = vbblue

niin väri ei silti vaihdu... tosin huomasin että jos laitan tuon koodin timeriin niin kyllä silloin väri vaihtuu...
jotain neuvoja kiitos.

ja toinen ongelma on sit siinä että jos kirjottaa

richtextbox1.text = richtextbox1.text + "tekstii"

niin väri ei kiusallakaan vaihdu

Siirrä koodi Form_Resize-tapahtumaan tai lisää Form_load tapahtumaan Me.Show ennen värin asetuskoodia.

Nollaat täydellisesti RichTextBoxin kun asetat tekstiä siihen suoraan tuolla tavoin. Näin vältät nollauksen:

With RichTextBox1
    .SelStart = Len(.Text)
    .SelColor = vbBlue
    .SelText = "tekstiä" & vbNewLine
    .SelStart = Len(.Text)
    .SelColor = vbRed
    .SelText = "lisää tekstiä" & vbNewLine
    .SelStart = Len(.Text)
End With

Kiitti 8)