Question

易语言超级列表框问题

我想利用 _超级列表框1_右键单击表项 来弹出菜单 ，
如果单击右键选中表项的话 就会弹出菜单 并且获取表项内容，否则没有选中表项的话(就是空表项)就不弹出菜单。
我的目的就是 在没有表项或选中空表项的情况下超级列表框单击右键后不弹出菜单，否则弹出。
代码我写好了 可以弹出菜单 。不过在不选中表项的情况下单击右键会提示数组错误。
下面是代码：
.版本 2
.支持库 iext

.子程序 _超级列表框1_右键单击表项

弹出菜单 (提取标题, , )

.子程序 _提取表项标题_被选择
.局部变量 被选择表项数值, 整数型, , "0"

被选择表项数值 ＝ 超级列表框1.取被选择表项 ()
信息框 (超级列表框1.取标题 (被选择表项数值 [1], 0), 0, )

还有图 ，至于表项你就随便添加进去就行。成功追加20 ！废话有点多了。
忘了上图...

Answer 1

.版本 2
.支持库 iext

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕

超级列表框1.整行选择 ＝ 真
超级列表框1.单一选择 ＝ 假

.子程序 _超级列表框1_右键单击表项

.如果真 (超级列表框1.现行选中项 ≠ -1) ' 屏蔽它干毛！！！，只要下面的数组不操作错误就没事了
弹出菜单 (提取标题, , )
.如果真结束

.子程序 _提取表项标题_被选择
.局部变量 被选择表项数值, 整数型, , "0"
.局部变量 i, 整数型

' 方法一
.如果真 (超级列表框1.现行选中项 ≠ -1)
信息框 (超级列表框1.取标题 (超级列表框1.现行选中项, 0), 0, )
.如果真结束
' 方法二 可多个
.如果真 (超级列表框1.取已选择表项数 () ≠ 0)
列表框1.清空 ()
被选择表项数值 ＝ 超级列表框1.取被选择表项 ()
.计次循环首 (超级列表框1.取已选择表项数 (), i)
列表框1.加入项目 (超级列表框1.取标题 (被选择表项数值 [i], 0), )
.计次循环尾 ()
.如果真结束
' 楼主白痴， “信息框 (超级列表框1.取标题 (被选择表项数值 [1], 0), 0, )”
' “被选择表项数值” 是数组，在没选择表项的情况下此数组为0，而楼主引用该数组1，当然出错、、、

Answer 2

超级列表框事件里选择被单击事件，然后输入编辑框1.内容＝超级列表框1.取标题里面的一些列数可用现行选中