背景透明的屏幕自动打字

易语言 2020-08-04 14:25:27

背景透明的屏幕自动打字

.如果 (光标位置 ≥ 文本长度)
光标位置 = 0
文本长度 = 取文本长度 (文本)
时钟.时钟周期 = 3000 ' 判断文本全部输出后等待2秒重复
.否则
时钟.时钟周期 = 100 ' 每个字符输入速度
临时变量 = 取文本中间 (文本, 光标位置 + 1, 1) ' 单个字符
.如果 (取代码 (临时变量, ) < -1 或 取代码 (临时变量, ) > 127)
光标位置 = 光标位置 + 2 ' 判断为全角汉字时增加2个字符
.否则
光标位置 = 光标位置 + 1 ' 半角字符增加一个字符
.如果结束
标签.标题 = 取文本左边 (文本, 光标位置) + “_” ' 末尾加上光标模拟打字效果

_启动窗口.高度 = 取屏幕高度 () ' 以上代码设置启动窗口大小等于屏幕大小
文本 = #常量1 ' 设置输出的文本内容
标签.宽度 = 取文本长度 (文本) × 10 ' 设置标签的宽度
标签.高度 = _启动窗口.高度 ' 设置标签高度
标签.是否自动折行 = 真 ' 设置标签自动换行