精易论坛

标题: 发一个缓动的窗口停靠伸缩模块 [打印本页]

作者: ryry123456    时间: 2019-6-17 16:41
标题: 发一个缓动的窗口停靠伸缩模块
  
子程序名返回值类型公开备 注
停靠伸缩 
参数名类 型参考可空数组备 注
窗口名称窗口
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