RichTextBox-Färbung (Syntax-Highlighting)

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von Devilx1.

    RichTextBox-Färbung (Syntax-Highlighting)

    Hallo,
    ich habe eine RichTextBox. In diese soll der User Befehle eingeben. Diese sollen dann gehighlightet werden (BLAU, Großgeschrieben). Das Problem: Wenn der User den Befehl eingibt, kann dieser klein/gemischt geschrieben sein. Trotzdem soll der Befehl erkannt werden und blau gefärbt und großgeschreiben werden.

    Hat jemand ne IDEE?

    Peter

    PS: Wie realisiere ich die Blaufärbung und Großschreibung?

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „mikeb69“ ()

    OK.
    Ich hab mich bemüht und folgenden Code gefunden:

    VB.NET-Quellcode

    1. Public Class SyntaxRTB
    2. Inherits System.Windows.Forms.RichTextBox
    4. Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
    5. (ByVal hWnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, _
    6. ByVal lParam As Integer) As Integer
    7. Private Declare Function LockWindowUpdate Lib "user32" _
    8. (ByVal hWnd As Integer) As Integer
    10. Private _SyntaxHighlight_CaseSensitive As Boolean = False
    11. Friend Words As New DataTable
    13. 'Contains Windows Messages for the SendMessage API call
    14. Private Enum EditMessages
    15. LineIndex = 187
    16. LineFromChar = 201
    17. GetFirstVisibleLine = 206
    18. CharFromPos = 215
    19. PosFromChar = 1062
    20. End Enum
    22. Protected Overrides Sub OnTextChanged(ByVal e As System.EventArgs)
    23. MyBase.OnTextChanged(e)
    24. ColorVisibleLines()
    25. End Sub
    27. Public Sub New()
    28. Me.AcceptsTab = True
    29. AddSQLSyntax()
    30. End Sub
    32. Function AddSQLSyntax()
    33. ClearSyntaxWords()
    34. AddSyntaxWord("\b(select|text|ntext|date|datetime|order by|" & _
    35. "group by|smalldatetime|cursor|on|as|for|filename|" & _
    36. "database|drop|function|delete|insert|update|int|" & _
    37. "varchar|nvarchar|bit|binary|table|inner|where|from|" & _
    38. "out|procedure|view|trigger|set)\b", Color.Blue)
    39. AddSyntaxWord("\b@@identity\b", Color.Pink)
    40. AddSyntaxWord("\b(in|join|outer|and|or)\b", Color.Gray)
    41. AddSyntaxWord("\bsp_refreshview\b", Color.Red)
    42. Return True
    43. End Function
    45. Public Function ClearSyntaxWords()
    46. Words = New DataTable
    47. ''Load all the keywords and the colors to make them
    48. Words.Columns.Add("Word")
    49. Words.PrimaryKey = New DataColumn() {Words.Columns(0)}
    50. Words.Columns.Add("Color")
    51. Return True
    52. End Function
    54. Public Function AddSyntaxWord(ByVal strWord As String, ByVal clrColor As Color)
    55. Dim MyRow As DataRow
    56. MyRow = Words.NewRow()
    57. MyRow("Word") = strWord
    58. MyRow("Color") = clrColor.Name
    59. Words.Rows.Add(MyRow)
    60. Return True
    61. End Function
    63. Public Sub ColorRtb()
    64. Dim FirstVisibleChar As Integer
    65. Dim i As Integer = 0
    66. While i < Me.Lines.Length
    67. FirstVisibleChar = GetCharFromLineIndex(i)
    68. ColorLineNumber(i, FirstVisibleChar)
    69. i += 1
    70. End While
    71. End Sub
    73. Public Sub ColorVisibleLines()
    74. Dim FirstLine As Integer = FirstVisibleLine()
    75. Dim LastLine As Integer = LastVisibleLine()
    76. Dim FirstVisibleChar As Integer
    77. If (FirstLine = 0) And (LastLine = 0) Then
    78. 'If there is no text it will error, so exit the sub
    79. Exit Sub
    80. Else
    81. While FirstLine < LastLine
    82. FirstVisibleChar = GetCharFromLineIndex(FirstLine)
    83. ColorLineNumber(FirstLine, FirstVisibleChar)
    84. FirstLine += 1
    85. End While
    86. End If
    87. End Sub
    89. Public Sub ColorLineNumber(ByVal LineIndex As Integer, ByVal lStart As Integer)
    90. Dim i As Integer = 0
    91. Dim SelectionAt As Integer = Me.SelectionStart
    92. Dim MyRow As DataRow
    93. Dim MyI As Integer
    95. ' Lock the update
    96. LockWindowUpdate(Me.Handle.ToInt32)
    98. MyI = lStart
    100. ''Turn the whole link black before applying RegEx Syntax matching.
    101. Me.SelectionStart = MyI
    102. Me.SelectionLength = Lines(LineIndex).Length
    103. Me.SelectionColor = Color.Black
    105. ''Check for matches in a particular line number
    106. Dim rm As System.Text.RegularExpressions.MatchCollection
    107. Dim m As System.Text.RegularExpressions.Match
    109. For Each MyRow In Words.Rows
    110. '"( |^)1.*2( |$)"
    111. rm = System.Text.RegularExpressions.Regex.Matches(Me.Text, MyRow("Word"))
    112. For Each m In rm
    113. Me.SelectionStart = m.Index
    114. Me.SelectionLength = m.Length
    115. Me.SelectionColor = Color.FromName(MyRow("color"))
    116. Next
    117. Next
    119. ' Restore the selectionstart
    120. Me.SelectionStart = SelectionAt
    121. Me.SelectionLength = 0
    122. Me.SelectionColor = Color.Black
    124. ' Unlock the update
    125. LockWindowUpdate(0)
    126. End Sub
    128. Public Function GetCharFromLineIndex(ByVal LineIndex As Integer) As Integer
    129. Return SendMessage(Me.Handle, EditMessages.LineIndex, LineIndex, 0)
    130. End Function
    132. Public Function FirstVisibleLine() As Integer
    133. Return SendMessage(Me.Handle, EditMessages.GetFirstVisibleLine, 0, 0)
    134. End Function
    136. Public Function LastVisibleLine() As Integer
    137. Dim LastLine As Integer = FirstVisibleLine() + (Me.Height / Me.Font.Height)
    139. If LastLine > Me.Lines.Length Or LastLine = 0 Then
    140. LastLine = Me.Lines.Length
    141. End If
    143. Return LastLine
    144. End Function
    146. Public Property CaseSensitive() As Boolean
    147. Get
    148. Return _SyntaxHighlight_CaseSensitive
    149. End Get
    150. Set(ByVal Value As Boolean)
    151. _SyntaxHighlight_CaseSensitive = Value
    152. End Set
    153. End Property
    155. End Class

    Aus pietschsoft.com/download/blog/1311/SyntaxRTB.vb.txt

    Doch wie rufe ich die Funktion auf?

    Peter

    Frage hat sich geklärt:

    VB.NET-Quellcode

    1. Dim rtb_Main As New SyntaxRTB
    2. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    3. With rtb_Main
    4. .Dock = DockStyle.Fill
    5. .CaseSensitive = False
    6. End With
    7. Me.Controls.Add(rtb_Main)
    8. End Sub


    Keine Doppelposts.
    Kein Hochpuschen eigener Beiträge.
    Gruss
    mikeb69

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „mikeb69“ ()

Facebook
Telefonspende