超级列表框禁止选择

heyujun · 发表于 2025-7-30 22:50:01

我想让超级列表框的第一行和第二行是禁止选中状态，除了第一行和第二行其他的可以选中，哪位大佬帮忙看一下，谢谢了。

zainex · 发表于 2025-7-30 22:50:02

选中了, 就重置选中项:

子程序名	返回值类型	公开	备注
_超级列表框1_左键单击表项

如果真 (超级列表框1.现行选中项＝ 0 或超级列表框1.现行选中项＝ 1)

超级列表框1.现行选中项＝ -1

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

效果:

例子.zip (1.2 KB, 下载次数: 2)

2224848 · 发表于 2025-7-30 23:06:18

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口

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

' 初始化超级列表框
初始化超级列表框 ()

' 添加测试数据

计次循环首 (10, i)

索引＝超级列表框1.插入表项 (, , , , , )

超级列表框1.置标题 (索引, 0, "项目" + 到文本 (i))

计次循环尾 ()

子程序名	返回值类型	公开	备注
初始化超级列表框

' 设置列
超级列表框1.插入列 (0, "名称", 100, , , )

' 设置行高
超级列表框1.发送信息 (4132, 0, 30) ' LVM_SETITEMHEIGHT

' 设置整行选择
超级列表框1.发送信息 (4150, 0, 1) ' LVM_SETEXTENDEDLISTVIEWSTYLE, LVS_EX_FULLROWSELECT

' 设置禁止选中前两行
超级列表框1.置行禁止状态 (0, 真)
超级列表框1.置行禁止状态 (1, 真)

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

变量名	类型	静态	数组	备注
点击行	整数型

点击行＝超级列表框1.取鼠标所在行 (横向位置, 纵向位置)
' 如果点击的是前两行，取消选中

如果真 (点击行＝ 0 或点击行＝ 1)

超级列表框1.取消选中 ()

返回假 ' 阻止默认行为

返回真
' ============== 扩展功能：置行禁止状态 ==============

子程序名	返回值类型	公开	备注
超级列表框_置行禁止状态
参数名	类型	参考	可空	数组	备注
行索引	整数型
是否禁止	逻辑型

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

样式＝超级列表框1.发送信息 (4141, 行索引, 0) ' LVM_GETITEMSTATE

如果 (是否禁止)

样式＝位或 (样式, 1) ' LVIS_DISABLED

样式＝位与 (样式, 位取反 (1))

超级列表框1.发送信息 (4142, 行索引, 样式) ' LVM_SETITEMSTATE
' 刷新显示
超级列表框1.刷新显示 ()
' ============== 扩展功能：取行禁止状态 ==============

子程序名	返回值类型	公开	备注
超级列表框_取行禁止状态	逻辑型
参数名	类型	参考	可空	数组	备注
行索引	整数型

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

样式＝超级列表框1.发送信息 (4141, 行索引, 1) ' LVM_GETITEMSTATE, 检查LVIS_DISABLED
返回 (位与 (样式, 1) ≠ 0)
' ============== 扩展功能：取消选中 ==============

子程序名	返回值类型	公开	备注
超级列表框_取消选中

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

计次循环首 (超级列表框1.取表项数 (), i)

超级列表框1.置状态图片 (i - 1, 0) ' 取消选中状态

计次循环尾 ()

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

.版本 2<br />
.支持库 iext<br />
<br />
.程序集 窗口程序集_启动窗口<br />
<br />
.子程序 __启动窗口_创建完毕<br />
    ' 初始化超级列表框<br />
    初始化超级列表框()<br />
    <br />
    ' 添加测试数据<br />
    .计次循环首(10, i)<br />
        索引 ＝ 超级列表框1.插入表项 (, , , , , )<br />
        超级列表框1.置标题(索引, 0, "项目" + 到文本(i))<br />
    .计次循环尾()<br />
