易语言GDI绘制进度条源码

资源介绍：

点击{开始}后请看一下说明操作：

在窗体鼠标单击拖动可以直接绘画！

在窗体鼠标右击拖动可以擦除绘画！

BY：梦飞鸟

窗口上创建两个进度条矩形场景，一个作为进度背景，一个作为进度演示条。

资源作者：

@三叶学习网

资源界面：

.版本 2

.程序集 窗口程序集1
.程序集变量 hdc, 整数型
.程序集变量 按下, 逻辑型
.程序集变量 Penhandle, 整数型, , , ' 本源码来自三叶资源网(www.sanye.cx)
.程序集变量 右键被按下, 逻辑型
.程序集变量 k, PAINTSTRUCT
.程序集变量 idSaved, 整数型
.程序集变量 whdc, 整数型

.子程序 __启动窗口_鼠标左键被按下, 逻辑型, , ' 本源码来自三叶资源网(www.sanye.cx)
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.局部变量 坐标, POINTAPI
.局部变量 i, , 静态

MoveToEx (hdc, 横向位置, 纵向位置, 坐标)  ' 移动画笔
按下 ＝ 真  ' 本源码来自三叶资源网(www.sanye.cx)
i ＝ i ＋ 1
TextOut (hdc, 横向位置, 纵向位置, 到文本 (i), 取文本长度 (到文本 (i)))  ' 输出文字

.子程序 __启动窗口_将被销毁

ReleaseDC (取窗口句柄 (), hdc)  ' 释放设备资源
ReleaseDC (取窗口句柄 (), whdc)  ' 释放设备资源
DeleteObject (Penhandle)  ' 删除画笔对象

.子程序 __启动窗口_鼠标位置被移动, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.局部变量 坐标, POINTAPI
.局部变量 矩形, 矩形_

.如果真 (按下)
    LineTo (hdc, 横向位置, 纵向位置)  ' 画直线
.如果真结束
.如果真 (右键被按下)
    矩形.左边 ＝ 横向位置 － 10
    矩形.顶边 ＝ 纵向位置 － 10
    矩形.右边 ＝ 横向位置 ＋ 10
    矩形.底边 ＝ 纵向位置 ＋ 10
    InvalidateRect (取窗口句柄 (), 矩形, 1)  ' 删除区域
.如果真结束
' 本源码来自三叶资源网(www.sanye.cx)

.子程序 __启动窗口_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

按下 ＝ 假  ' 本源码来自三叶资源网(www.sanye.cx)

.子程序 __启动窗口_鼠标右键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

右键被按下 ＝ 真

.子程序 __启动窗口_鼠标右键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

右键被按下 ＝ 假

.子程序 _按钮1_被单击

' RestoreDC (hdc, idSaved)
' Rectangle (hdc, 10, 10, 50, 40)
时钟1.时钟周期 ＝ 50
hdc ＝ GetDC (取窗口句柄 ())  ' 设备初使化...
whdc ＝ GetWindowDC (取窗口句柄 ())
Penhandle ＝ CreatePen (#PS_SOLID, 3, #紫色)  ' 创建画笔，宽度为3，类型（PS_SOLID）为实线，颜色为紫色
SelectObject (hdc, Penhandle)  ' 把画笔载入HDC（设备场景）
SelectObject (whdc, Penhandle)  ' 把画笔载入HDC（设备场景）
SetBkColor (hdc, 取颜色值 (244, 244, 244))  ' 把设备的背景颜色设为和窗口底色一样
SetTextColor (hdc, #红色)  ' 把设备的前景设为红色
' idSaved ＝ SaveDC (hdc)
编辑框1.可视 ＝ 假
按钮1.可视 ＝ 假

.子程序 进度条
.参数 进度值, 整数型
.参数 进度内容, 文本型, 可空
.局部变量 矩形, RECT
.局部变量 矩形2, RECT
.局部变量 hBrush, 整数型
.局部变量 Color, 小数型
.局部变量 i, 整数型
.局部变量 y, 整数型

矩形.Left ＝ 30
矩形.Top ＝ 2
矩形.Right ＝ 400  ' 本源码来自三叶资源网(www.sanye.cx)
矩形.Bottom ＝ 28
Rectangle (whdc, 矩形.Left, 矩形.Top, 矩形.Right, 矩形.Bottom)
矩形2.Left ＝ 32
矩形2.Top ＝ 矩形.Top ＋ 2
矩形2.Right ＝ (矩形.Right － 矩形.Left － 4) ÷ 100 × 进度值 ＋ 矩形2.Left
矩形2.Bottom ＝ 矩形.Bottom － 2
Color ＝ 255
y ＝ (矩形2.Right － 矩形2.Left) ＼ 2
DrawText (whdc, 进度内容, 取文本长度 (进度内容), 矩形2, 6)
.计次循环首 (y, i)
    矩形2.Left ＝ 30 ＋ i × 2
    矩形2.Right ＝ 矩形2.Left ＋ 1
    hBrush ＝ CreateSolidBrush (取颜色值 (75, 208, Color))
    FillRect (whdc, 矩形2, hBrush)
    DeleteObject (hBrush)
    Color ＝ Color － 0.5
    .如果真 (Color ＜ 0)
        Color ＝ 225
    .如果真结束
    ' 本源码来自三叶资源网(www.sanye.cx)
.计次循环尾 ()
' 本源码来自三叶资源网(www.sanye.cx)


.子程序 _时钟1_周期事件
.局部变量 i, , 静态

i ＝ i ＋ 1
进度条 (i, “梦飞鸟设计    已经完成” ＋ 到文本 (i) ＋ “%  ”)
.如果真 (i ＞ 99)
    i ＝ 0
    ' 时钟1.时钟周期 ＝ 0
.如果真结束


.子程序 __启动窗口_创建完毕

资源下载：