数值互换求助

我很低调

数值互换.e (965.78 KB, 下载次数: 10)

昨天 20:57 上传

点击文件名下载附件 上下项目互换位置 数值也跟着互换 怎么搞 脑子有点乱了 大神帮下！

精易论坛龙

我帮你修改好了。

精易论坛龙

不知道有没有上传成功。你自己下载。

精易论坛龙

选中列表框项目，点击，上移、下移，就可以互换位置。你自己看看是不是这样功能

我很低调

精易论坛龙 发表于 2025-7-21 21:26
不知道有没有上传成功。你自己下载。

不行 第一行还是变成1了

精易论坛龙

我很低调 发表于 2025-7-21 21:28
不行 第一行还是变成1了

那你改下代码就可以嘛。原理就这样嘛。数据可以随便修改。甚至重新编码。

精易论坛龙

我很低调 发表于 2025-7-21 21:28
不行 第一行还是变成1了

行了没有，要不然留个QQ，你把界面哪个地方要改截图，我帮你再改下。

cherryy

数值互换.e (967.03 KB, 下载次数: 0)

昨天 22:15 上传

点击文件名下载附件 ，简单写法，看看是不是这个效果

cunanhai

有注释 看一下就明白了

  

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

变量名	类 型	静态	数组	备 注
当前项文本	文本型
当前项数值	整数型

如果真 (列表框1.现行选中项 ＋ 1 ＜ 列表框1.取项目数 () 且 列表框1.现行选中项 ≠ -1)  ' 因为要下移,所以不能是最后一项,也要排除没有选择的时候
当前项文本 ＝ 列表框1.取项目文本 (列表框1.现行选中项)  ' 保存选中项的文本和数值
当前项数值 ＝ 列表框1.取项目数值 (列表框1.现行选中项)
列表框1.置项目文本 (列表框1.现行选中项, 列表框1.取项目文本 (列表框1.现行选中项 ＋ 1))  ' 因为是下移,已经保存了选中项,所以下一项的内容和数值覆盖到选中项中
列表框1.置项目数值 (列表框1.现行选中项, 列表框1.取项目数值 (列表框1.现行选中项 ＋ 1))
列表框1.置项目文本 (列表框1.现行选中项 ＋ 1, 当前项文本)  ' 然后再把保存的选中项内容覆盖到下面一项
列表框1.置项目数值 (列表框1.现行选中项 ＋ 1, 当前项数值)
' 这样就完成了交换

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

变量名	类 型	静态	数组	备 注
当前项文本	文本型
当前项数值	整数型

如果真 (列表框1.现行选中项 ＞ 0) ' 这里只要选中项大于0就说明已经选中并且不是第一项
当前项文本 ＝ 列表框1.取项目文本 (列表框1.现行选中项)
当前项数值 ＝ 列表框1.取项目数值 (列表框1.现行选中项)
列表框1.置项目文本 (列表框1.现行选中项, 列表框1.取项目文本 (列表框1.现行选中项 － 1))
列表框1.置项目数值 (列表框1.现行选中项, 列表框1.取项目数值 (列表框1.现行选中项 － 1))
列表框1.置项目文本 (列表框1.现行选中项 － 1, 当前项文本)
列表框1.置项目数值 (列表框1.现行选中项 － 1, 当前项数值)

.版本 2<br /> <br /> .子程序 _下移项目_被选择<br /> .局部变量 当前项文本, 文本型<br /> .局部变量 当前项数值, 整数型<br /> <br /> .如果真 (列表框1.现行选中项 ＋ 1 ＜ 列表框1.取项目数 () 且 列表框1.现行选中项 ≠ -1)  ' 因为要下移,所以不能是最后一项,也要排除没有选择的时候<br />     当前项文本 ＝ 列表框1.取项目文本 (列表框1.现行选中项)  ' 保存选中项的文本和数值<br />     当前项数值 ＝ 列表框1.取项目数值 (列表框1.现行选中项)<br />     列表框1.置项目文本 (列表框1.现行选中项, 列表框1.取项目文本 (列表框1.现行选中项 ＋ 1))  ' 因为是下移,已经保存了选中项,所以下一项的内容和数值覆盖到选中项中<br />     列表框1.置项目数值 (列表框1.现行选中项, 列表框1.取项目数值 (列表框1.现行选中项 ＋ 1))<br />     列表框1.置项目文本 (列表框1.现行选中项 ＋ 1, 当前项文本)  ' 然后再把保存的选中项内容覆盖到下面一项<br />     列表框1.置项目数值 (列表框1.现行选中项 ＋ 1, 当前项数值)<br /> .如果真结束<br /> ' 这样就完成了交换<br /> <br /> .子程序 _上移项目_被选择<br /> .局部变量 当前项文本, 文本型<br /> .局部变量 当前项数值, 整数型<br /> <br /> .如果真 (列表框1.现行选中项 ＞ 0) '这里只要选中项大于0就说明已经选中并且不是第一项<br />     当前项文本 ＝ 列表框1.取项目文本 (列表框1.现行选中项)<br />     当前项数值 ＝ 列表框1.取项目数值 (列表框1.现行选中项)<br />     列表框1.置项目文本 (列表框1.现行选中项, 列表框1.取项目文本 (列表框1.现行选中项 － 1))<br />     列表框1.置项目数值 (列表框1.现行选中项, 列表框1.取项目数值 (列表框1.现行选中项 － 1))<br />     列表框1.置项目文本 (列表框1.现行选中项 － 1, 当前项文本)<br />     列表框1.置项目数值 (列表框1.现行选中项 － 1, 当前项数值)

熬夜

https://bbs.125.la/forum.php?mod=viewthread&tid=13736718 现成的不要？