子程序·随机文本颜色
置随机数种子()
判断循环首(随机数>=0)
随机数 = 取随机数(1,3)'有几个颜色就写几个数的范围
如果真(随机数=1)
标签.文本颜色=#红色
如果真(随机数=2)
标签.文本颜色=#蓝色
如果真(随机数=3)
标签.文本颜色=#绿色
判断循环尾()
注意:最好用一个独立的线程来运行这个功能,占用主线程会导致程序卡顿。................
方法2
使用超级编辑框可以实现编辑框多彩文文字,下面是使用超级编辑框的一个例程:需要先在窗口建立 超级编辑框、编辑框、颜色选择器、按钮 .版本 2 .支持库 iext2 .程序集 窗口程序集1 .程序集变量 a, 字符格式 .子程序 _按钮1_被单击 ' 超级编辑框1.获取焦点 () 超级编辑框1.起始选择位置 = 取文本长度 (超级编辑框1.内容) a.字体大小 = 14 a.文本颜色 = 颜色选择器1.颜色 超级编辑框1.置选择区字符格式 (a) 超级编辑框1.被选择文本 = 编辑框1.内容
|