动画窗口-初级程序-极语言教程

//窗体代码:

整数 窗体,分组框1,单选钮2,单选钮3,单选钮4,单选钮5,单选钮6,单选钮7,单选钮8,单选钮9,单选钮10,单选钮11,单选钮12,分组框13,标签14,时间,分组框16,按钮1,按钮2;
程序资源 24,"清单.xml";
程序段 加载窗体
整数 左=(桌面.宽-398)>>1,上=(桌面.高-371)>>1;
窗体=创建窗口($100,程序.名称,"动画窗口",$10C80000,左,上,398,371,0,0,0,0);
分组框1=创建窗口($0,"Button","动画效果",$50020007,7,7,227,320,窗体,1,11,0);
单选钮2=创建窗口($0,"Button","无",$50016009,13,27,60,20,窗体,2,7,0);
单选钮3=创建窗口($0,"Button","左向右滑动",$50016009,13,53,113,20,窗体,3,7,0);
单选钮4=创建窗口($0,"Button","右向左滑动",$50016009,13,80,113,20,窗体,4,7,0);
单选钮5=创建窗口($0,"Button","从上向下滑动",$50016009,13,107,113,20,窗体,5,7,0);
单选钮6=创建窗口($0,"Button","从下向上滑动",$50016009,13,133,113,20,窗体,6,7,0);
单选钮7=创建窗口($0,"Button","对角线左上到右下",$50016009,13,160,167,20,窗体,7,7,0);
单选钮8=创建窗口($0,"Button","对角线右下到左上",$50016009,13,187,167,20,窗体,8,7,0);
单选钮9=创建窗口($0,"Button","对角线右上到左下",$50016009,13,213,167,20,窗体,9,7,0);
单选钮10=创建窗口($0,"Button","对角线左下到右上",$50016009,13,240,167,20,窗体,10,7,0);
单选钮11=创建窗口($0,"Button","中心向外展开/四周向内收缩",$50016009,13,267,213,20,窗体,11,7,0);
单选钮12=创建窗口($0,"Button","渐隐显示和渐散消失",$50016009,13,293,167,20,窗体,12,7,0);
分组框13=创建窗口($0,"Button","时间",$50020007,240,213,133,40,窗体,13,11,0);
标签14=创建窗口($0,"Static","延时(毫秒)",$50000000,247,227,73,20,窗体,14,2,0);
时间=创建窗口($200,"Edit","600",$50010000,320,227,47,20,窗体,15,4,0);
分组框16=创建窗口($0,"Button","操作",$50000007,240,273,133,53,窗体,16,11,0);
按钮1=创建窗口($0,"Button","显示",$50000000,247,293,53,27,窗体,17,3,0);
按钮2=创建窗口($0,"Button","隐藏",$50000000,313,293,53,27,窗体,18,3,0);
窗体启动;读取消息
结束

 

//程序代码:

整数 画笔, 演示窗口, 效果, 毫秒, 颜色,选项;文本 取值[10]="$0001020408050A060910";
小程序 窗体消息(窗口,消息,参数,数据);
    判断(消息)
    为 窗口关闭 {如果(窗口=窗体)停止(0)}
    为 绘制静态,绘制按钮 返回(0)
    为 单击左键 {左键点击(参数)}
    否则{处理窗口(窗口,消息,参数,数据)}
结束

小程序 窗体启动
    随机种子(开机毫秒)
    控制窗口(按钮2, 假);
    按钮单选(窗体, 2, 12, 2);
    演示窗口 = 创建窗口(0, 程序.名称, "演示窗口",$4CF0000, 100, 80, 550, 475, 0, 0, 0, 0);
    读取消息
结束

小程序 左键点击(参数)
    判断(参数)
    为 <12{选项=取值(参数-2);}
    为 12{选项=$80000;}
    为 17{显示隐藏(0);}
    为 18{显示隐藏(1);}
结束

小程序 显示隐藏(模式)
    毫秒 =取控件数(窗体,15,0,0);
    判断(模式)为 0{ 
    控制窗口(按钮1, 假);
    控制窗口(按钮2, 真);
    效果 =选项 | $20000;
    颜色 = 随机数 / $7FF + 16777216;
    删除对象(画笔);
    画笔 = 创建画刷(颜色); 
    修改类值(演示窗口, 类背景色, 画笔); } 
    为 1{ 
    控制窗口(按钮1, 真);
    控制窗口(按钮2, 假);
    效果 = 选项 | $10000; } 

    判断(效果)为 $20000{
    显隐窗口(演示窗口, 窗口显示)}
    为 $10000{显隐窗口(演示窗口,窗口隐藏)}
    否则{动画窗口(演示窗口, 毫秒, 效果)}
结束