超级列表框取当前点击列索引的方法

lianzuo123

群里好几个易友问的,顺带昨天看到问答区也有人问.就一并写了发上来吧..
问答区原帖:http://bbs.125.la/forum.php?mod=viewthread&tid=13925734

该贴的写法只是提供一种思路,一种方法..


现在改写成通用的算法了.如有需要,可自行下载调用.

  

子程序名	返回值类型	公开	备 注
取当前点击列索引	整数型		返回点击列的索引,从0开始,失败返回-1,坐标超出范围返回-2
参数名	类 型	参考	可空	数组	备 注
List	超级列表框				类型必须为报表列表
PointX	整数型				点击的横坐标,可在鼠标位置被移动事件下获取

变量名	类 型	静态	数组	备 注
i	整数型
lineNum	整数型
Temp	整数型

lineNum ＝ List.取列数 ()
如果真 (lineNum ＝ 0)
返回 (-1)
计次循环首 (lineNum, i)
Temp ＝ Temp ＋ List.取列宽 (i － 1)
如果真 (PointX ≤ Temp)
返回 (i － 1)

计次循环尾 ()
返回 (-2)

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 取当前点击列索引, 整数型, , 返回点击列的索引,从0开始,失败返回-1,坐标超出范围返回-2<br /> .参数 List, 超级列表框, , 类型必须为报表列表<br /> .参数 PointX, 整数型, , 点击的横坐标,可在鼠标位置被移动事件下获取<br /> .局部变量 i, 整数型<br /> .局部变量 lineNum, 整数型<br /> .局部变量 Temp, 整数型<br /> <br /> lineNum ＝ List.取列数 ()<br /> .如果真 (lineNum ＝ 0)<br />     返回 (-1)<br /> .如果真结束<br /> .计次循环首 (lineNum, i)<br />     Temp ＝ Temp ＋ List.取列宽 (i － 1)<br />     .如果真 (PointX ≤ Temp)<br />         返回 (i － 1)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (-2)

超级列表框取当前点击列索引.rar (2.1 KB, 下载次数: 89)

2016-8-11 09:03 上传

点击文件名下载附件

龙大创翼

超级列表框列数

1025093309

谢谢楼主分享

hycody

谢谢楼主分享

包子陈

谢谢楼主分享，

lianzuo123

静等花落 发表于 2016-8-13 10:38
表头被单击事件中不是有个 被单击列索引 的参数吗？

那个是表头.这个是表项

静等花落

表头被单击事件中不是有个 被单击列索引 的参数吗？

yabiao159

学习了      

yuyun1888

lianzuo123你太牛了！！点赞+点赞！

天生我财

下来学习学习,谢谢分享!!

huixin

不错，谢谢分享