精易论坛
标题:
易语言超级列表框与组合框应用
[打印本页]
作者:
东方雪狼
时间:
2011-12-7 17:56
标题:
易语言超级列表框与组合框应用
易语言超级列表框与组合框应用
.版本 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
作者:
半睡半醒
时间:
2011-12-7 17:57
参考学习一下！
作者:
千年
时间:
2011-12-7 18:03
还有一堆自定义数据呢，o(╯□╰)o
作者:
猎尘
时间:
2011-12-12 15:16
设计的太搞笑了吧 文字
作者:
工程师8421
时间:
2012-2-22 20:01
参考学习一下！
作者:
wki
时间:
2012-4-25 16:08
下载看下中么样，有需要的没
作者:
sd213637
时间:
2012-5-26 11:25
正需要这个，瞧瞧看
作者:
黑夜传说
时间:
2012-5-28 14:31
{:3_227:}{:3_227:}{:3_227:}111
作者:
逍遥王子888
时间:
2012-6-5 00:01
来学习学习{:3_233:}
作者:
し☆ve开水╮
时间:
2012-6-18 15:15
居然没有下载地址
作者:
avatar007
时间:
2012-7-30 08:06
来学习下超级列表框……
作者:
cjahm
时间:
2012-8-27 18:35
好东西，我下载一个好好研究一下
作者:
米粥
时间:
2012-10-13 22:15
看看 我对超级列表框 很是蛋疼啊
作者:
amwrg
时间:
2012-11-17 13:13
正想学。。不过看来为了放一个组合框要这么代码。。。要是我在前面还想放个日期框 。。一行再加二三个组合框 。。那不是要我写到死啊
作者:
矿神
时间:
2014-4-5 01:17
能下载吗 有原代码吗
作者:
yinghao2005
时间:
2014-4-5 01:48
看过了也学习学习
作者:
agan
时间:
2014-5-22 20:35
参考学习一下！ 正好要用到这里，谢谢楼主！
作者:
377906028
时间:
2015-7-22 15:41
取表项坐标信息那个子程序怎么没有
怎么取的啊
作者:
钱小个
时间:
2016-3-20 21:40
在此学习了！参考一下！
作者:
hzhgf
时间:
2017-10-11 21:28
没看到源码啊
作者:
philly
时间:
2018-3-6 15:31
源码呢？们看到呀
作者:
zhuifengke3088
时间:
2018-7-7 08:56
源码在纳尼？
作者:
bigmojin
时间:
2020-9-24 14:52
调用API函数的内容就没有了，&……这个只能忽悠人吧
作者:
h556698
时间:
2020-12-15 14:03
666啊啊啊啊啊啊啊啊啊啊啊啊啊啊
作者:
nicklu993
时间:
2021-5-17 23:11
无法使用。还请明示
作者:
nicklu993
时间:
2021-5-17 23:12
取表项结构信息无法找到
作者:
147995293
时间:
2023-3-8 10:27
下载看下中么样，有需要的没
作者:
mimae
时间:
2023-8-30 04:05
ghfghftdhfghfghfdg
欢迎光临 精易论坛 (https://125.confly.eu.org/)
Powered by Discuz! X3.4
看看 我对超级列表框 很是蛋疼啊