.版本 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) .子程序 __启动窗口_创建完毕