社区
VB基础类
帖子详情
如何打字程序一样,在文本框中输入字,对是一种颜色,错是另一种颜色!
loverain520
2005-03-22 05:03:57
本人正在编写一个程序,不知这一种方法如何写啊!
“如何打字程序一样,在文本框中输入字,对是一种颜色,错是另一种颜色!”
请高手指点。
...全文
96
3
打赏
收藏
如何打字程序一样,在文本框中输入字,对是一种颜色,错是另一种颜色!
本人正在编写一个程序,不知这一种方法如何写啊! “如何打字程序一样,在文本框中输入字,对是一种颜色,错是另一种颜色!” 请高手指点。
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
3 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
lyj0558
2005-03-22
打赏
举报
回复
我给你写了一段,很简单的一段,只适合一个字一个字的输入,并且只可以在接尾输入,真正达到像打字的那样,还得靠你自己了:
Private Sub RichTextBox1_Change()
If Right(RichTextBox1.Text, 1) = "对" Then
RichTextBox1.SelStart = Len(RichTextBox1.Text) - 1
RichTextBox1.SelLength = 1
RichTextBox1.SelColor = vbGreen
RichTextBox1.SelStart = Len(RichTextBox1.Text)
RichTextBox1.SelLength = 0
ElseIf Right(RichTextBox1.Text, 1) = "错" Then
RichTextBox1.SelStart = Len(RichTextBox1.Text) - 1
RichTextBox1.SelLength = 1
RichTextBox1.SelColor = vbRed
RichTextBox1.SelStart = Len(RichTextBox1.Text)
RichTextBox1.SelLength = 0
Else
RichTextBox1.SelStart = Len(RichTextBox1.Text) - 1
RichTextBox1.SelLength = 1
RichTextBox1.SelColor = vbBlack
RichTextBox1.SelStart = Len(RichTextBox1.Text)
RichTextBox1.SelLength = 0
End If
End Sub
Gutta
2005-03-22
打赏
举报
回复
思路可以这样:
首先建立一份参照的字符串,譬如:
I am a boy.
然后在RichTextbox中输入的时候,就开始逐个进行判断,如果出错,则改变颜色
利用SelStart和SelLength还有SelColor函数。
具体用法查MSDN和网上的资料文章。
pcwak
2005-03-22
打赏
举报
回复
请看RichTextBox的用法
C#
打
字
游戏源码
打
字
游戏可能采用了多线程技术,比如一个线程负责显示文
字
,另一个线程处理用户
输入
和计分。多线程能确保游戏的流畅运行,避免因UI更新阻塞而影响性能。了解`Thread`类和线程同步机制(如`Monitor`、`Mutex`或`...
GExperts 1.32 For Delphi 7
利用这个功能,一方面可以纠正自己经常容易打
错
的
字
,另一方面,还可以将它作为
一种
扩展宏的作用。 15. Project Option Set:项目设置。如果你在进行不同项目的开发的时候,需要进行一些不同的设置,比如编译器
中
...
会计理论考试题
C、用电报码输人法输人 D、在“画笔”
中
,画出该
字
,再粘贴到文章
中
28.Windows98
中
的文件系统结构是___C__形状。 A、网状 B、层次 C、树形 D、链状 29.显示卡速度对Windows98的系统性能影响的因素有___A____。 A、...
HTML语法html.txt
定义表格
中
一组列的样式,便于对多个列应用相同的样式。 ##### 22. `comment` 用于添加注释,这些注释不会显示在页面上。 ##### 23. `dd` 定义列表项的描述。 ##### 24. `del` 表示已被删除的文本,通常用于...
html标签列表顺序
- **`<iframe>`**: 定义内嵌框架,可以在当前页面
中
嵌入另一个HTML文档。 #### 五、图像标签 - **`<img>`**: 定义图像,用于在网页
中
显示图像。 - **`<map>`**: 定义图像映射,与`<area>`一起使用来定义可点击的...
VB基础类
7,785
社区成员
197,585
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章