进度条_滚动 的修改优化 - 不确定进度条

gytxtx

前言

之前看到了这个帖子，就在思考为什么要额外加一个时钟来处理进度条滚动逻辑

帖子链接：https://bbs.125.la/forum.php?mod=viewthread&tid=14138243

之后，也查阅了 Microsoft Docs，并且也询问了 ChatGPT，才知道不确定进度条原来可以自动滚动

• Microsoft Docs: https://learn.microsoft.com/zh-cn/windows/win32/controls/progress-bar-control
• ChatGPT 对话链接: https://chatgpt.com/share/677e7bdb-5878-8003-b6c7-7348e7a2eeb5
  

之后写着写着，我朋友告诉我，原来精易模块有原理一样的 进度条_滚动()，那我不是白写了吗
没办法了，之后我根据 进度条_滚动() 的实现逻辑对我的代码进行了一下修改，各位可以看作是 进度条_滚动() 的扩充，具体修改如下：

• 设置为不确定进度条后，可以恢复为普通进度条
• 可使用时钟控制滚动速度（和 Windows 进度条的自动滚动差不多）
• 更好的错误处理与边界检查
  

参考 (来源于 ChatGPT)

Windows 进度条控件的滚动实现与扩展

背景与功能概述

进度条控件是一种广泛应用于 Windows 窗口程序的用户界面元素，用于显示任务的进度。在某些场景中，例如文件加载或网络请求，具体的进度百分比可能无法确定，此时需要使用“不确定模式”的进度条，通过滚动动画表示任务正在进行。

Windows 提供了自动滚动的 API 支持，可以通过设置进度条的 PBS_MARQUEE 样式和发送 PBM_SETMARQUEE 消息轻松实现滚动效果。然而，许多开发者对这项功能了解不多，甚至额外使用时钟事件来模拟滚动逻辑，这不仅增加了开发复杂度，还浪费了系统资源。

核心 Windows API 解析

以下是实现不确定模式进度条涉及的主要 Windows API：

• IsWindow

  • 功能：验证窗口句柄是否有效。
  • 用途：确保传递的窗口句柄是合法的进度条控件。

• GetWindowLong / SetWindowLong

  • 功能：获取或修改窗口的长整型属性值（例如窗口样式）。
  • 用途：获取进度条的当前样式并修改为 PBS_MARQUEE。

• SendMessageA

  • 功能：向窗口发送消息。
  • 用途：控制进度条的滚动行为，例如启用/禁用动画、设置滚动延迟等。

默认滚动实现

设置“不确定模式”的默认逻辑如下：

1. 验证窗口句柄是否合法。
2. 获取当前窗口样式，并添加 PBS_MARQUEE 标志。
3. 通过 SendMessageA 发送 PBM_SETMARQUEE 消息，设置滚动动画的时间间隔（默认 30 毫秒）。

示例代码：

```易语言
.版本 2

.子程序 设置不确定模式, 逻辑型
.参数 窗口句柄, 整数型
.参数 滚动延迟, 整数型, 可空, 默认为 30 毫秒

.局部变量 当前样式, 整数型

' 验证窗口句柄是否有效
.如果真 (IsWindow (窗口句柄) ＝ 0)
返回 (假)
.如果真结束

当前样式 ＝ GetWindowLongA (窗口句柄, #GWL_STYLE)
当前样式 ＝ 位或 (当前样式, #PBS_MARQUEE)
SetWindowLongA (窗口句柄, #GWL_STYLE, 当前样式)

.如果真 (滚动延迟 <= 0)
滚动延迟 ＝ 30
.如果真结束

返回 (SendMessageA (窗口句柄, #PBM_SETMARQUEE, #TRUE, 滚动延迟) ＝ 1)

#### **优化与扩展实现**
在原有逻辑基础上，增加以下功能：

1. **支持普通模式的恢复**
   - 通过移除 `PBS_MARQUEE` 样式，将进度条恢复为普通模式。
   - 适用于需要动态切换进度条模式的场景。

2. **参数校验**
   - 确保滚动延迟值在合理范围内（例如 10~500 毫秒）。
   - 对非法窗口句柄进行提前退出处理。

3. **兼容手动滚动**
   - 在不使用系统自动滚动的场景下，可以通过时钟事件实现自定义滚动效果，提供更高的灵活性。

扩展后的代码如下：

```易语言
.版本 2

.子程序 设置进度条模式, 逻辑型, 公开
.参数 窗口句柄, 整数型
.参数 启用不确定模式, 逻辑型, 可空, 默认为 真
.参数 滚动延迟, 整数型, 可空, 默认为 30 毫秒

.局部变量 当前样式, 整数型

' 验证窗口句柄是否有效
.如果真 (IsWindow (窗口句柄) ＝ 0)
    返回 (假)
.如果真结束

当前样式 ＝ GetWindowLongA (窗口句柄, #GWL_STYLE)

.如果真 (启用不确定模式)
    当前样式 ＝ 位或 (当前样式, #PBS_MARQUEE)
    SetWindowLongA (窗口句柄, #GWL_STYLE, 当前样式)

    .如果真 (是否为空 (滚动延迟) 或 滚动延迟 ＜ 10 或 滚动延迟 ＞ 500)
        滚动延迟 ＝ 30
    .如果真结束

    返回 (SendMessageA (窗口句柄, #PBM_SETMARQUEE, #TRUE, 滚动延迟) ＝ 1)
.否则
    当前样式 ＝ 位与 (当前样式, 位取反 (#PBS_MARQUEE))
    SetWindowLongA (窗口句柄, #GWL_STYLE, 当前样式)
    返回 (SendMessageA (窗口句柄, #PBM_SETMARQUEE, #FALSE, 0) ＝ 1)
.如果真结束

实践中的问题与解决方案

1. 时钟 vs 自动滚动

   • 系统自动滚动（PBM_SETMARQUEE）是首选方案，能有效减少开发复杂度和资源消耗。
   • 时钟滚动适用于需要自定义动画效果的场景，但要注意性能优化。

2. 参数边界处理

   • 增加滚动延迟的合理范围限制，避免超大值导致动画卡顿或性能问题。

3. 兼容性检查

   • 确保项目引用了 Comctl32.dll 版本 6.0 或更高版本，否则 PBS_MARQUEE 将不起作用。

上方内容来源于 ChatGPT，算是一个很好的原理介绍与总结了（至少比我写的好）

源码下载

不确定进度条使用例程 By KFACBT.e (71.35 KB, 下载次数: 19)

2025-1-8 21:51 上传

点击文件名下载附件

蓝奏云下载地址

如果您没有精币，但是还想下载源代码，请点击下方链接进行下载：

[HTML] 纯文本查看 复制代码

https://wwcw.lanzoue.com/iIe1X2kd6o5g
密码:ba9d

使用

本源码各位可随意转载、使用。

gytxtx

lxn2wyf 发表于 2025-1-15 02:42
哦哟，这思路有点意思啊，不过直接用时钟感觉有点复杂呢，还有没有更简单的法子呀。 ...

模块里面自带自动滚动，可以脱离时钟工作的

kenan236

6666666666666666666

lxn2wyf

哦哟，这思路有点意思啊，不过直接用时钟感觉有点复杂呢，还有没有更简单的法子呀。

zjbdsg

6666666666666666666

胖子葛格

感谢大神分享~！

查过

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

豆豆灰常开心

下个学习一下

year1970

感谢分享

查过

感谢发布原创作品，精易因你更精彩！6666666666666