精易论坛
标题:
发一个缓动的窗口停靠伸缩模块
[打印本页]
作者:
ryry123456
时间:
2019-6-17 16:41
标题:
发一个缓动的窗口停靠伸缩模块
子程序名
返回值类型
公开
备 注
停靠伸缩
参数名
类 型
参考
可空
数组
备 注
窗口名称
窗口
speed
整数型
变量名
类 型
静态
数组
备 注
a
整数型
右边
整数型
右边 = 窗口名称.左边 + 窗口名称.宽度
如果
(
取鼠标水平位置
(
)
≥ 窗口名称.左边
且
取鼠标水平位置
(
)
≤ 窗口名称.左边 + 窗口名称.宽度
且
取鼠标垂直位置
(
)
≥ 窗口名称.顶边
且
取鼠标垂直位置
(
)
≤ 窗口名称.顶边 + 窗口名称.高度
)
如果真
(
窗口名称.顶边 < -50
)
计次循环首
(
窗口名称.高度 - 1, a
)
窗口名称.顶边 = 窗口名称.顶边 + speed
如果真
(
窗口名称.顶边 ≥ 0
)
窗口名称.顶边 = 0
跳出循环
(
)
计次循环尾
(
)
如果真
(
窗口名称.顶边 = 0
)
计次循环首
(
窗口名称.高度 - 1, a
)
窗口名称.顶边 = 窗口名称.顶边 - speed
如果真
(
窗口名称.顶边 ≤ �
��
(
窗口名称.高度 - 1
)
)
窗口名称.顶边 = �
��
(
窗口名称.高度 - 1
)
跳出循环
(
)
计次循环尾
(
)
.版本 2
.子程序 停靠伸缩, , 公开
.参数 窗口名称, 窗口
.参数 speed, 整数型
.局部变量 a, 整数型
.局部变量 右边, 整数型
右边 = 窗口名称.左边 + 窗口名称.宽度
.如果 (取鼠标水平位置 () ≥ 窗口名称.左边 且 取鼠标水平位置 () ≤ 窗口名称.左边 + 窗口名称.宽度 且 取鼠标垂直位置 () ≥ 窗口名称.顶边 且 取鼠标垂直位置 () ≤ 窗口名称.顶边 + 窗口名称.高度)
.如果真 (窗口名称.顶边 < -50)
.计次循环首 (窗口名称.高度 - 1, a)
窗口名称.顶边 = 窗口名称.顶边 + speed
.如果真 (窗口名称.顶边 ≥ 0)
窗口名称.顶边 = 0
跳出循环 ()
.如果真结束
.计次循环尾 ()
.如果真结束
.否则
.如果真 (窗口名称.顶边 = 0)
.计次循环首 (窗口名称.高度 - 1, a)
窗口名称.顶边 = 窗口名称.顶边 - speed
.如果真 (窗口名称.顶边 ≤ -(窗口名称.高度 - 1))
窗口名称.顶边 = -(窗口名称.高度 - 1)
跳出循环 ()
.如果真结束
.计次循环尾 ()
.如果真结束
.如果结束
作者:
全村最帅
时间:
2019-6-17 17:02
这个还是不错的
作者:
wuqingg
时间:
2019-6-18 10:04
又节约了一个精币!
作者:
李泽勇2
时间:
2019-6-24 08:53
我测试无效。
作者:
汇编语言新手
时间:
2019-6-25 00:07
提示:
作者被禁止或删除 内容自动屏蔽
作者:
过往一阵风
时间:
2019-12-20 11:17
亲测无效果
作者:
zytking
时间:
2022-9-11 14:25
请问这个“speed”该如何设定?
欢迎光临 精易论坛 (https://125.confly.eu.org/)
Powered by Discuz! X3.4