超级列表框取选中列索引

职业法师

结合前辈代码和思路写了个子程序，分享给有用得到的易友

  

子程序名	返回值类型	公开	备 注
超级列表框_取选中列	整数型
参数名	类 型	参考	可空	数组	备 注
超级列表框	超级列表框

变量名	类 型	静态	数组	备 注
当前位置	整数型
当前列宽	整数型
水平位置	整数型
窗口坐标	精易_矩形
列索引	整数型
列数量	整数型
i	整数型

列数量 ＝ 超级列表框.取列数 ()
水平位置 ＝ 取鼠标水平位置 ()
窗口坐标 ＝ 窗口_取矩形 (窗口_取父句柄 (超级列表框.取窗口句柄 ()))
当前位置 ＝ 窗口坐标.左边 ＋ 超级列表框.左边
计次循环首 (列数量, i)
列索引 ＝ i － 1
当前列宽 ＝ 超级列表框.取列宽 (列索引)
如果真 (水平位置 ＞ 当前位置 且 水平位置 ≤ 当前位置 ＋ 当前列宽)
返回 (列索引)
当前位置 ＝ 当前位置 ＋ 当前列宽
计次循环尾 ()
返回 (-1)

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 超级列表框_取选中列, 整数型<br /> .参数 超级列表框, 超级列表框<br /> .局部变量 当前位置, 整数型<br /> .局部变量 当前列宽, 整数型<br /> .局部变量 水平位置, 整数型<br /> .局部变量 窗口坐标, 精易_矩形<br /> .局部变量 列索引, 整数型<br /> .局部变量 列数量, 整数型<br /> .局部变量 i, 整数型<br /> <br /> 列数量 ＝ 超级列表框.取列数 ()<br /> 水平位置 ＝ 取鼠标水平位置 ()<br /> 窗口坐标 ＝ 窗口_取矩形 (窗口_取父句柄 (超级列表框.取窗口句柄 ()))<br /> 当前位置 ＝ 窗口坐标.左边 ＋ 超级列表框.左边<br /> .计次循环首 (列数量, i)<br />     列索引 ＝ i － 1<br />     当前列宽 ＝ 超级列表框.取列宽 (列索引)<br />     .如果真 (水平位置 ＞ 当前位置 且 水平位置 ≤ 当前位置 ＋ 当前列宽)<br />         返回 (列索引)<br />     .如果真结束<br />     当前位置 ＝ 当前位置 ＋ 当前列宽<br /> .计次循环尾 ()<br /> 返回 (-1)

Angel57124

先收藏，谢谢分享

李泽勇2

还没用过，先收藏，谢谢分享！

sanam216

学习学习学习

year1970

感谢分享，学习一下

职业法师

  

子程序名	返回值类型	公开	备 注
超级列表框_取选中列	整数型
参数名	类 型	参考	可空	数组	备 注
超级列表框	超级列表框

变量名	类 型	静态	数组	备 注
当前位置	整数型
当前列宽	整数型
水平位置	整数型
窗口坐标	精易_矩形
列索引	整数型
列数量	整数型
i	整数型

列数量 ＝ 超级列表框.取列数 ()
水平位置 ＝ 取鼠标水平位置 ()
窗口坐标 ＝ 窗口_取矩形 (窗口_取父句柄 (超级列表框.取窗口句柄 ()))
当前位置 ＝ 窗口坐标.左边 ＋ 超级列表框.左边 － GetScrollPos (超级列表框.取窗口句柄 (), 0)
计次循环首 (列数量, i)
列索引 ＝ i － 1
当前列宽 ＝ 超级列表框.取列宽 (列索引)
如果真 (水平位置 ＞ 当前位置 且 水平位置 ≤ 当前位置 ＋ 当前列宽)
返回 (列索引)
当前位置 ＝ 当前位置 ＋ 当前列宽
计次循环尾 ()
返回 (-1)

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 超级列表框_取选中列, 整数型<br /> .参数 超级列表框, 超级列表框<br /> .局部变量 当前位置, 整数型<br /> .局部变量 当前列宽, 整数型<br /> .局部变量 水平位置, 整数型<br /> .局部变量 窗口坐标, 精易_矩形<br /> .局部变量 列索引, 整数型<br /> .局部变量 列数量, 整数型<br /> .局部变量 i, 整数型<br /> <br /> 列数量 ＝ 超级列表框.取列数 ()<br /> 水平位置 ＝ 取鼠标水平位置 ()<br /> 窗口坐标 ＝ 窗口_取矩形 (窗口_取父句柄 (超级列表框.取窗口句柄 ()))<br /> 当前位置 ＝ 窗口坐标.左边 ＋ 超级列表框.左边 － GetScrollPos (超级列表框.取窗口句柄 (), 0)<br /> .计次循环首 (列数量, i)<br />     列索引 ＝ i － 1<br />     当前列宽 ＝ 超级列表框.取列宽 (列索引)<br />     .如果真 (水平位置 ＞ 当前位置 且 水平位置 ≤ 当前位置 ＋ 当前列宽)<br />         返回 (列索引)<br />     .如果真结束<br />     当前位置 ＝ 当前位置 ＋ 当前列宽<br /> .计次循环尾 ()<br /> 返回 (-1)

这次完善了有横向滚动条导致获取选中列不准确，如有更好的代码欢迎易友贴上来一起分享

大刀刃

   感谢分享，学习一下

我非平凡

阿里云盘线上自动签到-自动更新token免部署

wgqxj

谢谢分享

我非平凡

阿里云盘线上自动签到-自动更新token免部署