怎么像这样 “文字一个一个的显示出来”

美丽青春

千年

27世纪.zip (3.72 KB, 下载次数: 14)

2012-3-23 01:16 上传

点击文件名下载附件

源码来了，不给最佳对不住人啊。

找你妹

延时{:3_228:}

美丽青春

娶媳妇 发表于 2012-3-22 21:34
延时

这个怎么延迟啊？

雨落无声

{:3_232:}

取文本左边()

桃桃

把文字给分割为单个的，然后时钟周期或者延时来循环加入到编辑框里面，就出现这个效果了。

11_eleven

延时（）.参数设置你要间隔的时间就可以了

莫离

这个应该是事先写好的一个txt，然后单击按钮后就读文本的内容。

Mr.Yang

按编辑框内容模拟输入
http://www.3600gz.cn/thread-87501-1-1.html

莫离

楼主试试这样的

[e].版本 2
.支持库 spec

.子程序 _自动打字_被选择
.局部变量 文件内容, 文本型
.局部变量 准备打字, 文本型
.局部变量 i
.局部变量 找到位置, 整数型
.局部变量 长度, 整数型

写字框.内容 ＝ “”
清除数组 (打字数组)
目前位置 ＝ 0
.如果真 (通用对话框1.打开 () ＝ 真)
    文件内容 ＝ 到文本 (读入文件 (通用对话框1.文件名))
    调试输出 (文件内容)
    长度 ＝ 取文本长度 (文件内容)
    找到位置 ＝ 0
    .判断循环首 (找到位置 ＜ 长度)
        .如果 (取代码 (取文本中间 (文件内容, 找到位置, 1), ) ＜ 0 或 取代码 (取文本中间 (文件内容, 找到位置, 1), ) ＝ 13)
            .如果 (取代码 (取文本中间 (文件内容, 找到位置, 1), ) ＝ 13)
                .如果 (取文本中间 (文件内容, 找到位置, 2) ＝ #换行符)
                    找到位置 ＝ 找到位置 ＋ 1
                .否则
                    找到位置 ＝ 找到位置 ＋ 3
                .如果结束

            .否则
                准备打字 ＝ 准备打字 ＋ 取文本中间 (文件内容, 找到位置, 2) ＋ “|”
                找到位置 ＝ 找到位置 ＋ 2
            .如果结束

        .否则
            .如果 (取代码 (取文本中间 (文件内容, 找到位置, 1), ) ＝ 0)
                找到位置 ＝ 找到位置 ＋ 1
            .否则
                准备打字 ＝ 准备打字 ＋ 取文本中间 (文件内容, 找到位置, 1) ＋ “|”
                找到位置 ＝ 找到位置 ＋ 1
            .如果结束

        .如果结束

    .判断循环尾 ()
    打字数组 ＝ 分割文本 (准备打字, “|”, )
    时钟1.时钟周期 ＝ 100
    开始 ＝ 真
.如果真结束


.子程序 _窗口总在最前_被选择

.如果 (窗口总在最前.选中 ＝ 真)
    窗口总在最前.选中 ＝ 假
.否则
    窗口总在最前.选中 ＝ 真
[/e]