易语言超级列表框与组合框应用

东方雪狼

易语言超级列表框与组合框应用
.版本 2
.支持库 iext
.程序集 窗口程序集1
.程序集变量 表项信息, 表项结构信息
.子程序 _超级列表框1_被双击, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.局部变量 表项坐标, 坐标
.局部变量 i, 整数型
表项信息.横向 ＝ 横向位置
表项信息.纵向 ＝ 纵向位置
取表项结构信息 (超级列表框1.取窗口句柄 (), 4153, 0, 表项信息)  ' 当前取表项行、列位置
输出调试文本 (“行：” ＋ 到文本 (表项信息.行))
输出调试文本 (“列：” ＋ 到文本 (表项信息.列))
输出调试文本 (“----------------------------------”)
.如果真 (表项信息.行 ≠ -1)
    添加组合框列表内容 (表项信息.列)
    取表项坐标信息 (超级列表框1.取窗口句柄 (), 4096 ＋ 16, 表项信息.行, 表项坐标)  ' 取出当前表项行列坐标点
    组合框1.顶边 ＝ 超级列表框1.顶边 ＋ 表项坐标.y ＋ 1
    组合框1.左边 ＝ 表项坐标.x ＋ 超级列表框1.左边
    .如果真 (表项信息.列 ＝ 0)
        组合框1.左边 ＝ 表项坐标.x ＋ 超级列表框1.左边
    .如果真结束
    .计次循环首 (表项信息.列, i)
        组合框1.左边 ＝ 组合框1.左边 ＋ 超级列表框1.取列宽 (i － 1)
    .计次循环尾 ()
    组合框1.宽度 ＝ 超级列表框1.取列宽 (表项信息.列)
    组合框1.内容 ＝ 超级列表框1.取标题 (表项信息.行, 表项信息.列)
    组合框1.可视 ＝ 真
    超级列表框1.禁止重画 ()
    组合框1.获取焦点 ()
    组合框1.被选择字符数 ＝ -1  ' 全选中编辑框中的内容
.如果真结束
编辑框1.内容 ＝ 到文本 (超级列表框1.顶边 ＋ 表项坐标.y ＋ 1)
编辑框2.内容 ＝ 到文本 (超级列表框1.左边 ＋ 表项坐标.x)
.子程序 _组合框1_放开某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.如果真 (键代码 ＝ #回车键)
    _组合框1_失去焦点 ()
.如果真结束

.子程序 _组合框1_失去焦点
超级列表框1.置标题 (表项信息.行, 表项信息.列, 组合框1.内容)
组合框1.可视 ＝ 假
超级列表框1.允许重画 ()
.子程序 添加组合框列表内容
.参数 列项, 整数型
.局部变量 i, 整数型
组合框1.清空 ()
.如果真 (列项 ＝ 0)
    组合框1.加入项目 (“斑马要吃人”, )
    组合框1.加入项目 (“斑马来了”, )
    组合框1.加入项目 (“斑马在传教”, )
.如果真结束
.如果真 (列项 ＝ 1)
    组合框1.加入项目 (“跑啊”, )
    组合框1.加入项目 (“胡汉三来了”, )
    组合框1.加入项目 (“上帝会原谅斑马”, )
.如果真结束
.如果真 (列项 ＝ 2)
    组合框1.加入项目 (“不跑会被吃”, )
    组合框1.加入项目 (“天啊”, )
    组合框1.加入项目 (“死人也能复活”, )
.如果真结束
组合框1.现行选中项 ＝ 0

半睡半醒

参考学习一下！

千年

还有一堆自定义数据呢，o(╯□╰)o

猎尘

设计的太搞笑了吧  文字

工程师8421

参考学习一下！

wki

下载看下中么样，有需要的没

sd213637

正需要这个，瞧瞧看

黑夜传说

{:3_227:}{:3_227:}{:3_227:}111

逍遥王子888

来学习学习{:3_233:}

し☆ve开水╮

居然没有下载地址