<br />
.子程序 初始化超级列表框<br />
    ' 设置列<br />
    超级列表框1.插入列(0, "名称", 100, , , )<br />
    <br />
    ' 设置行高<br />
    超级列表框1.发送信息(4132, 0, 30)  ' LVM_SETITEMHEIGHT<br />
    <br />
    ' 设置整行选择<br />
    超级列表框1.发送信息(4150, 0, 1)  ' LVM_SETEXTENDEDLISTVIEWSTYLE, LVS_EX_FULLROWSELECT<br />
    <br />
    ' 设置禁止选中前两行<br />
    超级列表框1.置行禁止状态(0, 真)<br />
    超级列表框1.置行禁止状态(1, 真)<br />
<br />
.子程序 _超级列表框1_鼠标左键被按下, 逻辑型<br />
.参数 横向位置, 整数型<br />
.参数 纵向位置, 整数型<br />
.参数 功能键状态, 整数型<br />
.局部变量 点击行, 整数型<br />
<br />
点击行 ＝ 超级列表框1.取鼠标所在行(横向位置, 纵向位置)<br />
<br />
' 如果点击的是前两行，取消选中<br />
.如果真 (点击行 ＝ 0 或 点击行 ＝ 1)<br />
    超级列表框1.取消选中()<br />
    返回 假  ' 阻止默认行为<br />
.如果真结束<br />
<br />
返回 真<br />
<br />
' ============== 扩展功能：置行禁止状态 ==============<br />
.子程序 超级列表框_置行禁止状态<br />
.参数 行索引, 整数型<br />
.参数 是否禁止, 逻辑型<br />
.局部变量 样式, 整数型<br />
<br />
样式 ＝ 超级列表框1.发送信息(4141, 行索引, 0)  ' LVM_GETITEMSTATE<br />
.如果 (是否禁止)<br />
    样式 ＝ 位或(样式, 1)  ' LVIS_DISABLED<br />
.否则<br />
    样式 ＝ 位与(样式, 位取反(1))<br />
.如果结束<br />
<br />
超级列表框1.发送信息(4142, 行索引, 样式)  ' LVM_SETITEMSTATE<br />
<br />
' 刷新显示<br />
超级列表框1.刷新显示()<br />
<br />
' ============== 扩展功能：取行禁止状态 ==============<br />
.子程序 超级列表框_取行禁止状态, 逻辑型<br />
.参数 行索引, 整数型<br />
.局部变量 样式, 整数型<br />
<br />
样式 ＝ 超级列表框1.发送信息(4141, 行索引, 1)  ' LVM_GETITEMSTATE, 检查LVIS_DISABLED<br />
返回 (位与(样式, 1) ≠ 0)<br />
<br />
' ============== 扩展功能：取消选中 ==============<br />
.子程序 超级列表框_取消选中<br />
.局部变量 i, 整数型<br />
<br />
.计次循环首(超级列表框1.取表项数(), i)<br />
    超级列表框1.置状态图片(i - 1, 0)  ' 取消选中状态<br />
.计次循环尾()

cunanhai · 发表于 2025-7-30 23:33:31

2224848 发表于 2025-7-30 23:06
[e=1].版本 2
.支持库 iext

别告诉我你放AI里面跑一下没测试就直接发出来了......

TANC · 发表于 2025-7-31 00:34:42

11.e (16.88 KB, 下载次数: 4)

cunanhai · 发表于 2025-7-31 00:43:15

检查框.e (3.8 KB, 下载次数: 0)

cunanhai · 发表于 2025-7-31 00:58:43

检查框.e (12.53 KB, 下载次数: 3)

|﹎℡若即 · 发表于 2025-7-31 09:30:40

zainex 发表于 2025-7-30 23:48
选中了, 就重置选中项:
[e=1].版本 2
.支持库 iext

在这个源码基础上优化了一下，现在选中1、2不会显示了

14861411.e (3.1 KB, 下载次数: 7)

		自动登录	找回密码
密码			注册

[已解决] 超级列表框禁止选择

最佳答案

评分

点评