怎么让超级编辑框输入第一个字符变色

yq1431

比如输入：12345     就是1变成红色   剩下的2345还是原来的颜色
比如输入：02345     就是0变成红色   剩下的2345还是原来的颜色
反正就是输入的第一个数字 变色就可以  剩下的不变

cs潇潇

改变颜色.e (2.76 KB, 下载次数: 4)

2024-8-22 08:14 上传

点击文件名下载附件
不用模块！！

fire9

https://bbs.125.la/forum.php?mod ... =%E5%8F%98%E8%89%B2

补充内容 (2024-8-22 07:40):
https://bbs.125.la/forum.php?mod ... 6%E8%BE%91%E6%A1%86

yq1431

fire9 发表于 2024-8-22 07:39
https://bbs.125.la/forum.php?mod=viewthread&tid=14635985&highlight=%E5%8F%98%E8%89%B2

补充内容 (202 ...

第一个数字不是固定的   只是第一个数字变色  剩下的不变

云少i

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

超级编辑框改色 (文本_取某位置文本 (超级编辑框1.内容, 1, ), 超级编辑框1)  ' 修改里面1的颜色会红色

子程序名	返回值类型	公开	备 注
超级编辑框改色			函数自己任何调用   修改代码来自 论坛的大司命
参数名	类 型	参考	可空	数组	备 注
内容	文本型
超级编辑框	超级编辑框

变量名	类 型	静态	数组	备 注
字符	字符格式
n	整数型
i	整数型

n ＝ 文本_逐字分割 (内容)  ' 精易模块
i ＝ 超级编辑框.寻找 (, , , 内容)
判断循环首 (i ≠ -1)
字符.文本颜色 ＝ #红色
超级编辑框.起始选择位置 ＝ i
超级编辑框.被选择字符数 ＝ n
超级编辑框.置选择区字符格式 (字符)
超级编辑框.起始选择位置 ＝ 取文本长度 (超级编辑框.内容)
字符.文本颜色 ＝ #黑色
超级编辑框.置选择区字符格式 (字符)
i ＝ 超级编辑框.寻找 (i ＋ n, , , 内容)
判断循环尾 ()

i支持库列表	支持库注释
iext2	扩展界面支持库二

.版本 2<br /> .支持库 iext2<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> <br /> 超级编辑框改色 (文本_取某位置文本 (超级编辑框1.内容, 1, ), 超级编辑框1)  ' 修改里面1的颜色会红色<br /> <br /> <br /> <br /> .子程序 超级编辑框改色, , , 函数自己任何调用   修改代码来自 论坛的大司命<br /> .参数 内容, 文本型<br /> .参数 超级编辑框, 超级编辑框<br /> .局部变量 字符, 字符格式<br /> .局部变量 n, 整数型<br /> .局部变量 i, 整数型<br /> <br /> <br /> n ＝ 文本_逐字分割 (内容)  ' 精易模块<br /> i ＝ 超级编辑框.寻找 (, , , 内容)<br /> .判断循环首 (i ≠ -1)<br />     字符.文本颜色 ＝ #红色<br />     超级编辑框.起始选择位置 ＝ i<br />     超级编辑框.被选择字符数 ＝ n<br />     超级编辑框.置选择区字符格式 (字符)<br />     超级编辑框.起始选择位置 ＝ 取文本长度 (超级编辑框.内容)<br />     字符.文本颜色 ＝ #黑色<br />     超级编辑框.置选择区字符格式 (字符)<br />     i ＝ 超级编辑框.寻找 (i ＋ n, , , 内容)<br /> .判断循环尾 ()

补充内容 (2024-8-22 08:06):
调用了精易模块

aa651964178

取随机颜色11111111111111111111

yq1431

cs潇潇 发表于 2024-8-22 08:14
不用模块！！

厉害，字体大小=14  字体名称=“微软雅黑”，帮我弄一下