超级列表框的数据选择复制

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

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

.计次循环尾 ()
置剪辑板文本 (剪切板内容)
.如果真结束
.如果真 (ret ＝ 2)
.计次循环首 (超级列表框2.取表项数 (), a)
超级列表框2.选择表项 (a － 1)
.计次循环尾 ()
.如果真结束
.如果真 (ret ＝ 3)
.计次循环首 (超级列表框2.取表项数 (), a)
超级列表框2.取消表项选择 (a － 1)
.计次循环尾 ()
.如果真结束
DestroyMenu (mhwnd)