Farver i Rich Textbox, eller almindelig textbox

Ja, Rich Text Box kontrollen. Ellers kan du selv generere et DC og gøre som det passer dig med font og des lige.

Ja men det er mere det >Hvordan< ???

Du kan ved hjælp af objektets mouse-move-event skrive noget kode, der ændrer skriftfarven, samt de mest banale skrifts egenskaber.

Husk at ændringer skal ophæves i objektets container.

Denne kode gør det med keywords fra VB:

Dim KeyWords() As String
   

Private Sub Form_Load()
    Keyw = "For|Each|Next|While|Do|Loop|If|Iif|Else|End|In|Then|GoTo"
    KeyWords = Split(Keyw, "|")
End Sub

Private Sub Form_Resize()
    If Me.WindowState <> 1 Then
        rtf.Left = 0
        rtf.Height = Me.Height - 680
        rtf.Width = Me.Width - 110
        rtf.Top = 0
    End If
End Sub

Private Sub rtf_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Or KeyAscii = 38 Or KeyAscii = 40 Then
       
        Dim s() As String
        s = Split(rtf.Text, vbCrLf)

        If rtf.SelLength > 0 Then Exit Sub
       
        For ix = LBound(KeyWords) To UBound(KeyWords)
            marc = rtf.SelStart
            i = 1
            Do While InStr(i, rtf.Text, KeyWords(ix)) <> 0 Or InStr(i, rtf.Text, LCase$(KeyWords(ix)))
                If InStr(i, rtf.Text, LCase$(KeyWords(ix))) > 0 Then
                    rtf.SelStart = InStr(i, rtf.Text, LCase$(KeyWords(ix))) - 1
                    rtf.SelLength = Len(KeyWords(ix))
                    rtf.SelText = KeyWords(ix)
                End If
                rtf.SelStart = InStr(i, rtf.Text, KeyWords(ix)) - 1
                rtf.SelLength = Len(KeyWords(ix))
                rtf.SelColor = vbBlue
                i = InStr(i, rtf.Text, KeyWords(ix)) + 1
            Loop
            rtf.SelStart = marc
        Next ix
    End If
End Sub



Herudfra kan du lege med resten som eksempelvis farver på den ene og den anden slags.