【发布时间】:2008-11-19 22:52:16
【问题描述】:
我有一个文本区域和一个在其上进行语法高亮的函数。现在它读取整个 RichTextBox。如何获得包含当前行的字符串变量?以下是我目前拥有的代码。
Private Sub HighLight()
Dim rm As System.Text.RegularExpressions.MatchCollection
Dim m As System.Text.RegularExpressions.Match
Dim x As Integer ''lets remember where the text courser was before we mess with it
For Each pass In FrmColors.lb1.Items
x = rtbMain.SelectionStart
rm = System.Text.RegularExpressions.Regex.Matches(LCase(rtbMain.Text), LCase(pass))
For Each m In rm
rtbMain.Select(m.Index, m.Length)
rtbMain.SelectionColor = Color.Blue
Next
rtbMain.Select(x, 0)
rtbMain.SelectionColor = Color.Black
Next
End Sub
【问题讨论】:
标签: .net vb.net richtextbox