请问如何将文本框内的一些特殊字符进行彩色突出显示

[yongtang]

请问各位高手：
我在用Windows Script Debugger时，发现当我输入html时，程序会自动将html四个字符变成咖啡色，输入<img src时，src就自动变成了红色。请问VB中如何实现这样的功能呢？就是遇到一些特定的字符串，它能够自动进行彩色的突出显示？

[bhhxd]

用RichTextBox控件

[danielinbiti]

同意楼上，只能用richtextbox

[yongtang]

可是我怎样让程序知道我输入了html四个字后，程序就将它转换成红色，而我输入hmtl，程序就不进行任何颜色的转换？

用timer控件不断对我输入的字符串进行监视吗？这样是不是会很浪费资源？

[胖河马]

比如，如果判断按下的是字母键，就检查当前位置至前一个空格组成的是不是关键字。
不过还得考虑""中的情况，挺麻烦的样子

[胖河马]

语法着色用richtextbox和正则表达试
不能用timer,你需要分析键盘输入

[BadCatw]

用 richtextbox 好慢的.. 不知那些分色显示的编辑器怎么做出来的..打开100多K的还是那么快.

[danielinbiti]

Dim t As String
Dim old_pos As Long
Private Sub RichTextBox1_KeyPress(KeyAscii As Integer)
RichTextBox1.Find (Chr((KeyAscii))), RichTextBox1.SelStart = Len(RichTextBox1.Text)
RichTextBox1.Span (Chr((KeyAscii)))
RichTextBox1.SelColor = vbBlack
t = t & Chr(KeyAscii)
If KeyAscii = 8 Then old_pos = Len(RichTextBox1.Text) - 1
If KeyAscii = 32 Then
If LCase(Trim(t)) = "html" Then
RichTextBox1.SelStart = 0
RichTextBox1.Find (Trim(t)), old_pos
RichTextBox1.Span (Trim(t))
RichTextBox1.SelColor = vbRed
End If
old_pos = Len(RichTextBox1.Text)
t = ""
End If
RichTextBox1.SelStart = Len(RichTextBox1.Text)
End Sub
这个是简单的例子,当然还有许多问题没处理.如果要判断,肯定得带个数据库,用来存关键字:(

[yongtang]

这个程序很有趣啊~

非常感谢诸位的参与了！尤其感谢danielinbiti(金)

结帖！

[yongtang]

to bdhh(Silent):我是个初学者，不太懂分析键盘输入的意思，望指点一下吧，分不够可以再加~

分析键盘是不是指，每当我有一个keypress事件发生时就去检测一下，可是我觉得好象不太可行啊……