易语言编辑框打字效果源码
.版本 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)
.子程序 __启动窗口_创建完毕
易语言编辑框显示打字效果
易语言打字源码
易语言打字特效