超级列表框 单一选择 鼠标拖动多选问题

huanjushidai

鼠标只能在红色区域开始拖动多选列表，怎么在蓝色区域拖动鼠标多选列表呢？




补充内容 (2025-2-13 00:06):
shift键点选的我知道，需要鼠标拖动的办法

高先生

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
起始y	整数型
n	整数型
正在拖动	逻辑型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

子程序名	返回值类型	公开	备 注
_超级列表框1_鼠标左键被按下	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

起始y ＝ 纵向位置
正在拖动 ＝ 真
n ＝ 1

子程序名	返回值类型	公开	备 注
_超级列表框1_鼠标左键被放开	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

变量名	类 型	静态	数组	备 注
y距离	双精度小数型

正在拖动 ＝ 假
y距离 ＝ 纵向位置 － 起始y
调试输出 (“总移动距离” ＋ 到文本 (y距离))

子程序名	返回值类型	公开	备 注
_超级列表框1_鼠标位置被移动	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

变量名	类 型	静态	数组	备 注
x	整数型

n ＝ 起始y ÷ 15 － 1
如果真 (纵向位置 － 起始y ＝ 15)
调试输出 (纵向位置)
超级列表框1.选择表项 (超级列表框1.现行选中项 ＋ n)
起始y ＝ 起始y ＋ 15
处理事件 ()

i支持库列表	支持库注释
spec	特殊功能支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 spec<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 起始y, 整数型<br /> .程序集变量 n, 整数型<br /> .程序集变量 正在拖动, 逻辑型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> .子程序 _超级列表框1_鼠标左键被按下, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> 起始y ＝ 纵向位置<br /> 正在拖动 ＝ 真<br /> n ＝ 1<br /> <br /> .子程序 _超级列表框1_鼠标左键被放开, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 y距离, 双精度小数型<br /> <br /> 正在拖动 ＝ 假<br /> y距离 ＝ 纵向位置 － 起始y<br /> 调试输出 (“总移动距离” ＋ 到文本 (y距离))<br /> <br /> .子程序 _超级列表框1_鼠标位置被移动, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 x, 整数型<br /> <br /> n ＝ 起始y ÷ 15 － 1<br /> .如果真 (纵向位置 － 起始y ＝ 15)<br />     调试输出 (纵向位置)<br />     超级列表框1.选择表项 (超级列表框1.现行选中项 ＋ n)<br />     起始y ＝ 起始y ＋ 15<br /> .如果真结束<br /> 处理事件 ()

补充内容 (2025-2-13 00:06):
只能做到这样了 不知道和不和你意 15是行高

补充内容 (2025-2-13 00:07):
整行选择 设置为真

补充内容 (2025-2-13 00:08):
单一选择 设置为假

算法艺术家

跟什么颜色的区域没有关系，鼠标框选的起点 只能是没有数据的区域，红色的地方是空的 所以可以拖动，你要想多选 也可以按住SHift 再点鼠标多选，也可以按住CTRL键点选

huanjushidai

算法艺术家 发表于 2025-2-12 23:14
跟什么颜色的区域没有关系，鼠标框选的起点 只能是没有数据的区域，红色的地方是空的 所以可以拖动，你要想 ...

蓝色区域无法拖动鼠标多选，ctrl点选我知道

鹏书

按shift键多选啊

算法艺术家

huanjushidai 发表于 2025-2-12 23:39
蓝色区域无法拖动鼠标多选，ctrl点选我知道

你试试按住shift键，鼠标点首行，然后鼠标再点尾行

huanjushidai

高先生 发表于 2025-2-13 00:05
[e=2].版本 2
.支持库 spec
.支持库 iext

方法可以，但有bug  不灵敏 会卡住 无法往回拖

huanjushidai

高先生 发表于 2025-2-13 00:05
[e=2].版本 2
.支持库 spec
.支持库 iext

鼠标多拖几次就乱了

高先生

huanjushidai 发表于 2025-2-13 00:12
方法可以，但有bug  不灵敏 会卡住 无法往回拖

5JB 要啥自行车 思路给你 自己修一修

huanjushidai

高先生 发表于 2025-2-13 00:05
[e=2].版本 2
.支持库 spec
.支持库 iext

超级列表框 单一选择 鼠标拖动有bug乱跳动.e (4.19 KB, 下载次数: 4)

2025-2-14 02:15 上传

点击文件名下载附件   有bug 乱跳动，无法回拖，第二次拖动就乱了