易语言模拟windows7进度条源码

资源介绍：

易语言模拟Windows7进度条源码例程程序调用API函数模拟实现Windows7进度条效果。

点评：需要选中： 是否使用Windows通用组件库6.0版（仅Windows程序有效）

资源作者：

易语言资源网

资源界面：

.版本 2

.程序集 窗口程序集1

.子程序 _时钟1_周期事件

进度条1.位置 ＝ 进度条1.位置 ＋ 1
.如果真 (进度条1.位置 ＝ 100)
    进度条1.位置 ＝ 0
.如果真结束



.子程序 __启动窗口_创建完毕
.局部变量 Progress, 整数型
.局部变量 Style, 整数型

Progress ＝ 进度条1.取窗口句柄 ()
Style ＝ GetWindowLong (Progress, #GWL_STYLE)
SetWindowLong (Progress, #GWL_STYLE, 位或 (Style, #PBS_MARQUEE))
' 本源码来自三叶资源网(www.sanye.cx)
' ''''''''''''''''''''''
按钮1.获取焦点 ()

资源下载：