怎样实现在Text中实现关键字为蓝色的功能

Question

就像VB代码编辑中一旦输入的是VB关键字，就会显示蓝色字，怎样实现这一功能

Answer 1

Text是不行，使用RichText中的SelColor等属性来处理好些

Answer 2

使用RichText中的SelColor等属性来处理好些

Answer 3

mulriline设置为true
scrollbars设置为rftboth
但是横竖滚动条都不好用

Answer 4

建立一个数组，保存全部关键字。Private Sub Text1_Change()
Dim x(10)
x(1) = "IF"
x(2) = "THEN"
x(3) = "END IF"
x(4) = "LOOP"
x(5) = "FOR"
For i = 1 To 5
If Text1.Text = x(i) Then Text1.ForeColor = vbBlue
Next
End Sub

Answer 5

为什么richtextbox
横竖滚动条都不好用