易语言实现的编辑框滚动显示字符 - 走马灯特效 - 全面支持中英文全角半角混合显示滚动

QAQ

附件我就不上了，一个编辑框和一个按钮就OK了。

1. 
   
2. .版本 2
   
3. .支持库 spec
   
4. 
   
5. .程序集 窗口程序集_启动窗口
   
6. 
   
7. .子程序 __启动窗口_创建完毕
   
8. 
   
9. 编辑框1.内容 ＝ “测试Abc123测试”
   
10. 
    
11. .子程序 _按钮1_被单击
    
12. .局部变量 字节集, 字节集
    
13. 
    
14. .判断循环首 (编辑框1.内容 ≠ “”)  ' 编辑框内容不为空则一直循环下去
    
15.     字节集 ＝ 到字节集 (编辑框1.内容)
    
16.     .如果 (字节集 [1] ≥ 128)  ' 读到的第一个字节集值大于等于128则为汉字或全角符号，否则为半角符号。
    
17.         编辑框1.内容 ＝ 取文本右边 (编辑框1.内容, 取文本长度 (编辑框1.内容) － 2)  ' 全角每次去除两个字节
    
18.     .否则
    
19.         编辑框1.内容 ＝ 取文本右边 (编辑框1.内容, 取文本长度 (编辑框1.内容) － 1)  ' 半角每次去除一个字节
    
20.     .如果结束
    
21.     延迟 (100)
    
22. .判断循环尾 ()
    
23. 
    
24. 
    

复制代码

小清新

还不错，666

主人

要是支持unicode字符就好了，不过e语言并不支持显示。