易语言编辑框打字效果源码

易语言编辑框打字效果源码

@易语言代码编写例子

.版本 2
.支持库 EThread
.支持库 spec

.程序集 窗口程序集1
.程序集变量 编辑框_, 编辑框
.程序集变量 打字内容1, 文本型, , , bjk
.程序集变量 时间间隔1, 整数型, , , bjk
.程序集变量 打字内容2, 文本型, , , bt
.程序集变量 时间间隔2, 整数型, , , bt

.子程序 编辑框打字效果
.参数 局部_编辑框_, 编辑框, , 显示的编辑框
.参数 局部_内容, 文本型, , 文字内容
.参数 局部_时间间隔, 整数型, , 毫秒

编辑框_ ＝ 局部_编辑框_
打字内容1 ＝ 局部_内容
时间间隔1 ＝ 局部_时间间隔
启动线程 (&线程打字, , )
' 本源码来自三叶资源网(www.sanye.cx)

.子程序 线程打字
.局部变量 增长, 整数型

增长 ＝ 1
打字内容1 ＝ 到全角 (打字内容1)
' 本源码来自三叶资源网(www.sanye.cx)
.循环判断首 ()
    编辑框_.加入文本 (取文本中间 (打字内容1, 增长, 2))
    编辑框_.刷新显示 ()
    增长 ＝ 增长 ＋ 2
    延迟 (时间间隔1)
.循环判断尾 (增长 ≤ 取文本长度 (打字内容1))

.子程序 标题显示效果
.参数 局部_内容, 文本型, , 文字内容
.参数 局部_时间间隔, 整数型, , 毫秒

打字内容2 ＝ 局部_内容
时间间隔2 ＝ 局部_时间间隔
启动线程 (&标题效果, , )

.子程序 标题效果
.局部变量 增长, 整数型

增长 ＝ 1
打字内容2 ＝ 到全角 (打字内容2)
.循环判断首 ()
    标题 ＝ 标题 ＋ 取文本中间 (打字内容2, 增长, 2)
    增长 ＝ 增长 ＋ 2
    延迟 (时间间隔2)
    .判断开始 (增长 ≥ 取文本长度 (打字内容2))
        增长 ＝ 1
        标题 ＝ “”
    .默认
        ' 本源码来自三叶资源网(www.sanye.cx)
    .判断结束

.循环判断尾 (增长 ≤ 取文本长度 (打字内容2))


.子程序 _按钮1_被单击

编辑框打字效果 (编辑框1, 编辑框2.内容, 50)
' 本源码来自三叶资源网(www.sanye.cx)

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