易语言模拟电脑硬盘剩余容量和进度绘制源码

模拟电脑硬盘剩余容量和进度绘制

.版本 2
.支持库 eAPI

.程序集 窗口程序集_启动窗口

.子程序 _按钮1_被单击, , , 汉族制作
.局部变量 盘符, 文本型, , "0"
.局部变量 a, 整数型
.局部变量 剩余, 整数型

重定义数组 (盘符, 假, 取驱动器数量 (0))
盘符 ＝ 取驱动器列表 (0)
画板1.清除 (, , , )
.计次循环首 (取数组成员数 (盘符), a)
    .如果真 (取磁盘总空间 (盘符 [a]) ≠ -1)
        画板1.文本颜色 ＝ 取颜色值 (122, 125, 128)
        画板1.字体.字体大小 ＝ 11
        画板1.定位写出 (5, 13 × a ＋ 6 ＋ a, 盘符 [a] ＋ “/”)
        画板1.画笔颜色 ＝ #浅灰
        剩余 ＝ 取磁盘剩余空间 (盘符 [a]) ÷ 取磁盘总空间 (盘符 [a]) × 100
        画板1.刷子颜色 ＝ #浅灰
        画板1.画矩形 (5 ＋ 28, 13 × a ＋ 6 ＋ a ＋ 1, 100, 13 × a ＋ 6 ＋ a ＋ 13)
        画板1.刷子颜色 ＝ #粉红
        画板1.画矩形 (5 ＋ 28, 13 × a ＋ 6 ＋ a ＋ 1, 100 － 剩余, 13 × a ＋ 6 ＋ a ＋ 13)
        画板1.定位写出 (100 ＋ 2, 13 × a ＋ 6 ＋ a － 1, 到文本 (剩余) ＋ “%”)
    .如果真结束
    处理事件 ()
.计次循环尾 ()

@汉族