易语言实现编辑框内自动打字效果

.版本 2

.程序集 窗口程序集1

.程序集变量 文本组, 文本型, , "0"

.程序集变量 i, 整数型

.程序集变量 当前文本, 文本型

.程序集变量 类型, 文本型

.程序集变量 字数, 整数型

.子程序 __启动窗口_创建完毕

文本组 ＝ { “易语言实现编辑框内自动打字效果”, “可以利用时钟来简单实现”, “易语言最适合初学编程者学习” }

类型 ＝ “打字”

字数 ＝ 0

i ＝ 1

时钟1.时钟周期 ＝ 50

.子程序 _时钟1_周期事件

当前文本 ＝ 文本组 [i]

.判断开始 (字数 ≤ 取文本长度 (当前文本))

.判断开始 (类型 ＝ “打字”)

编辑框1.内容 ＝ 取文本左边 (当前文本, 字数)

.默认

编辑框1.内容 ＝ 取文本左边 (当前文本, 取文本长度 (当前文本) － 字数)

.判断结束

字数 ＝ 字数 ＋ 1

.默认

字数 ＝ 0

.判断开始 (类型 ＝ “打字”)

类型 ＝ “删除”

.默认

类型 ＝ “打字”

.判断开始 (i ＜ 取数组成员数 (文本组))

i ＝ i ＋ 1

.默认

i ＝ 1

.判断结束

.判断结束

.判断结束