想做滑动按钮求教

w297323699

想做个全屏按下滑动按钮，可以循环滑动按钮  （因为代码栏用不了 只能放到下面了  抱歉）
.版本 2
.程序集 窗口程序集_启动窗口
.程序集变量 记录坐标, 整数型
.程序集变量 记录坐标2, 整数型
.程序集变量 n, 整数型
.程序集变量 集_按钮数组, 按钮, , "5"
.程序集变量 记录坐标3, 整数型
.程序集变量 记录坐标4, 整数型
.程序集变量 记录坐标5, 整数型
.子程序 __启动窗口_创建完毕
' 显示光标 (假)
_启动窗口.顶边 ＝ 0
_启动窗口.左边 ＝ 0
_启动窗口.宽度 ＝ 取屏幕宽度 ()
_启动窗口.高度 ＝ 取屏幕高度 ()
.计次循环首 (5, n)
    集_按钮数组 [n] ＝ 多项选择 (n, 按钮1, 按钮2, 按钮3, 按钮4, 按钮5)
    .如果真 (n ＞ 1)
        事件转移 (集_按钮数组 [n], 按钮1)
    .如果真结束
    集_按钮数组 [n].左边 ＝ 集_按钮数组 [n].左边 ÷ 988 × 宽度
    集_按钮数组 [n].顶边 ＝ 集_按钮数组 [n].顶边 ÷ 466 × 高度
    集_按钮数组 [n].宽度 ＝ 集_按钮数组 [n].宽度 ÷ 988 × 宽度
    集_按钮数组 [n].高度 ＝ 集_按钮数组 [n].高度 ÷ 466 × 高度
    集_按钮数组 [n].标记 ＝ 到文本 (n)
    集_按钮数组 [n].标题 ＝ 到文本 (n)
.计次循环尾 ()
.子程序 _按钮1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.局部变量 按钮, 按钮
按钮 ＝ 取事件组件 ()
_启动窗口.标记 ＝ 按钮.标记
记录坐标 ＝ 取鼠标水平位置 () － 按钮1.左边
记录坐标2 ＝ 取鼠标水平位置 () － 按钮2.左边
记录坐标3 ＝ 取鼠标水平位置 () － 按钮3.左边
记录坐标4 ＝ 取鼠标水平位置 () － 按钮4.左边
记录坐标5 ＝ 取鼠标水平位置 () － 按钮5.左边

.子程序 _按钮1_鼠标位置被移动, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.局部变量 按钮, 按钮
按钮 ＝ 取事件组件 ()
.如果真 (_启动窗口.标记 ＝ 按钮.标记)
    按钮1.左边 ＝ 取鼠标水平位置 () － 记录坐标
    按钮2.左边 ＝ 取鼠标水平位置 () － 记录坐标2
    按钮3.左边 ＝ 取鼠标水平位置 () － 记录坐标3
    按钮4.左边 ＝ 取鼠标水平位置 () － 记录坐标4
    按钮5.左边 ＝ 取鼠标水平位置 () － 记录坐标5
.如果真结束


.子程序 _按钮1_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.局部变量 按钮, 按钮
按钮 ＝ 取事件组件 ()
_启动窗口.标记 ＝ “”

走一回

高光时刻忘记上传源码了, 标签仿按钮_左边为0排最后_右边大于窗口宽度排最前.e (791.07 KB, 下载次数: 20)

2019-4-22 20:40 上传

点击文件名下载附件

走一回

按钮.左边>0  按钮.左边<0  ,哪个按钮呢，还有这个>0或<0是怎么产生的？？？

w297323699

走一回 发表于 2019-4-22 16:18
按钮.左边>0  按钮.左边0或

任意一个按钮 鼠标按下 然后鼠标拖动。（我这是全屏的 ）超出屏幕外不是<0或者>0吗
比如按钮1 鼠标按下不放然后鼠标往左移动  按钮1.左边不是慢慢的小于0吗
我想的是小于0后按钮1就出现 在按钮5的后面 其他按钮也一样的效果。
按钮5 鼠标按下不放然后鼠标往右移动  按钮5.左边就慢慢的大于屏幕宽度了
我想的是按钮1大于屏幕宽度后，按钮5就出现 在按钮1的后面 其他按钮也一样的效果

