易语言水晶进度条模块

.子程序 允许关闭, 逻辑型, 公开
.参数 窗口句柄, 整数型
.局部变量 系统菜单句柄, 整数型
.局部变量 矩形, 矩形_

系统菜单句柄 ＝ GetSystemMenu (窗口句柄, 0)
.如果真 (系统菜单句柄 ＝ 0)
返回 (假)
.如果真结束
EnableMenuItem (系统菜单句柄, 6, 1024)
.如果真 (取反 (取窗口矩形_ (窗口句柄, 矩形)))
返回 (假)
.如果真结束
.如果真 (取反 (重画窗口_ (0, 矩形, 0, 位或 (1, 128, 256))))
返回 (假)
.如果真结束
返回 (真)
易语言水晶进度条模块例子。