求助优化超级列表框的多选移动表项

㠫孬嫑夯芘

目前已经完成了多选上移，但是多选下移怎么都写不好。感觉脑子要炸开了

有没有大哥有空帮帮忙，优化一下
demo.e (934.11 KB, 下载次数: 6)

2023-10-25 23:35 上传

点击文件名下载附件

蛀牙

直接复制可能[]会变成<>，你还是直接下载吧！ 超级列表框上移下移.e (1.04 MB, 下载次数: 16)

2023-10-26 01:40 上传

点击文件名下载附件

Suky

你想怎么优化？
被选择的全部都往上堆？还是怎么的？

㠫孬嫑夯芘

Suky 发表于 2023-10-25 23:46
你想怎么优化？
被选择的全部都往上堆？还是怎么的？

上移的我已经解决了，就是下移表项，选中的表项全部向下移动一行

TANC

demo.e (960.56 KB, 下载次数: 4)

2023-10-26 00:41 上传

点击文件名下载附件

补充内容 (2023-10-26 00:44):
本来想加个鼠标拖动 移动的，要回家了 不搞了

Suky

&#14379;孬嫑夯芘 发表于 2023-10-25 23:54
上移的我已经解决了，就是下移表项，选中的表项全部向下移动一行

超级列表框读写配置和移动表项
https://bbs.125.la/forum.php?mod=viewthread&tid=14751580
(出处: 精易论坛)

你参考一下这个里面下移写法
再添加一个判断     被选择索引   最后一项为超列表项数减1的话就返回  不下移   理论上就可以了

㠫孬嫑夯芘

1355568730 发表于 2023-10-26 00:41
补充内容 (2023-10-26 00:44):
本来想加个鼠标拖动 移动的，要回家了 不搞了

哥 你的连续选中下移没问题，但是间隔选中下移就不行了。能再优化下不？打赏请抽华子

蛀牙

&#14379;孬嫑夯芘 发表于 2023-10-26 00:55
哥 你的连续选中下移没问题，但是间隔选中下移就不行了。能再优化下不？打赏请抽华子
...

华子是真的吗

  

子程序名	返回值类型	公开	备 注
_上移_被选择

变量名	类 型	静态	数组	备 注
n	整数型		0
x	整数型
i	整数型
y	文本型		2

n ＝ 超级列表框1.取被选择表项 ()
x ＝ 取数组成员数 (n)
如果真 (x ≤ 0 或 n [1] ＝ 0)
返回 ()
计次循环首 (x, i)
y [1] ＝ 超级列表框1.取标题 (n [i] － 1, 0)
y [2] ＝ 超级列表框1.取标题 (n [i] － 1, 1)
超级列表框1.置标题 (n [i] － 1, 0, 超级列表框1.取标题 (n [i], 0))
超级列表框1.置标题 (n [i] － 1, 1, 超级列表框1.取标题 (n [i], 1))
超级列表框1.置标题 (n [i], 0, y [1])
超级列表框1.置标题 (n [i], 1, y [2])
超级列表框1.取消表项选择 (n [i])
超级列表框1.选择表项 (n [i] － 1)
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_下移_被选择

变量名	类 型	静态	数组	备 注
n	整数型		0
x	整数型
i	整数型
y	文本型		2
j	整数型

n ＝ 超级列表框1.取被选择表项 ()
x ＝ 取数组成员数 (n)
如果真 (x ≥ 超级列表框1.取表项数 () － 1 或 n [x] ＝ 超级列表框1.取表项数 () － 1)
返回 ()
计次循环首 (x, i)
y [1] ＝ 超级列表框1.取标题 (n [x － i ＋ 1] ＋ 1, 0)
y [2] ＝ 超级列表框1.取标题 (n [x － i ＋ 1] ＋ 1, 1)
超级列表框1.置标题 (n [x － i ＋ 1] ＋ 1, 0, 超级列表框1.取标题 (n [x － i ＋ 1], 0))
超级列表框1.置标题 (n [x － i ＋ 1] ＋ 1, 1, 超级列表框1.取标题 (n [x － i ＋ 1], 1))
超级列表框1.置标题 (n [x － i ＋ 1], 0, y [1])
超级列表框1.置标题 (n [x － i ＋ 1], 1, y [2])
超级列表框1.取消表项选择 (n [x － i ＋ 1])
超级列表框1.选择表项 (n [x － i ＋ 1] ＋ 1)
计次循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _上移_被选择<br /> .局部变量 n, 整数型, , "0"<br /> .局部变量 x, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 y, 文本型, , "2"<br /> <br /> n ＝ 超级列表框1.取被选择表项 ()<br /> x ＝ 取数组成员数 (n)<br /> .如果真 (x ≤ 0 或 n [1] ＝ 0)<br />     返回 ()<br /> .如果真结束<br /> .计次循环首 (x, i)<br />     y [1] ＝ 超级列表框1.取标题 (n <i> － 1, 0)<br />     y [2] ＝ 超级列表框1.取标题 (n <i> － 1, 1)<br />     超级列表框1.置标题 (n <i> － 1, 0, 超级列表框1.取标题 (n <i>, 0))<br />     超级列表框1.置标题 (n <i> － 1, 1, 超级列表框1.取标题 (n <i>, 1))<br />     超级列表框1.置标题 (n <i>, 0, y [1])<br />     超级列表框1.置标题 (n <i>, 1, y [2])<br />     超级列表框1.取消表项选择 (n <i>)<br />     超级列表框1.选择表项 (n <i> － 1)<br /> .计次循环尾 ()<br /> <br /> .子程序 _下移_被选择<br /> .局部变量 n, 整数型, , "0"<br /> .局部变量 x, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 y, 文本型, , "2"<br /> .局部变量 j, 整数型<br /> <br /> n ＝ 超级列表框1.取被选择表项 ()<br /> x ＝ 取数组成员数 (n)<br /> .如果真 (x ≥ 超级列表框1.取表项数 () － 1 或 n [x] ＝ 超级列表框1.取表项数 () － 1)<br />     返回 ()<br /> .如果真结束<br /> .计次循环首 (x, i)<br />     y [1] ＝ 超级列表框1.取标题 (n [x － i ＋ 1] ＋ 1, 0)<br />     y [2] ＝ 超级列表框1.取标题 (n [x － i ＋ 1] ＋ 1, 1)<br />     超级列表框1.置标题 (n [x － i ＋ 1] ＋ 1, 0, 超级列表框1.取标题 (n [x － i ＋ 1], 0))<br />     超级列表框1.置标题 (n [x － i ＋ 1] ＋ 1, 1, 超级列表框1.取标题 (n [x － i ＋ 1], 1))<br />     超级列表框1.置标题 (n [x － i ＋ 1], 0, y [1])<br />     超级列表框1.置标题 (n [x － i ＋ 1], 1, y [2])<br />     超级列表框1.取消表项选择 (n [x － i ＋ 1])<br />     超级列表框1.选择表项 (n [x － i ＋ 1] ＋ 1)<br /> .计次循环尾 ()