|
[e].版本 2
.支持库 iext
.子程序 _超级列表框1_被双击, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.局部变量 计数, 整数型
表项信息.横向 = 横向位置
表项信息.纵向 = 纵向位置
取列表框行列 (超级列表框1.取窗口句柄 (), 4096 + 57, 0, 表项信息)
' 通过发送消息,获取超级列表框的行列信息
输出调试文本 (“行:” + 到文本 (表项信息.行))
输出调试文本 (“列:” + 到文本 (表项信息.列))
输出调试文本 (“----------------------------------”)
.如果真 (表项信息.行 ≠ -1)
取列表框坐标 (超级列表框1.取窗口句柄 (), 4096 + 16, 表项信息.行, 表项坐标)
' 通过发送消息,获取超级列表框的行坐标
组合框1.顶边 = 超级列表框1.顶边 + 表项坐标.纵 + 1
组合框1.左边 = 超级列表框1.左边 + 表项坐标.横
.如果真 (表项信息.列 = 0)
组合框1.左边 = 超级列表框1.左边 + 表项坐标.横
.如果真结束
.计次循环首 (表项信息.列, 计数)
组合框1.左边 = 超级列表框1.取列宽 (计数 - 1) + 组合框1.左边
.计次循环尾 ()
组合框1.宽度 = 超级列表框1.取列宽 (表项信息.列)
组合框1.可视 = 真
超级列表框1.禁止重画 ()
组合框1.获取焦点 ()[/e]
学习果子贴“超级列表框-插入编辑框”有得,胡乱写一个试试。 |
评分
-
查看全部评分
|