超级列表框 复制当前点击列的数据例子源码

超级列表框 复制当前点击列的数据例子源码

.版本 2
.支持库 iext

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕
.局部变量 i, 整数型
.局部变量 ii, 整数型
.局部变量 临时表象, 整数型

.计次循环首 (5, i)
    超级列表框1.插入列 (i － 1, “列” ＋ 到文本 (i), 150, , , )
.计次循环尾 ()
.计次循环首 (10, i)
    临时表象 ＝ 超级列表框1.插入表项 (, , , , , )
    .计次循环首 (5, ii)
        超级列表框1.置标题 (临时表象, ii － 1, “第” ＋ 到文本 (临时表象 ＋ 1) ＋ “行,第” ＋ 到文本 (ii) ＋ “列的内容”)
    .计次循环尾 ()
.计次循环尾 ()

.子程序 _超级列表框1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.局部变量 表项信息, 表项结构信息

表项信息.横向 ＝ 横向位置
表项信息.纵向 ＝ 纵向位置
取表项结构信息 (超级列表框1.取窗口句柄 (), 4153, 0, 表项信息)
全局_当前点击列 ＝ 表项信息.列
编辑框1.内容 ＝ 超级列表框1.取标题 (表项信息.行, 表项信息.列)

.子程序 _超级列表框1_被双击, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

置剪辑板文本 (超级列表框1.取标题 (超级列表框1.现行选中项, 全局_当前点击列))

@再哭就吻你