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

听说ts

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




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

听说ts

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


超级列表框_选择复制删除_替换所有被选中项标题 https://bbs.125.la/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 /> .如果真结束

XJxaiojing

666666666666666

yuzhong

444444444444444444444444444444

anzh4

感谢楼主分享

神奇的哆啦A梦

支持开源~！感谢分享

sgsg

.版本 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

.版本 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) .如果真结束

熊不熊

感谢分享，很给力！~

1347379245

感谢分享

zifeiyu

66666666666666666666666