精易论坛

标题: 进度条_滚动 的修改优化 - 不确定进度条 [打印本页]

作者: gytxtx    时间: 2025-1-8 21:51
标题: 进度条_滚动 的修改优化 - 不确定进度条
本帖最后由 gytxtx 于 2025-1-9 19:07 编辑

前言

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

帖子链接:https://125.confly.eu.org/forum.php?mod=viewthread&tid=14138243

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


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



参考 (来源于 ChatGPT)


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


背景与功能概述


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


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


核心 Windows API 解析


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



默认滚动实现


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



  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, 下载次数: 28)

蓝奏云下载地址

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

[HTML] 纯文本查看 复制代码
https://wwcw.lanzoue.com/iIe1X2kd6o5g
密码:ba9d


使用

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



作者: 汉族    时间: 2025-1-8 22:34
就喜欢大佬最后一句  开朗  
作者: 雾削木    时间: 2025-1-8 22:35
很好的源码,使我的进度条滚动
作者: malin158    时间: 2025-1-9 00:12
        感谢你的支持,精易有你更精彩
作者: qq977352880    时间: 2025-1-9 06:30
收藏备用,感谢分享。

作者: 豆豆灰常开心    时间: 2025-1-9 07:16
全都是大佬~
作者: 查过    时间: 2025-1-9 07:20
感谢发布原创作品,精易因你更精彩!6666666666666
作者: shanyukun    时间: 2025-1-9 07:27
谢谢分享!
作者: 美味萝卜    时间: 2025-1-9 07:31
支持开源~!感谢分享
作者: kyo9766    时间: 2025-1-9 08:23
感谢详细的普及知识
作者: 一指温柔    时间: 2025-1-9 08:50
#在这里快速回复#支持开源~!感谢分享
作者: 李泽勇2    时间: 2025-1-9 09:22
写的很详细,感谢分享干货
作者: xiaoj88    时间: 2025-1-9 09:23
6666666666666666
作者: qqmqqg    时间: 2025-1-9 09:31
666666666666666666
作者: 1184798949    时间: 2025-1-9 10:05
感谢分享
作者: wjswzj0    时间: 2025-1-9 10:26
感谢分享
作者: lidusan    时间: 2025-1-9 11:21

感谢分享
作者: 初学易语言    时间: 2025-1-9 11:39
感谢分享
作者: 何浩文    时间: 2025-1-9 11:48
支持开源~!感谢分享
作者: pipicool    时间: 2025-1-9 16:13
学习一下
作者: cqcc    时间: 2025-1-9 17:13
支持开源~!感谢分享
作者: 伝天    时间: 2025-1-9 17:19
遥遥领先啊
作者: 卡卡1111    时间: 2025-1-9 18:19
支持开源~!感谢分享
作者: ttggnn    时间: 2025-1-9 21:09
感谢分享
作者: 豆豆灰常开心    时间: 2025-1-10 07:22
感谢发布原创作品,精易因你更精彩!6666666666666
作者: 查过    时间: 2025-1-10 07:26
感谢发布原创作品,精易因你更精彩!6666666666666
作者: year1970    时间: 2025-1-10 07:55
感谢分享
作者: 豆豆灰常开心    时间: 2025-1-11 07:17
下个学习一下
作者: 查过    时间: 2025-1-11 07:21
已经顶贴,感谢您对论坛的支持!
作者: 胖子葛格    时间: 2025-1-11 11:41
感谢大神分享~!
作者: zjbdsg    时间: 2025-1-14 23:30
6666666666666666666
作者: lxn2wyf    时间: 2025-1-15 02:42
哦哟,这思路有点意思啊,不过直接用时钟感觉有点复杂呢,还有没有更简单的法子呀。
作者: kenan236    时间: 2025-1-15 10:02
6666666666666666666
作者: gytxtx    时间: 2025-1-15 14:26
lxn2wyf 发表于 2025-1-15 02:42
哦哟,这思路有点意思啊,不过直接用时钟感觉有点复杂呢,还有没有更简单的法子呀。 ...

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




欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4