窗口

CAOLIANG147

刚才试了一下这个窗口滑动   点完之后窗口会在中间闪一下 在从电脑屏幕滑动出来 有没有好点的从电脑屏幕上下坐下滑动效果   不要模块模块太卡

寒潮

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口1

子程序名	返回值类型	公开	备 注
_窗口1_创建完毕

窗口1.顶边 ＝ 取屏幕高度 ()
可视 ＝ 真
时钟1.时钟周期 ＝ 1

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

如果 (窗口1.顶边 ��� (取屏幕高度 () － 窗口1.高度) ÷ 2)
窗口1.顶边 ＝ (取屏幕高度 () － 窗口1.高度) ÷ 2
时钟1.时钟周期 ＝ 0
窗口1.顶边 ＝ 窗口1.顶边 － 50

.版本 2<br /> <br /> .程序集 窗口程序集_窗口1<br /> <br /> .子程序 _窗口1_创建完毕<br /> <br /> 窗口1.顶边 ＝ 取屏幕高度 ()<br /> 可视 ＝ 真<br /> 时钟1.时钟周期 ＝ 1<br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> .如果 (窗口1.顶边 ＜ (取屏幕高度 () － 窗口1.高度) ÷ 2)<br />     窗口1.顶边 ＝ (取屏幕高度 () － 窗口1.高度) ÷ 2<br />     时钟1.时钟周期 ＝ 0<br /> .否则<br />     窗口1.顶边 ＝ 窗口1.顶边 － 50<br /> .如果结束

红妆V

1. .版本 2
   
2. 
   
3. .子程序 窗口弹出
   
4. .参数 type, 整数型, , 0上1下2左3右
   
5. .局部变量 i, 整数型
   
6. .局部变量 P_W, 整数型
   
7. .局部变量 P_H, 整数型
   
8. 
   
9. P_W ＝ 取屏幕宽度 ()
   
10. P_H ＝ 取屏幕高度 ()
    
11. .判断开始 (type ＝ 0)  ' 上
    
12.     左边 ＝ (P_W － 宽度) ÷ 2
    
13.     顶边 ＝ 0 － 高度
    
14.     .变量循环首 (1, 高度, 2, i)
    
15.         顶边 ＝ 0 － 高度 ＋ i
    
16.         延时 (2)
    
17.         处理事件 ()
    
18.     .变量循环尾 ()
    
19. .判断 (type ＝ 1)  ' 下
    
20.     左边 ＝ (P_W － 宽度) ÷ 2
    
21.     顶边 ＝ P_H
    
22.     .变量循环首 (1, 高度 ＋ 25, 2, i)  ' 任务栏25高度
    
23.         顶边 ＝ P_H － i
    
24.         延时 (2)
    
25.         处理事件 ()
    
26.     .变量循环尾 ()
    
27. .判断 (type ＝ 2)  ' 左
    
28.     顶边 ＝ (P_H － 高度) ÷ 2
    
29.     左边 ＝ 0 － 宽度
    
30.     .变量循环首 (1, 宽度, 2, i)
    
31.         左边 ＝ 0 － 宽度 ＋ i
    
32.         延时 (2)
    
33.         处理事件 ()
    
34.     .变量循环尾 ()
    
35. .默认
    
36.     顶边 ＝ (P_H － 高度) ÷ 2
    
37.     左边 ＝ P_W
    
38.     .变量循环首 (1, 宽度, 2, i)
    
39.         左边 ＝ P_W － i
    
40.         延时 (2)
    
41.         处理事件 ()
    
42.     .变量循环尾 ()
    
43. .判断结束
    
44. 
    

复制代码

sunsir

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
i	整数型

载入 (窗口1, , 假)
窗口1.顶边 ＝ -1000
窗口1.可视 ＝ 真
计次循环首 (1000, i)
窗口1.顶边 ＝ i － 1000
计次循环尾 ()

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 i, 整数型<br /> <br /> 载入 (窗口1, , 假)<br /> 窗口1.顶边 ＝ -1000<br /> 窗口1.可视 ＝ 真<br /> .计次循环首 (1000, i)<br />     窗口1.顶边 ＝ i － 1000<br /> .计次循环尾 ()

sunsir

test.e (2.31 KB, 下载次数: 1)

2020-6-22 18:36 上传

点击文件名下载附件

Lc_Rose

444.e (2.2 KB, 下载次数: 1)

2020-6-22 18:56 上传

点击文件名下载附件


补充内容 (2020-6-22 18:57):
从上往下滑动