纯API实现易语言超级列表框单行变色教程高亮更新行(含源码)-可达鸭小栈

智谱

AI 正在加载摘要

在易语言开发中，超级列表框是我们展示数据的常用组件。然而，它有一个经典的“硬伤”——无法直接单独修改某一行的字体颜色或背景色。

这在实际应用中会带来很大的不便。例如，当列表框中有大量数据，而只有某一行数据被更新时，用户很难在茫茫列表中快速定位到这一行。如果能让这一行“变个颜色”，问题就迎刃而解了。

今天，我将分享一段实用的代码，它通过子类化技术，巧妙地实现了超级列表框的单行变色功能。无论你是想高亮显示更新的数据，还是标记特殊状态的行，这段代码都能帮你轻松搞定。

一、最终效果预览

通过本文的代码，你可以实现这样的效果：

在超级列表框中，只将指定的某一行（或多行）的文字显示为红色。
其他行保持默认的黑色。
当数据更新时，只需将对应行的索引加入“高亮队列”，该行就会自动变色，用户一眼就能看到变化。
二、核心原理浅析

易语言的超级列表框在绘制时，会向窗口发送一个名为 NM_CUSTOMDRAW 的消息（即自定义绘制消息）。我们通过 子类化（Subclassing）技术，拦截这个消息，并在绘制每一行时判断其行号是否在我们预设的“高亮行号数组”中。如果是，我们就修改绘制信息中的文本颜色，从而实现变色。

整个过程并不复杂，关键在于处理 WM_NOTIFY 消息下的 NM_CUSTOMDRAW 通知。

核心实现代码：

.版本 2
.支持库 spec

.子程序 列表框_颜色回调, 整数型
.参数 参数_窗口句柄, 整数型, , 窗口句柄
.参数 参数_消息号, 整数型, , 消息号
.参数 参数_wParam, 整数型
.参数 参数_信息指针, 整数型
.局部变量 局部_设置信息, NMLVCUSTOMDRAW
.局部变量 i, 整数型

.判断开始 (参数_消息号 ＝ 78)
    RtlMoveMemory (局部_设置信息, 参数_信息指针, 104)
    .如果真 (局部_设置信息.code ＝ -12 且 局部_设置信息.hwndFrom ＝ 程序集_列表框句柄)
        .判断开始 (局部_设置信息.dwDrawStage ＝ 1)
            返回 (32)
        .判断 (局部_设置信息.dwDrawStage ＝ 65537)
            返回 (32)
        .判断 (局部_设置信息.dwDrawStage ＝ 196609)
            调试输出 (局部_设置信息.表项数值)
            .如果真 (局部_设置信息.表项数值 ≥ 0)
                .计次循环首 (取数组成员数 (变色行号), i)
                    .如果真 (局部_设置信息.dwItemSpec ＝ 变色行号 [i])  ' 判断是否属于需要更新的一行

                        局部_设置信息.文本颜色 ＝ #红色

                        局部_设置信息.背景颜色 ＝ #白色

                        RtlMoveMemory_ (参数_信息指针, 局部_设置信息, 104)
                    .如果真结束

                .计次循环尾 ()
            .如果真结束

        .默认

        .判断结束

    .如果真结束

.默认

.判断结束

返回 (CallWindowProcA (程序集_窗口原地址, 参数_窗口句柄, 参数_消息号, 参数_wParam, 参数_信息指针))

如果你想取消某行的变色，只需从 变色行号 数组中移除该索引，并调用 重画() 即可。