关于超级列表框上下行移动

KD飞飞

有没有大佬可以简写~一下 有点绕
这是上移下移时+就行~
置顶和置底就循环点击~~

  

子程序名	返回值类型	公开	备 注
_按钮3_被单击

变量名	类 型	静态	数组	备 注
等待被移动的行a旧名称	文本型
等待被移动的行a新名称	文本型
等待被移动的行a后缀	文本型
等待被移动的行a位置	文本型
即将被移动的行a旧名称	文本型
即将被移动的行a新名称	文本型
即将被移动的行a后缀	文本型
即将被移动的行a位置	文本型
上移位置	整数型

上移位置 ＝ 超级列表框1.现行选中项 － 1
如果真 (上移位置 ≤ -1)
返回 ()

如果真 (超级列表框1.现行选中项 ≠ -1)
等待被移动的行a旧名称 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 1)
等待被移动的行a新名称 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 2)
等待被移动的行a后缀 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 3)
等待被移动的行a位置 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 4)
即将被移动的行a旧名称 ＝ 超级列表框1.取标题 (上移位置, 1)
即将被移动的行a新名称 ＝ 超级列表框1.取标题 (上移位置, 2)
即将被移动的行a后缀 ＝ 超级列表框1.取标题 (上移位置, 3)
即将被移动的行a位置 ＝ 超级列表框1.取标题 (上移位置, 4)
超级列表框1.置标题 (超级列表框1.现行选中项, 1, 即将被移动的行a旧名称)
超级列表框1.置标题 (超级列表框1.现行选中项, 2, 即将被移动的行a新名称)
超级列表框1.置标题 (超级列表框1.现行选中项, 3, 即将被移动的行a后缀)
超级列表框1.置标题 (超级列表框1.现行选中项, 4, 即将被移动的行a位置)
超级列表框1.置标题 (上移位置, 1, 等待被移动的行a旧名称)
超级列表框1.置标题 (上移位置, 2, 等待被移动的行a新名称)
超级列表框1.置标题 (上移位置, 3, 等待被移动的行a后缀)
超级列表框1.置标题 (上移位置, 4, 等待被移动的行a位置)
超级列表框1.现行选中项 ＝ 超级列表框1.现行选中项 － 1

标签1.标题 ＝ “您现在正在操作：” ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 0)

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _按钮3_被单击<br /> .局部变量 等待被移动的行a旧名称, 文本型<br /> .局部变量 等待被移动的行a新名称, 文本型<br /> .局部变量 等待被移动的行a后缀, 文本型<br /> .局部变量 等待被移动的行a位置, 文本型<br /> .局部变量 即将被移动的行a旧名称, 文本型<br /> .局部变量 即将被移动的行a新名称, 文本型<br /> .局部变量 即将被移动的行a后缀, 文本型<br /> .局部变量 即将被移动的行a位置, 文本型<br /> .局部变量 上移位置, 整数型<br /> <br /> <br /> 上移位置 ＝ 超级列表框1.现行选中项 － 1<br /> <br /> .如果真 (上移位置 ≤ -1)<br />     返回 ()<br /> <br /> .如果真结束<br /> <br /> .如果真 (超级列表框1.现行选中项 ≠ -1)<br />     等待被移动的行a旧名称 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 1)<br />     等待被移动的行a新名称 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 2)<br />     等待被移动的行a后缀 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 3)<br />     等待被移动的行a位置 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 4)<br /> <br />     即将被移动的行a旧名称 ＝ 超级列表框1.取标题 (上移位置, 1)<br />     即将被移动的行a新名称 ＝ 超级列表框1.取标题 (上移位置, 2)<br />     即将被移动的行a后缀 ＝ 超级列表框1.取标题 (上移位置, 3)<br />     即将被移动的行a位置 ＝ 超级列表框1.取标题 (上移位置, 4)<br /> <br />     超级列表框1.置标题 (超级列表框1.现行选中项, 1, 即将被移动的行a旧名称)<br />     超级列表框1.置标题 (超级列表框1.现行选中项, 2, 即将被移动的行a新名称)<br />     超级列表框1.置标题 (超级列表框1.现行选中项, 3, 即将被移动的行a后缀)<br />     超级列表框1.置标题 (超级列表框1.现行选中项, 4, 即将被移动的行a位置)<br /> <br />     超级列表框1.置标题 (上移位置, 1, 等待被移动的行a旧名称)<br />     超级列表框1.置标题 (上移位置, 2, 等待被移动的行a新名称)<br />     超级列表框1.置标题 (上移位置, 3, 等待被移动的行a后缀)<br />     超级列表框1.置标题 (上移位置, 4, 等待被移动的行a位置)<br /> <br />     超级列表框1.现行选中项 ＝ 超级列表框1.现行选中项 － 1<br /> <br /> <br /> .如果真结束<br /> <br /> <br /> <br /> 标签1.标题 ＝ “您现在正在操作：” ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 0)

小可爱创作生活

我好像之前写过

鹏书

https://www.bilibili.com/video/BV1kM4y1f72b/