RTF og farver....

Lav en RTF-box med navnet "rtf" og brug denne kode i Change-eventen. Koden er skrevet meget hurtigt, og den kan forbedres på flere måder, men ideen er god nok. Bl.a. er den lidt langsom, men jeg kan ikke se hvordan man skal gøre det meget hurtigere uden at lege med API, og det er der vist ingen grund til...

Private Sub rtf_Change()
    sels = rtf.SelStart
    sellen = rtf.SelLength
    selcol = rtf.SelColor
   
    rtf.SelStart = 0
    rtf.SelLength = Len(rtf.Text)
    rtf.SelColor = vbBlack
   
    Dim ResOrd(2)
   
    ResOrd(0) = "HTML"
    ResOrd(1) = "BODY"
    ResOrd(2) = "HEAD"
   
    start = 1
   
    For id = 0 To UBound(ResOrd)
startsearch:
        i = InStr(start, UCase$(rtf.Text), ResOrd(id))
        If i Then
            rtf.SelStart = i - 1
            rtf.SelLength = Len(ResOrd(id))
            rtf.SelColor = vbRed
           
            start = i + 1
            GoTo startsearch
        End If
    Next


    rtf.SelStart = sels
    rtf.SelLength = sellen
    rtf.SelColor = selcol

End Sub

Tak... Jeg fandt selv en løsning dog...