超级列表框操作

wzkwzk01

按Ctrl，鼠标点击可复选，按Shift，鼠标点击连续复选，Ctrl+A全选，怎么实现呢？

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
索引	整数型
i	整数型

计次循环首 (1000, i)
索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, , “你好中国”)
计次循环尾 ()
自动调整 ()

子程序名	返回值类型	公开	备 注
自动调整

变量名	类 型	静态	数组	备 注
i	整数型

计次循环首 (超级列表框1.取列数 (), i)
超级列表框1.发送信息 (4126, i － 1, -2)
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_超级列表框1_按下某键	逻辑型
参数名	类 型	参考	可空	数组	备 注
键代码	整数型
功能键状态	整数型

' 按Shift或Ctrl可复选，Ctrl+A全选
' 调试输出 (键代码, 功能键状态, #A键)
如果 (键代码 ＝ #Alt键 ＋ #A键 )
调试输出 (键代码, 功能键状态)

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 索引, 整数型<br /> .局部变量 i, 整数型<br /> <br /> .计次循环首 (1000, i)<br />     索引 ＝ 超级列表框1.插入表项 (, , , , , )<br />     超级列表框1.置标题 (索引, , “你好中国”)<br /> .计次循环尾 ()<br /> 自动调整 ()<br /> <br /> .子程序 自动调整<br /> .局部变量 i, 整数型<br /> <br /> .计次循环首 (超级列表框1.取列数 (), i)<br />     超级列表框1.发送信息 (4126, i － 1, -2)<br /> .计次循环尾 ()<br /> <br /> .子程序 _超级列表框1_按下某键, 逻辑型<br /> .参数 键代码, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> ' 按Shift或Ctrl可复选，Ctrl+A全选<br /> ' 调试输出 (键代码, 功能键状态, #A键)<br /> .如果 (键代码 ＝ #Alt键 ＋ #A键)<br />     调试输出 (键代码, 功能键状态)

123456ppt

你发错帖子了吧，这是源码分享区，你把超级列表框的多项选择设置为真就可以了