已审核词条 未审核词条

子程序名	返回值类型	公开	备 注
进度条_滚动	整数型		设置成功返回1，失败返回0。需要使用Windows通用组件库。
参数名	类 型	参考	可空	数组	备 注
进度条句柄	整数型
滚动速度	整数型				滚动速度默认为30，0为停止滚动。数值越大速度越慢，称之为滚动延迟应该是比较合适的。

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

' https://bbs.125.la/thread-14456319-1-1.html
OldStyle ＝ GetWindowLongA (进度条句柄, #GWL_STYLE )
如果真 (位与 (OldStyle, #PBS_MARQUEE ) ≠ #PBS_MARQUEE )
OldStyle ＝ 位异或 (OldStyle, #PBS_MARQUEE )
SetWindowLongA (进度条句柄, #GWL_STYLE, OldStyle)
判断 (是否为空 (滚动速度))
Speed ＝ 30
Speed ＝ 滚动速度

判断 (Speed ＞ 0)
返回 (SendMessageA (进度条句柄, #PBM_SETMARQUEE, 1, Speed)) ' 开始滚动
返回 (SendMessageA (进度条句柄, #PBM_SETMARQUEE, 0, 0)) ' 停止滚动


词条作者信息 使用例程