比较常用的进度条扩展风格

帅气与大侠 · 发表于 2019-9-9 22:53:57

通常处理一些大数据或者未知进度事件时，想展示一个进度来表示程序正在处理
易自带的进度条默认类型有限，可以通过发送消息来改变进度条风格类型为：滚动进度条
下面是截图效果和源代码

滚动进度条.e (96.09 KB, 下载次数: 15)

2019-9-9 22:53 上传

点击文件名下载附件

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

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

子程序名	返回值类型	公开	备注
滚动进度条	整数型		设置成功返回1，失败返回0。[论坛ID：aqwvwv]
参数名	类型	参考	可空	数组	备注
进度条句柄	整数型
滚动速度	整数型				滚动速度默认为30，0为停止滚动。数值越大速度越慢，称之为滚动延迟应该是比较合适的。

OldStyle ＝ GetWindowLong (进度条句柄, -16)
SetWindowLong (进度条句柄, -16, 选择 (位与 (OldStyle, 8) ＝ 8, OldStyle, 位异或 (OldStyle, 8)))

判断 (是否为空 (滚动速度))

Speed ＝ 30

Speed ＝滚动速度

判断 (Speed ＞ 0)

返回 (SendMessageA_整数 (进度条句柄, 1034, 1, Speed)) ' 开始滚动

返回 (SendMessageA_整数 (进度条句柄, 1034, 0, 0)) ' 停止滚动

子程序名	返回值类型	公开	备注
_按钮1_被单击

调试输出 (滚动进度条 (进度条1.取窗口句柄 (), 30))

子程序名	返回值类型	公开	备注
_按钮2_被单击

调试输出 (滚动进度条 (进度条1.取窗口句柄 (), 0))

i支持库列表	支持库注释
spec	特殊功能支持库

momo123 · 发表于 2019-9-22 19:45:24

在加了皮肤模块的情况下，是无效的，

帅气与大侠 · 发表于 2019-9-10 17:57:09

项目部004 发表于 2019-9-10 10:08
需要使用Windows通用组件库，否则无效果！

she皮肤是可以卸载指定组件的皮肤，所以还是可以用的- -

项目部004 · 发表于 2019-9-10 10:08:57

需要使用Windows通用组件库，否则无效果！

帅气与大侠 · 发表于 2019-9-10 09:03:35

Terrell 发表于 2019-9-10 01:16
但是这种滚动效果，在加了皮肤模块的情况下，是无效的，需要原生MFC界面才有用，不可以使用皮肤

通常皮肤模块都有卸载指定控件皮肤的功能，比如卸载进度条的皮肤

Rs子航 · 发表于 2019-9-10 07:54:45

支持了

Terrell · 发表于 2019-9-10 01:16:44

但是这种滚动效果，在加了皮肤模块的情况下，是无效的，需要原生MFC界面才有用，不可以使用皮肤

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

[已回应] 比较常用的进度条扩展风格