易语言闹钟源码，最简洁的

豆豆灰常开心

已经顶贴，感谢您对论坛的支持！

查过

感谢分享，很给力！~

幻想大人

wh1234567 发表于 2024-7-10 00:17
点击超级列表框，如何获得鼠标所在第几列？

上一个回答不够严谨，还是看这个回答

  

子程序名	返回值类型	公开	备 注
取鼠标列索引	整数型		返回选中项鼠标所在位置的列索引，没有选中项返回-1
参数名	类 型	参考	可空	数组	备 注
超级列表框对象	超级列表框

变量名	类 型	静态	数组	备 注
坐标	精易_坐标
起始位置	整数型
i	整数型

如果 (超级列表框对象.现行选中项 ≠ -1)
坐标 ＝ 窗口_取坐标 (超级列表框对象.取窗口句柄 ())
计次循环首 (超级列表框对象.取列数 (), i)
如果 (坐标.横 ＞ 起始位置 ＋ 超级列表框对象.取列宽 (i － 1))
起始位置 ＝ 起始位置 ＋ 超级列表框对象.取列宽 (i － 1)
跳出循环 ()

计次循环尾 ()
返回 (i － 1)
返回 (-1)

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 取鼠标列索引, 整数型, , 返回选中项鼠标所在位置的列索引，没有选中项返回-1<br /> .参数 超级列表框对象, 超级列表框<br /> .局部变量 坐标, 精易_坐标<br /> .局部变量 起始位置, 整数型<br /> .局部变量 i, 整数型<br /> <br /> .如果 (超级列表框对象.现行选中项 ≠ -1)<br />     坐标 ＝ 窗口_取坐标 (超级列表框对象.取窗口句柄 ())<br />     .计次循环首 (超级列表框对象.取列数 (), i)<br />         .如果 (坐标.横 ＞ 起始位置 ＋ 超级列表框对象.取列宽 (i － 1))<br />             起始位置 ＝ 起始位置 ＋ 超级列表框对象.取列宽 (i － 1)<br />         .否则<br />             跳出循环 ()<br />         .如果结束<br /> <br />     .计次循环尾 ()<br />     返回 (i － 1)<br /> .否则<br />     返回 (-1)

momoko001

感谢分享，很给力！~

幻想大人

wh1234567 发表于 2024-7-10 00:17
点击超级列表框，如何获得鼠标所在第几列？

  

子程序名	返回值类型	公开	备 注
取鼠标列索引	整数型		返回选中项鼠标所在位置的列索引，没有选中项返回-1
参数名	类 型	参考	可空	数组	备 注
超级列表框对象	超级列表框

变量名	类 型	静态	数组	备 注
起始位置	整数型
i	整数型

如果 (超级列表框对象.现行选中项 ≠ -1)
起始位置 ＝ _启动窗口.左边 ＋ 超级列表框对象.左边
计次循环首 (超级列表框对象.取列数 (), i)
如果 (取鼠标水平位置 () ＞ 起始位置 ＋ 超级列表框对象.取列宽 (i － 1))
起始位置 ＝ 起始位置 ＋ 超级列表框对象.取列宽 (i － 1)
跳出循环 ()

计次循环尾 ()
返回 (i － 1)
返回 (-1)

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 取鼠标列索引, 整数型, , 返回选中项鼠标所在位置的列索引，没有选中项返回-1<br /> .参数 超级列表框对象, 超级列表框<br /> .局部变量 起始位置, 整数型<br /> .局部变量 i, 整数型<br /> <br /> .如果 (超级列表框对象.现行选中项 ≠ -1)<br />     起始位置 ＝ _启动窗口.左边 ＋ 超级列表框对象.左边<br />     .计次循环首 (超级列表框对象.取列数 (), i)<br />         .如果 (取鼠标水平位置 () ＞ 起始位置 ＋ 超级列表框对象.取列宽 (i － 1))<br />             起始位置 ＝ 起始位置 ＋ 超级列表框对象.取列宽 (i － 1)<br />         .否则<br />             跳出循环 ()<br />         .如果结束<br /> <br />     .计次循环尾 ()<br />     返回 (i － 1)<br /> .否则<br />     返回 (-1)

幻想大人

wodeqing 发表于 2024-7-10 00:07
我就是单纯觉着如果我是一个电脑，一直反复执行，这个代码。是有点枯燥乏味。。没太大的意思只是一句感慨 ...

不是啥玻璃心 ， 是你不懂装懂，还感觉自己说的很有道理

shuya1

感谢楼主无私奉献

wh1234567

点击超级列表框，如何获得鼠标所在第几列？

wodeqing

哥们你也太玻璃心了呀，我又没那么有意针对啥的，就当是玩笑话吧

wodeqing

幻想大人 发表于 2024-7-9 22:12
电脑不是看开机多久用多少电的  是看功耗，你要是24小时满载玩大型游戏  那肯定耗电 ...

我就是单纯觉着如果我是一个电脑，一直反复执行，这个代码。是有点枯燥乏味。。没太大的意思只是一句感慨。你要是觉着不适对你造成伤害删了就是。