- UID
- 44689
注册时间2008-2-8
阅读权限8
最后登录1970-1-1
初入江湖
该用户从未签到
|
楼主 |
发表于 2008-2-10 11:02:10
|
显示全部楼层
.版本 2
.支持库 eAPI
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
驱动器列表 = 取驱动器列表 ()
.计次循环首 (取驱动器数量 (), ID)
组合框1.加入项目 (驱动器列表 [ID], )
.计次循环尾 ()
组合框1.现行选中项 = 0
总标签.标题 = “剩余:” + 到文本 (取整 (取磁盘剩余空间 (组合框1.被选择文本) ÷ 1024)) + “MB”
现行驱动器列表 = 取数组成员数 (驱动器列表)
时钟1.时钟周期 = 1000
.子程序 _时钟1_周期事件
时钟1.时钟周期 = 1000
.如果 (总标签.标题 ≠ “剩余:-1MB”)
总标签.标题 = “剩余:” + 到文本 (取整 (取磁盘剩余空间 (组合框1.被选择文本) ÷ 1024)) + “MB”
.否则
时钟1.时钟周期 = 0
组合框1.现行选中项 = 0
总标签.标题 = “剩余:” + 到文本 (取整 (取磁盘剩余空间 (组合框1.被选择文本) ÷ 1024)) + “MB”
组合框1.内容 = 组合框1.被选择文本
时钟1.时钟周期 = 1
.如果结束
.子程序 _组合框1_将弹出列表
.局部变量 驱动器列表, 文本型, , "0"
.局部变量 ID, 整数型
时钟1.时钟周期 = 0
组合框1.清空 ()
驱动器列表 = 取驱动器列表 ()
.计次循环首 (取驱动器数量 (), ID)
组合框1.加入项目 (驱动器列表 [ID], )
.计次循环尾 ()
.子程序 _组合框1_列表被关闭
现行驱动器列表 = 取数组成员数 (驱动器列表)
时钟1.时钟周期 = 1 |
|