超级列表框添加右键菜单全选、复制、取消

易语言 2020-10-07 12:21:38

超级列表框添加右键菜单全选、复制、取消

.如果真 (超级列表框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)