易语言模仿打字效果(文字一个一个输入到编辑框)
.版本 2
.程序集 窗口程序集1
.子程序 __启动窗口_首次激活
_按钮1_被单击 ()
.子程序 _按钮1_被单击
按钮1.禁止 = 真
模拟打字效果 (“易语言模拟打字效果,支持中英文。” + #换行符 + “By:(彬)泪闯天涯”)
按钮1.禁止 = 假
.子程序 模拟打字效果
.参数 文字内容, 文本型
.局部变量 文本数组, 文本型, , "0"
.局部变量 i, 整数型
构建文本数组 (文字内容, 文本数组)
编辑框1.内容 = “”
处理事件 ()
.计次循环首 (取数组成员数 (文本数组), i)
编辑框1.加入文本 (文本数组 [i])
处理事件 ()
延时 (50)
.计次循环尾 ()