社区应用 社区服务 会员列表 统计排行 帮助 银行
  • 4814阅读
  • 18回复

[开源][分享]例程:渐开的窗口

楼层直达
发帖
287
铜币
655
威望
1
E积分
0
技术积分
0

1mg4QahR.ef (3 K) 下载次数:103

//渐开的窗口.EF
引入 工具,用户界面;

公开 类 渐开窗口<基类=窗口>

    面板 主面板;
    按钮 按钮1;
    整数 宽,高,渐开速度;
   
    公开 事件 逻辑 创建完毕(创建完毕事件 事件)
    {
        主面板 = 创建 面板();
        主面板.创建(本对象, 0, 0, 本对象.宽度(), 本对象.高度(), 0, "");

 窗口渐开();

        // 创建按钮
        按钮1 = 创建 按钮;
        按钮1.创建(主面板, "我猜", 0, 0, 80, 30, 0, "我猜按钮");
        按钮1.居中(方位.双向);

        返回(真);
    }

    //渐开效果实现代码////////////////////////////////////////////////////
    窗口渐开()
    {
 本对象.居中(方位.双向);
 本对象.显示(真);
 
 如果(渐开速度<=0)
  渐开速度=1;

 循环(本对象.宽度<宽||本对象.高度<高)
 {
  如果(本对象.宽度<宽)
  {
   如果(宽-本对象.宽度>渐开速度)
    本对象.宽度+=渐开速度;
   否则
    本对象.宽度=宽;
  }
 
  如果(本对象.高度<高)
  {
   如果(高-本对象.高度>渐开速度)
    本对象.高度+=渐开速度;
   否则
    本对象.高度=高;

  }

  本对象.居中(方位.双向);

  用户界面.工具.延时(1);
 }
    }
    /////////////////////////////////////////////////////////////////////
   
    公开 逻辑 创建(文本 窗口标题 ,整数 窗口左边, 整数 窗口右边,
  整数 窗口宽度, 整数 窗口高度, 整数 窗口风格, 文本 文本1,整数 窗口渐开速度 )
    {
 宽=窗口宽度;
 高=窗口高度;
 渐开速度=窗口渐开速度;

 返回(本对象.创建(空, 窗口标题 , 窗口左边,  窗口右边,  0,  0,  窗口风格,  文本1 ));
    }

}

公开 类 窗口程序<基类=界面程序>
{
    渐开窗口 渐开窗口1;
    渐开窗口 渐开窗口2;

    公开 逻辑 创建界面控件()
    {
        渐开窗口1 = 创建 渐开窗口;
        如果(渐开窗口1.创建("渐开窗口1", 0, 0, 605, 125,
  (整数)窗口风格.显示系统菜单 | (整数)窗口风格.显示标题 | (整数)窗口风格.显示关闭按钮,
  "渐开窗口" ,50) == 真)
        {  
            渐开窗口1.居中(方位.双向);
            渐开窗口1.显示(真); 
        }

        渐开窗口2 = 创建 渐开窗口;
        如果(渐开窗口2.创建("渐开窗口2", 0, 0, 125, 605,
  (整数)窗口风格.显示系统菜单 | (整数)窗口风格.显示标题 | (整数)窗口风格.显示关闭按钮,
  "渐开窗口" ,10) == 真)
        {  
            渐开窗口2.居中(方位.双向);
            渐开窗口2.显示(真); 
        }

 返回(真);
    }
}

公开 类 启动类
{
    公开 静态 启动()
    {
 窗口程序 窗口程序1;
 窗口程序1=创建 窗口程序;
    }
}


发帖
6913
铜币
7470
威望
0
E积分
2
技术积分
0
只看该作者 沙发  发表于: 2007-01-16
支持一下!!
发帖
3866
铜币
7814
威望
6
E积分
0
技术积分
0
只看该作者 板凳  发表于: 2007-01-16
可以用,收录中.....
级别: 贵宾
发帖
3107
铜币
6291
威望
0
E积分
0
技术积分
0

只看该作者 地板  发表于: 2007-01-16
好,我也要用,哈哈
http://ria4.com
级别: 贵宾
发帖
5399
铜币
38765
威望
1
E积分
0
技术积分
0

只看该作者 4楼 发表于: 2007-01-17

楼主的飞扬了!

我也来学习!

[em05]
我一直努力推动着易语言前进!
奋头人生,体验人生,享受人生,活得精彩!
发帖
76
铜币
232
威望
0
E积分
0
技术积分
0
只看该作者 5楼 发表于: 2007-01-17
不错哦
发帖
214
铜币
508
威望
0
E积分
0
技术积分
0
只看该作者 6楼 发表于: 2007-01-19
不错,支持一下!
发帖
79
铜币
0
威望
0
E积分
0
技术积分
0
只看该作者 7楼 发表于: 2012-02-20
感谢楼主分享
发帖
486
铜币
1
威望
0
E积分
0
技术积分
0
只看该作者 8楼 发表于: 2012-03-01
叹往昔,何日飞扬在飞扬。
发帖
486
铜币
1
威望
0
E积分
0
技术积分
0
只看该作者 9楼 发表于: 2012-03-05
为了飞扬,在顶一次。为了飞扬,在顶一次。
快速回复

限60 字节
如果您提交过一次失败了,可以用”恢复数据”来恢复帖子内容
 
认证码:
上一个 下一个