| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 312 人关注过本帖
标题:Len(Text)有啥办法每行显示不一样的字体颜色?
只看楼主 加入收藏
红领巾少年
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2020-7-10
结帖率:100%
收藏
 问题点数:0 回复次数:8 
Len(Text)有啥办法每行显示不一样的字体颜色?
Text6.Text = ("【" & Text1.Text & "】,【" & Text2.Text & "】,【" & Text3.Text & "】,【" & Text4.Text & "】." & Hour(Time) & ":" & Minute(Time) & ":" & Second(Time))
Text5.Text = Text5.Text + Text6.Text & vbCrLf
Text5.SelStart = Len(Text5)

command1_Click
text6.ForeColor = &HFF&
command2_Click
text6.ForeColor = &H0&

这么写后text5里面的字还是原色没变化。
如果改成
command1_Click
text5.ForeColor = &HFF&
command2_Click
text5.ForeColor = &H0&
那text5里面已有的所有内容字体颜色会统一变成一个颜色。
搜索更多相关主题的帖子: 每行 字体 Time 颜色 Text 
2020-07-16 17:58
cwa9958
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:6
帖 子:63
专家分:326
注 册:2006-6-25
收藏
得分:0 
用RichTextBox1控件吧
标准的textbox控件好像不能改变局部字符的颜色或别的属性。
2020-07-17 08:08
红领巾少年
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2020-7-10
收藏
得分:0 
回复 2楼 cwa9958
RichTextBox1控件没找到有字体颜色的属性呢
2020-07-17 13:59
cwa9958
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:6
帖 子:63
专家分:326
注 册:2006-6-25
收藏
得分:0 
selcolor

2020-07-17 16:41
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:275
帖 子:4580
专家分:28419
注 册:2008-10-15
收藏
得分:0 
看代码,很像是显示程序内部日志的代码

这种代码,我是使用 lable 控件数组来做的。

初始化:按指定显示区域高度,计算可以排列多少个 控件,然后载入,然后按奇偶指定好字体颜色。如果显示区域高度固定,可以在设计阶段手动指定。
运行:
循环,把下一个标签内容给上一个,
新的内容给最后一个标签

因lable是轻量级的控件,所以它的刷新速度可以做到很快的。比textbox 要快的多。



授人于鱼,不如授人于渔
早已停用QQ了
2020-07-17 17:50
老顽童989
Rank: 2
来 自:湖北武汉
等 级:论坛游民
威 望:1
帖 子:51
专家分:20
注 册:2011-5-19
收藏
得分:0 
用 PictureBox 控件可以实现文字的多种颜色

我喜欢编程
2020-07-18 21:51
红领巾少年
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2020-7-10
收藏
得分:0 
回复 5楼 风吹过b
是的,一个简单的日志功能。谢谢思路
2020-07-20 13:51
红领巾少年
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2020-7-10
收藏
得分:0 
回复 6楼 老顽童989
非常感谢
2020-07-20 13:52
红领巾少年
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2020-7-10
收藏
得分:0 
回复 4楼 cwa9958
非常感谢。
2020-07-20 13:52
快速回复:Len(Text)有啥办法每行显示不一样的字体颜色?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.161301 second(s), 8 queries.
Copyright©2004-2020, BCCN.NET, All Rights Reserved