RichTextBox1中设置字体颜色的问题
如何把RichTextBox1中出现的"Declare","Private","If","Else","Dim","Integer"等字符设置成蓝色.
[解决办法]
Public Sub NewRichTextBoxForm()
Dim n As New RichTextBox
n.Text = "如何把RichTextBox1中出现的 Declare ,Private , If , Else , Dim , Integer 等字符设置成蓝色. "
Dim KeyWord As String() = New String() {"Declare", "Private", "If", "Else", "Dim", "Integer"}
Dim i As Integer
Dim done As Boolean = False
Dim s As String
For Each s In KeyWord
i = 1
done = False
Do While Not done
i = Strings.InStr(i, n.Text, s, CompareMethod.Text)
If i > 0 Then
n.SelectionStart = i - 1
n.SelectionLength = s.Length
n.SelectionColor = Color.Blue
i += 1
Else
done = True
Exit Do
End If
Loop
Next
Dim f As New Form
n.Dock = DockStyle.Fill
f.Controls.Add(n)
f.Show()
End Sub
