精易论坛

标题: 超级列表框_选择复制删除.ec [打印本页]

---

作者: 听说ts    时间: 2024-11-26 13:17
标题: 超级列表框_选择复制删除.ec


下面原作者链接，我只是编译成模块了，缺精币了，不要喷我
超级列表框，单选，多选，复制，删除
https://125.confly.eu.org/forum.php?mod=viewthread&tid=14834893
(出处: 精易论坛)




按ctrl 单选，鼠标空白处按左键拖动多选，右击可全选

超级列表框_选择复制删除.zip

2024-11-26 13:15 上传

点击文件名下载附件

下载积分: 精币 -2 枚

16.79 KB, 下载次数: 39, 下载积分: 精币 -2 枚

---

作者: 书希    时间: 2024-11-26 14:05
学习学习学习学习学习学习嘻嘻嘻

---

作者: yamiedie    时间: 2024-11-26 14:56
支持开源~！感谢分享

---

作者: 何浩文    时间: 2024-11-26 15:06
开源精神必须支持~

---

作者: aipca    时间: 2024-11-26 17:02
模块用着方便

---

作者: 听说ts    时间: 2024-11-26 18:39


新加了一个更换所有被选项指定列的子程序


超级列表框_选择复制删除_替换所有被选中项标题 https://125.confly.eu.org/forum.php?mod=viewthread&tid=14841497 (出处: 精易论坛)或者把下面源码粘贴到分享的源码程序集里面，自己编译就行

  

子程序名	返回值类型	公开	备 注
超级列表框_更换选中标题			所有被选中的行都会更换
参数名	类 型	参考	可空	数组	备 注
超级列表框名称	超级列表框
需更换的列	整数型
需更换的内容	文本型

变量名	类 型	静态	数组	备 注
次	整数型
选中项目	整数型		0
a	整数型

如果真 (超级列表框名称.是否被选择 (超级列表框名称.现行选中项))
选中项目 ＝ 超级列表框名称.取被选择表项 ()
计次循环首 (取数组成员数 (选中项目), a)
超级列表框名称.置标题 (选中项目 [a], 需更换的列, 需更换的内容)
计次循环尾 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 超级列表框_更换选中标题, , 公开, 所有被选中的行都会更换<br /> .参数 超级列表框名称, 超级列表框<br /> .参数 需更换的列, 整数型<br /> .参数 需更换的内容, 文本型<br /> .局部变量 次, 整数型<br /> .局部变量 选中项目, 整数型, , "0"<br /> .局部变量 a, 整数型<br /> <br /> .如果真 (超级列表框名称.是否被选择 (超级列表框名称.现行选中项))<br />     选中项目 ＝ 超级列表框名称.取被选择表项 ()<br />     .计次循环首 (取数组成员数 (选中项目), a)<br />         超级列表框名称.置标题 (选中项目 [a], 需更换的列, 需更换的内容)<br />     .计次循环尾 ()<br /> .如果真结束

---

作者: 听说ts    时间: 2024-11-26 18:43

aipca 发表于 2024-11-26 17:02
模块用着方便

是的，刚发现这个源码就马上编译成模块了

---

作者: 听说ts    时间: 2024-11-26 18:45

yamiedie 发表于 2024-11-26 14:56
支持开源~！感谢分享

大佬，你好有钱

---

作者: wmv520    时间: 2024-11-26 18:54
支持开源~！感谢分享

---

作者: zifeiyu    时间: 2024-11-26 19:37
6666666666666666666666

---

作者: pipicool    时间: 2024-11-26 20:47
学习一下

---

作者: 查过    时间: 2024-11-27 06:02
已经顶贴，感谢您对论坛的支持！

---

作者: 豆豆灰常开心    时间: 2024-11-27 06:06
感谢楼主分享！

---

作者: zifeiyu    时间: 2024-11-27 20:15
66666666666666666666666

---

作者: 1347379245    时间: 2024-11-27 23:55
感谢分享

---

作者: 熊不熊    时间: 2024-12-3 23:41
感谢分享，很给力！~

---

