【原创源码】屏保

china456

.版本 2
.支持库 xplib

.程序集 窗口程序集2

.子程序 _编辑框1_获得焦点


编辑框1.内容 ＝ “√”
编辑框2.内容 ＝ “”
是否为彩色 ＝ 假


.子程序 _编辑框2_获得焦点


编辑框1.内容 ＝ “”
编辑框2.内容 ＝ “√”
是否为彩色 ＝ 真


.子程序 _编辑框3_获得焦点

编辑框4.内容 ＝ “”
编辑框5.内容 ＝ “”
编辑框6.内容 ＝ “”
编辑框3.内容 ＝ “√”
下落范围 ＝ 1


.子程序 _编辑框4_获得焦点

编辑框4.内容 ＝ “√”
编辑框5.内容 ＝ “”
编辑框6.内容 ＝ “”
编辑框3.内容 ＝ “”
下落范围 ＝ 2

.子程序 _编辑框5_获得焦点

编辑框4.内容 ＝ “”
编辑框5.内容 ＝ “√”
编辑框6.内容 ＝ “”
编辑框3.内容 ＝ “”
下落范围 ＝ 3

.子程序 _编辑框6_获得焦点

编辑框4.内容 ＝ “”
编辑框5.内容 ＝ “”
编辑框6.内容 ＝ “√”
编辑框3.内容 ＝ “”
下落范围 ＝ 4

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


.如果真 (编辑框字符数.内容 ＝ “”)
    信息框 (“请输入字符数量！！”, 0, “黑客提示：”)
    返回 ()

.如果真结束

.如果真 (速度最大值 ＝ 0)
    信息框 (“请选择速度！！”, 0, “黑客提示：”)
    返回 ()
.如果真结束


.如果真 (下落范围 ＝ 4)
    .如果 (编辑框字体.内容 ＝ “”)
        信息框 (“您选择了自定义方式，请输入内容!”, 0, “黑客提示：”)
        返回 ()
    .否则
        文本数组 ＝ 分割文本 (编辑框字体.内容, “,”, )
        .如果 (取数组成员数 (文本数组) ＝ 0)
            信息框 (“您选择了自定义方式，请输入','来区分!”, 0, “黑客提示：”)
            返回 ()

        .否则

        .如果结束

    .如果结束

.如果真结束

' 本来想加一首歌可能感觉会更好点！！！但文件太大了，歌名（德国装甲师进行曲，闪电部队在前进！）
' 播放MP3 (-1, 取运行目录 () ＋ “\” ＋ “德国第一装甲师战歌 闪电部队在前进.mp3”)
载入 (窗口1, , 假)
_启动窗口.可视 ＝ 假
窗口1.时钟1.时钟周期 ＝ 10


.子程序 _编辑框字体_鼠标位置被移动, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

.如果真 (横向位置 ＜ 120 且 纵向位置 ＜ 10)
    标签1.可视 ＝ 真
    标签1.移动 (横向位置 ＋ 30, 纵向位置 ＋ 450, , )
.如果真结束


.子程序 __启动窗口_鼠标位置被移动, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

标签1.可视 ＝ 假

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

XP风格 (#绿色风格)
置随机数种子 ()
下落范围 ＝ 1
速度最大值 ＝ 30
速度最小值 ＝ 速度最大值 ÷ 3


.子程序 _编辑框8_获得焦点

编辑框7.内容 ＝ “”
编辑框9.内容 ＝ “”
编辑框8.内容 ＝ “√”
速度最大值 ＝ 30
速度最小值 ＝ 速度最大值 ÷ 3

.子程序 _编辑框9_获得焦点

编辑框7.内容 ＝ “”
编辑框9.内容 ＝ “√”
编辑框8.内容 ＝ “”
速度最大值 ＝ 50
速度最小值 ＝ 速度最大值 ÷ 3

.子程序 _编辑框7_获得焦点

编辑框7.内容 ＝ “√”
编辑框9.内容 ＝ “”
编辑框8.内容 ＝ “”
速度最大值 ＝ 40
速度最小值 ＝ 速度最大值 ÷ 3

.子程序 _图形按钮2_被单击

_启动窗口.位置 ＝ 2  ' 最小化


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

_启动窗口.销毁 ()

china456

链接地址http://pan.baidu.com/s/1bn8xF91提取码ta79

下一站天堂

一点都看不懂==