调用GDI类模块实现的环形进度条源代码

.计次循环首 (值, i) ' 值 为进度默认数值 变量
角度 ＝ 四舍五入 (i ÷ 值, 2) × 100 ' 值 为进度默认数值 变量 整数型
调试输出 (角度)
延迟 (7) ' 高精度等待延迟
' -------------------------------------- 置外形
默认矩形 ＝ 制矩形L (0, 0, 置宽度, 置高度)
进度矩形 ＝ 制矩形L (0, 0, 默认矩形.宽度, 默认矩形.高度) ' 秒
' -------------------------------------- 创建背景色及图形
hDC ＝ GetDC (句柄)
Graphics.创建 (宽度, 高度)
Graphics.置平滑模式 (#平滑模式_最佳质量)
Graphics.置文本渲染模式 (#文本渲染模式_ClearType文本和hinting技术)
Graphics.清除 (RGB到ARGB (#白色))
' -------------------------------------- 画圆形
画弧形 (Graphics.取指针 (), 进度矩形, RGB到ARGB (#银白, 180), RGB到ARGB (取颜色值 (0, 224, 128), ), -90, 角度 × 3.6)
' -------------------------------------- 画中间文本
Brush.创建 (RGB到ARGB (取颜色值 (0, 224, 128), ))
文本矩形 ＝ 制矩形F (默认矩形.左边, 默认矩形.顶边, 默认矩形.宽度, 默认矩形.高度)
' -------------------------------------- 画进度数字
Graphics.画文本 (到文本 (角度) ＋ “%”, 字体, Brush, 文本矩形, 文本格式)
' -------------------------------------- 复制动画
Graphics.复制到DC (hDC)
Graphics.销毁 ()
Brush.销毁 ()
ReleaseDC (句柄, hDC)
.计次循环尾 ()