如何获取超级列表框所选择项的坐标

北冥

1355568730 发表于 2018-12-14 01:46
鼠标坐标不就间接等于选择项的坐标吗？还是我理解错了

我要取的是所选择当前选择项的左上角坐标为了方便我一个组件移动到这里来

shuxiang

大司命 发表于 2018-12-13 16:54
外部超级列表框_取鼠标处行列号 ()

这个不准，，，，，，，，，，，，，，，

hot1987115

精易模块 类
外部超级列表框.取表项位置 (索引, 点)

hot1987115

.版本 2
.支持库 iext
.支持库 spec

.子程序 _超级列表框_字段提取_被双击, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.局部变量 超级列表框对象, 超级列表框
.局部变量 外部, 外部超级列表框
.局部变量 点, POINT
.局部变量 偏移, 整数型
.局部变量 i, 整数型

超级列表框对象 ＝ 超级列表框_字段提取
表项信息.横向 ＝ 横向位置
表项信息.纵向 ＝ 纵向位置
取表项结构信息 (超级列表框对象.取窗口句柄 (), 4153, 0, 表项信息)
调试输出 (表项信息.flags)
.如果真 (表项信息.flags ＝ 4)  ' 为1时就是没有内容的区域
    编辑框_修改数据.可视 ＝ 真
    编辑框_修改数据.宽度 ＝ 超级列表框对象.取列宽 (表项信息.列)

    外部.初始化 (超级列表框对象.取窗口句柄 ())
    外部.取表项位置 (表项信息.行, 点)
    调试输出 (点.X, 点.Y)  ' 取出来的X有问题，始终为4，不知原因，那就用计算吧
    .计次循环首 (表项信息.列, i)
        偏移 ＝ 偏移 ＋ 超级列表框_字段提取.取列宽 (i － 1)
    .计次循环尾 ()
    编辑框_修改数据.左边 ＝ 超级列表框对象.左边 ＋ 偏移
    编辑框_修改数据.顶边 ＝ 超级列表框对象.顶边 ＋ 点.Y
    编辑框_修改数据.内容 ＝ 超级列表框对象.取标题 (表项信息.行, 表项信息.列)
    编辑框_修改数据.获取焦点 ()
    编辑框_修改数据.被选择字符数 ＝ -1