比例条组件模块V1.0仿Win10资源管理器

比例条.绑定 (画板1, 选择框1.选中, 选择框2.选中, 选择框3.选中, “元”)
编辑框1.内容 ＝ 比例条.置图例单位 ()
_演示随机按钮_被单击 () ' 演示一个随机数据
演示本地磁盘比例条 () ' 演示本地磁盘比例条

.子程序 演示本地磁盘比例条, , , 演示本地磁盘比例条
.局部变量 驱动器, 文本型, , "0"
.局部变量 x, 整数型

磁盘演示.绑定 (画板2, 假, 真, 假, “GB”)
驱动器 ＝ 取驱动器列表 ()
置随机数种子 ()
.计次循环首 (取数组成员数 (驱动器), x)
磁盘演示.添加项目 (驱动器 [x] ＋ “盘”, 四舍五入 (取磁盘总空间 (驱动器 [x]) ÷ 1024 ÷ 1024, 1), 磁盘演示.取默认颜色数组数值 (x))
.计次循环尾 ()