w297323699

走一回 发表于 2019-4-22 16:18
按钮.左边>0  按钮.左边0或

不是大于0 是大于屏幕宽度

走一回

应该能实现就是麻烦，而且不太实用

w297323699

走一回 发表于 2019-4-22 17:11
应该能实现就是麻烦，而且不太实用

帮忙一下  

走一回

高光时刻
本源码只实现按钮拖到左边<0,排到最后边(右边)
右边>窗口宽度,只是一个相反的代码,可自行修改

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
集_标签数组	标签	5
集_顶边	整数型

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

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

标签1.可视 ＝ 假
计次循环首 (5, i)
复制窗口组件 (标签1, 集_标签数组 [i])
集_标签数组 [i].移动 ( (i － 1) × 100 ＋ 30, , , )
集_标签数组 [i].可视 ＝ 真
集_标签数组 [i].标记 ＝ 到文本 (i)
集_标签数组 [i].标题 ＝ 到文本 (i)
计次循环尾 ()
集_顶边 ＝ 标签1.顶边

子程序名	返回值类型	公开	备 注
_标签1_鼠标左键被按下	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

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

标签 ＝ 取事件组件 ()
标签.发送信息 (274, 61449, 0)
判断 (标签.左边 ＜ 0)
temp ＝ 取标记组件 (到整数 (标签.标记))
加入成员 (集_标签数组, temp)
删除成员 (集_标签数组, 到整数 (temp.标记), 1)
计次循环首 (5, i)
集_标签数组 [i].标记 ＝ 到文本 (i)
计次循环尾 ()



计次循环首 (5, i)
集_标签数组 [i].移动 ( (i － 1) × 100 ＋ 30, 集_顶边, , )
计次循环尾 ()

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 集_标签数组, 标签, , "5"<br /> .程序集变量 集_顶边, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 i, 整数型<br /> <br /> 标签1.可视 ＝ 假<br /> .计次循环首 (5, i)<br />     复制窗口组件 (标签1, 集_标签数组 <i>)<br />     集_标签数组 <i>.移动 ((i － 1) × 100 ＋ 30, , , )<br />     集_标签数组 <i>.可视 ＝ 真<br />     集_标签数组 <i>.标记 ＝ 到文本 (i)<br />     集_标签数组 <i>.标题 ＝ 到文本 (i)<br /> .计次循环尾 ()<br /> 集_顶边 ＝ 标签1.顶边<br /> <br /> .子程序 _标签1_鼠标左键被按下, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 标签, 标签<br /> .局部变量 temp, 标签<br /> .局部变量 i, 整数型<br /> <br /> 标签 ＝ 取事件组件 ()<br /> 标签.发送信息 (274, 61449, 0)<br /> .判断开始 (标签.左边 ＜ 0)<br />     temp ＝ 取标记组件 (到整数 (标签.标记))<br />     加入成员 (集_标签数组, temp)<br />     删除成员 (集_标签数组, 到整数 (temp.标记), 1)<br />     .计次循环首 (5, i)<br />         集_标签数组 <i>.标记 ＝ 到文本 (i)<br />     .计次循环尾 ()<br /> .默认<br /> <br /> .判断结束<br /> <br /> .计次循环首 (5, i)<br />     集_标签数组 <i>.移动 ((i － 1) × 100 ＋ 30, 集_顶边, , )<br /> .计次循环尾 ()

w297323699

走一回 发表于 2019-4-22 20:41
高光时刻忘记上传源码了,

还是要感谢你  是我的文字表达不够 麻烦你有空时帮我想想
我想做的是这样的：
比如按钮1往左移动后面2345按钮也会跟着往左移动，当按钮1移到<0（也就是移到窗口左外）就接到按钮5后面，我上面已经做到连动了 ，就是超出窗口后不知道怎么写拜托了