作者: sgsg    时间: 2024-12-5 16:32
.版本 2 .支持库 iext  .子程序 _超级列表框_右键单击表项, , 公开, 本源码来自易语言资源网(www.eyuyan.la) .参数 目标超级列表框, 超级列表框, , 超级列表框单选多选复制删除 .局部变量 ret, 整数型 .局部变量 mhwnd, 整数型, , , 父菜单句柄 .局部变量 选中项目, 整数型, , "0" .局部变量 a, 整数型 .局部变量 选中内容, 文本型, , "0" .局部变量 剪切板内容, 文本型 .局部变量 i, 整数型 .局部变量 剪切板内容, 文本型  剪切板内容 ＝ “” .如果真 (目标超级列表框.是否被选择 (目标超级列表框.现行选中项))     mhwnd ＝ CreatePopupMenu ()     AppendMenuA (mhwnd, 0, 1, “复制”)     AppendMenuA (mhwnd, 0, 2, “全选”)     AppendMenuA (mhwnd, 0, 3, “取消”)     AppendMenuA (mhwnd, 0, 4, “删除”)     ret ＝ TrackPopupMenuEx (mhwnd, 位或 (0, 256, 2), 取鼠标水平位置 (), 取鼠标垂直位置 (), 目标超级列表框.取窗口句柄 (), 0)     .如果真 (ret ＝ 1)         选中项目 ＝ 目标超级列表框.取被选择表项 ()         .计次循环首 (取数组成员数 (选中项目), a)             .计次循环首 (目标超级列表框.取列数 (), i)                 剪切板内容 ＝ 剪切板内容 ＋ 目标超级列表框.取标题 (选中项目 [a], i － 1) ＋ 字符 (9)             .计次循环尾 ()             剪切板内容 ＝ 剪切板内容 ＋ #换行符         .计次循环尾 ()         ' 调试输出 (za)         置剪辑板文本 (剪切板内容)     .如果真结束     .如果真 (ret ＝ 2)         .计次循环首 (目标超级列表框.取表项数 (), a)             目标超级列表框.选择表项 (a － 1)         .计次循环尾 ()     .如果真结束     .如果真 (ret ＝ 3)         .计次循环首 (目标超级列表框.取表项数 (), a)             目标超级列表框.取消表项选择 (a － 1)         .计次循环尾 ()      .如果真结束     .如果真 (ret ＝ 4)         .变量循环首 (目标超级列表框.取表项数 (), 0, -1, i)             .如果真 (目标超级列表框.是否被选择 (i) ＝ 真)                 目标超级列表框.删除表项 (i)             .如果真结束             处理事件 ()         .变量循环尾 ()     .如果真结束       DestroyMenu (mhwnd) .如果真结束

---

作者: sgsg    时间: 2024-12-5 16:34


.版本 2
.支持库 iext

.子程序 _超级列表框_右键单击表项, , 公开, 本源码来自易语言资源网(www.eyuyan.la)
.参数 目标超级列表框, 超级列表框, , 超级列表框单选多选复制删除
.局部变量 ret, 整数型
.局部变量 mhwnd, 整数型, , , 父菜单句柄
.局部变量 选中项目, 整数型, , "0"
.局部变量 a, 整数型
.局部变量 选中内容, 文本型, , "0"
.局部变量 剪切板内容, 文本型
.局部变量 i, 整数型


剪切板内容 ＝ “”
.如果真 (目标超级列表框.是否被选择 (目标超级列表框.现行选中项))
    mhwnd ＝ CreatePopupMenu ()
    AppendMenuA (mhwnd, 0, 1, “复制”)
    AppendMenuA (mhwnd, 0, 2, “全选”)
    AppendMenuA (mhwnd, 0, 3, “取消”)
    AppendMenuA (mhwnd, 0, 4, “删除”)
    ret ＝ TrackPopupMenuEx (mhwnd, 位或 (0, 256, 2), 取鼠标水平位置 (), 取鼠标垂直位置 (), 目标超级列表框.取窗口句柄 (), 0)
    .如果真 (ret ＝ 1)
        选中项目 ＝ 目标超级列表框.取被选择表项 ()
        .计次循环首 (取数组成员数 (选中项目), a)
            .计次循环首 (目标超级列表框.取列数 (), i)
                剪切板内容 ＝ 剪切板内容 ＋ 目标超级列表框.取标题 (选中项目 [a], i － 1) ＋ 字符 (9)
            .计次循环尾 ()
            剪切板内容 ＝ 剪切板内容 ＋ #换行符
        .计次循环尾 ()
        ' 调试输出 (za)
        置剪辑板文本 (剪切板内容)
    .如果真结束
    .如果真 (ret ＝ 2)
        .计次循环首 (目标超级列表框.取表项数 (), a)
            目标超级列表框.选择表项 (a － 1)
        .计次循环尾 ()
    .如果真结束
    .如果真 (ret ＝ 3)
        .计次循环首 (目标超级列表框.取表项数 (), a)
            目标超级列表框.取消表项选择 (a － 1)
        .计次循环尾 ()

    .如果真结束
    .如果真 (ret ＝ 4)
        .变量循环首 (目标超级列表框.取表项数 (), 0, -1, i)
            .如果真 (目标超级列表框.是否被选择 (i) ＝ 真)
                目标超级列表框.删除表项 (i)
            .如果真结束
            处理事件 ()
        .变量循环尾 ()
    .如果真结束


    DestroyMenu (mhwnd)
.如果真结束

---

作者: 神奇的哆啦A梦    时间: 2025-1-24 16:22

支持开源~！感谢分享

---

作者: anzh4    时间: 2025-1-25 21:11
感谢楼主分享

---

作者: yuzhong    时间: 2025-1-29 11:26
444444444444444444444444444444

---

作者: XJxaiojing    时间: 2025-1-30 01:30
666666666666666

---

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

Powered by Discuz! X3.4