外部超级列表框类 取鼠标指针所在的索引() 特定情况下失效

tianxian002

新版易语言默认勾选 使用Windows通用组件库6.0版【工具-系统配置-存根-是否使用Windows通用组件库6.0版】，此时 外部超级列表框.取鼠标指针所在的索引()命令可以正常返回鼠标所在的行号。但在WIN10环境下 超级列表框的表头和0行之间缺少表格线，导致界面不美观。

-------------------------------------------------------------------------------------------------
如果不使用 Windows通用组件库6.0版 ，WIN10环境下 超级列表框的表头和0行之间有表格线，
但是 外部超级列表框.取鼠标指针所在的索引()命令 始终返回-1 【模块版本v10.4.5】。
-------------------------------------------------------------------------------------------------
建议：移植 外部超级列表框_取鼠标处行列号（）中的代码 到  外部超级列表框.类取鼠标指针所在的索引()，略作修改，只返回行号。
-------------------------------------------------------------------------------------------------

  

子程序名	返回值类型	公开	备 注
取鼠标指针所在的索引	整数型		如果鼠标指针在超级列表框范围内，取当前其指向的项目索引

变量名	类 型	静态	数组	备 注
局_表项信息	表项结构信息
局_坐标	精易_坐标
结果	整数型

结果 ＝ SendMessageA (集_目标句柄, #LVM_GETHOTITEM, 0, 0)
判断 (结果 ≠ -1)
返回 (结果)


局_坐标 ＝ 窗口_取坐标 (集_目标句柄)
局_表项信息.横向 ＝ 局_坐标.横
局_表项信息.纵向 ＝ 局_坐标.纵
SendMessageA (集_目标句柄, #LVM_SUBITEMHITTEST, 0, 取数据_通用型 (局_表项信息))
返回 (局_表项信息.行)

.版本 2<br /> <br /> .子程序 取鼠标指针所在的索引, 整数型, 公开, 如果鼠标指针在超级列表框范围内，取当前其指向的项目索引<br /> .局部变量 局_表项信息, 表项结构信息<br /> .局部变量 局_坐标, 精易_坐标<br /> .局部变量 结果, 整数型<br /> <br /> 结果 ＝ SendMessageA (集_目标句柄, #LVM_GETHOTITEM, 0, 0)<br /> .判断开始 (结果 ≠ -1)<br />     返回 (结果)<br /> .默认<br /> <br />     局_坐标 ＝ 窗口_取坐标 (集_目标句柄)<br />     局_表项信息.横向 ＝ 局_坐标.横<br />     局_表项信息.纵向 ＝ 局_坐标.纵<br />     SendMessageA (集_目标句柄, #LVM_SUBITEMHITTEST, 0, 取数据_通用型 (局_表项信息))<br />     返回 (局_表项信息.行)

东方网络接单

men123

laojikiss200

66666666666666

zyw512

66666666666666666666666

沉默1212

666666666666666666666666