Syntax farvning i richtextbox

Prøver med lidt flere point :-)

Og jeg HAR prøvet med CodeMax (http://www.eksperten.dk/spm/233860), men kan ikke få det til at virke (og jeg vil egentlig også hellere lave det selv).

vil du farve tesktsten eller selve richtextboxen

Farve teksten ligesom VBA-editoren.

her er noget jeg håber du an bruge det

Dim search&
Public Function ColorWord(RTF As RichTextBox, Swords As String, Scolor As ColorConstants, _
SFontsize As Integer, Sbold As Boolean, Sitalic As Boolean, Sbullet As Boolean)
search = 1
Do Until search = 0
search = InStr(search, RTF.Text, Swords, vbTextCompare)
If search > 0 Then
With RTF
          .SelStart = search - 1
          .SelLength = Len(Swords)
          .SelColor = Scolor
          .SelFontSize = SFontsize
          .SelBold = Sbold
          .SelItalic = Sitalic
          .SelBullet = Sbullet
End With
search = search + Len(Swords)
End If
Loop
With RTF
          .SelStart = Len(RTF.Text)
          .SelColor = vbBlack
          .SelFontSize = 8
          .SelBold = False
          .SelItalic = False
          .SelBullet = False
End With
End Function

'********CALL THE FUNCTION FROM YOUR FORM LIKE THIS********

ColorWord rtb, "blue", vbBlue, 10, True, False, False

***********************************************************

Jeg kigger på det og vender tilbage :-)

ok her er en anden måde:

Private Sub ColorTags(rch As RichTextBox)
Dim txt As String
Dim tag_open As Integer
Dim tag_close As Integer

    txt = rch.Text
    tag_close = 1
    Do
        ' See where the next tag starts.
        tag_open = InStr(tag_close, txt, "<")
        If tag_open = 0 Then Exit Do
       
        ' See where the tag ends.
        tag_close = InStr(tag_open, txt, ">")
        If tag_open = 0 Then tag_close = Len(txt)
       
        ' Color the tag.
        rch.SelStart = tag_open - 1
        rch.SelLength = tag_close - tag_open + 1
        rch.SelColor = vbRed
    Loop
End Sub

>>the_master
Den første er da noget i den rigtige retning, meeen der er stadig en del problemer, f.eks. tager den også og farver DELE af et ord hvis det matcher et ord i ref.-filen.

Og det skal jo også være sådan at ord omsluttet af "-tegn ikke farves ligesom at kommentarer skal behandles særskilt (farves grønne).

Er der nogen der kan hjælpe med de problemer?

ja ja ja, så har du jo noget at lave!
jeg skal nok kigger på det

Option Explicit

      Private Sub Command1_Click()
        HighlightWords RichTextBox1, "text", vbRed
      End Sub

      Private Function HighlightWords(rtb As RichTextBox, _
                                  sFindString As String, _
                                  lColor As Long) _
                                  As Integer

        Dim lFoundPos As Long          'Position of first character
                                        'of match
        Dim lFindLength As Long        'Length of string to find
        Dim lOriginalSelStart As Long
        Dim lOriginalSelLength As Long
        Dim iMatchCount As Integer      'Number of matches

        'Save the insertion points current location and length
        lOriginalSelStart = rtb.SelStart
        lOriginalSelLength = rtb.SelLength

        'Cache the length of the string to find
        lFindLength = Len(sFindString)

        'Attempt to find the first match
        lFoundPos = rtb.Find(sFindString, 0, , rtfNoHighlight)
        While lFoundPos > 0
          iMatchCount = iMatchCount + 1

          rtb.SelStart = lFoundPos
          'The SelLength property is set to 0 as
          'soon as you change SelStart
          rtb.SelLength = lFindLength
          rtb.SelColor = lColor

          'Attempt to find the next match
          lFoundPos = rtb.Find(sFindString, _
            lFoundPos + lFindLength, , rtfNoHighlight)
        Wend

        'Restore the insertion point to its original
        'location and length
        rtb.SelStart = lOriginalSelStart
        rtb.SelLength = lOriginalSelLength

        'Return the number of matches
        HighlightWords = iMatchCount

      End Function

Den sidste medtager også dele af ord :-(

Altså hvis jeg skriver "send" markerer den "end" fordi "end" er i min VB-keyword-fil.

hvad med evt at checke om det ord du matcher er samme længde tegn som ordet i din reference fil?

Lukker :-(