发一个缓动的窗口停靠伸缩模块

ryry123456

  

子程序名	返回值类型	公开	备 注
停靠伸缩
参数名	类 型	参考	可空	数组	备 注
窗口名称	窗口
speed	整数型

变量名	类 型	静态	数组	备 注
a	整数型
右边	整数型

右边 ＝ 窗口名称.左边 ＋ 窗口名称.宽度
如果 (取鼠标水平位置 () ≥ 窗口名称.左边 且 取鼠标水平位置 () ≤ 窗口名称.左边 ＋ 窗口名称.宽度 且 取鼠标垂直位置 () ≥ 窗口名称.顶边 且 取鼠标垂直位置 () ≤ 窗口名称.顶边 ＋ 窗口名称.高度)
如果真 (窗口名称.顶边 ＜ -50)
计次循环首 (窗口名称.高度 － 1, a)
窗口名称.顶边 ＝ 窗口名称.顶边 ＋ speed
如果真 (窗口名称.顶边 ≥ 0)
窗口名称.顶边 ＝ 0
跳出循环 ()

计次循环尾 ()


如果真 (窗口名称.顶边 ＝ 0)
计次循环首 (窗口名称.高度 － 1, a)
窗口名称.顶边 ＝ 窗口名称.顶边 － speed
如果真 (窗口名称.顶边 ≤ ��� (窗口名称.高度 － 1))
窗口名称.顶边 ＝ ��� (窗口名称.高度 － 1)
跳出循环 ()

计次循环尾 ()

.版本 2<br /> <br /> .子程序 停靠伸缩, , 公开<br /> .参数 窗口名称, 窗口<br /> .参数 speed, 整数型<br /> .局部变量 a, 整数型<br /> .局部变量 右边, 整数型<br /> <br /> <br /> 右边 ＝ 窗口名称.左边 ＋ 窗口名称.宽度<br /> <br /> .如果 (取鼠标水平位置 () ≥ 窗口名称.左边 且 取鼠标水平位置 () ≤ 窗口名称.左边 ＋ 窗口名称.宽度 且 取鼠标垂直位置 () ≥ 窗口名称.顶边 且 取鼠标垂直位置 () ≤ 窗口名称.顶边 ＋ 窗口名称.高度)<br /> <br />     .如果真 (窗口名称.顶边 ＜ -50)<br />         .计次循环首 (窗口名称.高度 － 1, a)<br />             窗口名称.顶边 ＝ 窗口名称.顶边 ＋ speed<br /> <br />             .如果真 (窗口名称.顶边 ≥ 0)<br />                 窗口名称.顶边 ＝ 0<br />                 跳出循环 ()<br />             .如果真结束<br /> <br />         .计次循环尾 ()<br />     .如果真结束<br /> <br /> <br /> <br /> .否则<br />     .如果真 (窗口名称.顶边 ＝ 0)<br />         .计次循环首 (窗口名称.高度 － 1, a)<br />             窗口名称.顶边 ＝ 窗口名称.顶边 － speed<br />             .如果真 (窗口名称.顶边 ≤ －(窗口名称.高度 － 1))<br />                 窗口名称.顶边 ＝ －(窗口名称.高度 － 1)<br />                 跳出循环 ()<br />             .如果真结束<br /> <br />         .计次循环尾 ()<br /> <br />     .如果真结束<br /> <br /> <br /> <br /> .如果结束

zytking

请问这个“speed”该如何设定？

过往一阵风

亲测无效果

汇编语言新手

特效源码吗

李泽勇2

我测试无效。

wuqingg

又节约了一个精币！

全村最帅

这个还是不错的