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

yongtang 平安银行 2003-05-10 09:39:21
请问各位高手:
我在用Windows Script Debugger时,发现当我输入html时,程序会自动将html四个字符变成咖啡色,输入<img src时,src就自动变成了红色。请问VB中如何实现这样的功能呢?就是遇到一些特定的字符串,它能够自动进行彩色的突出显示?
...全文
67 点赞 收藏 9
写回复
9 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
yongtang 2003-05-11
to bdhh(Silent):我是个初学者,不太懂分析键盘输入的意思,望指点一下吧,分不够可以再加~

分析键盘是不是指,每当我有一个keypress事件发生时就去检测一下,可是我觉得好象不太可行啊……
回复
yongtang 2003-05-11
这个程序很有趣啊~

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

结帖!
回复
danielinbiti 2003-05-11
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
这个是简单的例子,当然还有许多问题没处理.如果要判断,肯定得带个数据库,用来存关键字:(
回复
BadCatw 2003-05-11
用 richtextbox 好慢的.. 不知那些分色显示的编辑器怎么做出来的..打开100多K的还是那么快.
回复
胖河马 2003-05-11
语法着色用richtextbox和正则表达试
不能用timer,你需要分析键盘输入
回复
胖河马 2003-05-11
比如,如果判断按下的是字母键,就检查当前位置至前一个空格组成的是不是关键字。
不过还得考虑""中的情况,挺麻烦的样子
回复
yongtang 2003-05-10
可是我怎样让程序知道我输入了html四个字后,程序就将它转换成红色,而我输入hmtl,程序就不进行任何颜色的转换?

用timer控件不断对我输入的字符串进行监视吗?这样是不是会很浪费资源?
回复
danielinbiti 2003-05-10
同意楼上,只能用richtextbox
回复
bhhxd 2003-05-10
用RichTextBox控件
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7489

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2003-05-10 09:39
社区公告
暂无公告