精易论坛

标题: 数值互换求助 [打印本页]

---

作者: 我很低调    时间: 3 天前
标题: 数值互换求助
数值互换.e (965.78 KB, 下载次数: 10)

3 天前 上传

点击文件名下载附件

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

---

作者: 1173847128    时间: 3 天前

  

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

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

如果真 (列表框1.现行选中项 ＋ 1 ≠ 列表框1.取项目数 ())
文本 ＝ 列表框1.取项目文本 (列表框1.现行选中项)
数值 ＝ 列表框1.取项目数值 (列表框1.现行选中项)
列表框1.插入项目 (列表框1.现行选中项 ＋ 2, 文本, 数值)
列表框1.删除项目 (列表框1.现行选中项)

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

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

如果真 (列表框1.现行选中项 － 1 ≠ 列表框1.取项目数 ())
文本 ＝ 列表框1.取项目文本 (列表框1.现行选中项)
数值 ＝ 列表框1.取项目数值 (列表框1.现行选中项)
列表框1.插入项目 (列表框1.现行选中项 － 1, 文本, 数值)
列表框1.删除项目 (列表框1.现行选中项)
‘解决结贴~~~~~~~~’

.版本 2<br /> <br /> .子程序 _下移项目_被选择<br /> .局部变量 文本, 文本型<br /> .局部变量 数值, 整数型<br /> <br /> .如果真 (列表框1.现行选中项 ＋ 1 ≠ 列表框1.取项目数 ())<br />     文本 ＝ 列表框1.取项目文本 (列表框1.现行选中项)<br />     数值 ＝ 列表框1.取项目数值 (列表框1.现行选中项)<br />     列表框1.插入项目 (列表框1.现行选中项 ＋ 2, 文本, 数值)<br />     列表框1.删除项目 (列表框1.现行选中项)<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 _上移项目_被选择<br /> .局部变量 文本, 文本型<br /> .局部变量 数值, 整数型<br /> <br /> .如果真 (列表框1.现行选中项 － 1 ≠ 列表框1.取项目数 ())<br />     文本 ＝ 列表框1.取项目文本 (列表框1.现行选中项)<br />     数值 ＝ 列表框1.取项目数值 (列表框1.现行选中项)<br />     列表框1.插入项目 (列表框1.现行选中项 － 1, 文本, 数值)<br />     列表框1.删除项目 (列表框1.现行选中项)<br /> ‘解决结贴~~~~~~~~’

---

作者: 精易论坛龙    时间: 3 天前
我帮你修改好了。

---

作者: 精易论坛龙    时间: 3 天前
不知道有没有上传成功。你自己下载。

互换.e

3 天前 上传

点击文件名下载附件

1.08 MB, 下载次数: 2

---

作者: 精易论坛龙    时间: 3 天前
选中列表框项目，点击，上移、下移，就可以互换位置。你自己看看是不是这样功能

---

作者: 我很低调    时间: 3 天前

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

不行 第一行还是变成1了

---

作者: 精易论坛龙    时间: 3 天前

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

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

---

作者: 精易论坛龙    时间: 3 天前

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

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

---

作者: cherryy    时间: 3 天前
数值互换.e (967.03 KB, 下载次数: 0)

3 天前 上传

点击文件名下载附件

，简单写法，看看是不是这个效果

---

作者: cunanhai    时间: 3 天前
有注释 看一下就明白了

  

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

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

如果真 (列表框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, 当前项数值)

---

作者: 熬夜    时间: 3 天前
https://125.confly.eu.org/forum.php?mod=viewthread&tid=13736718 现成的不要？

---

作者: 1173847128    时间: 3 天前
楼上的大哥代码看的头疼

---

作者: 1173847128    时间: 3 天前

cunanhai 发表于 2025-7-21 22:54
有注释 看一下就明白了

[e=0].版本 2

大佬打字很累吧我4句解决

---

欢迎光临 精易论坛 (https://125.confly.eu.org/)

Powered by Discuz! X3.4