原帖由 dvd008 于 2012-3-7 10:06 发表
有了, 不过,如果没有,则不会误操作
一会再试一试,能否FDRV能否找到虚拟内存盘的盘符.
分页模拟演示.wcs
需要 U67C。
下载包中有。
分页模拟演示.wcs:
#!PECMD
ENVI &&&EnviMode=1 //避免意外错误,空变量,外部变量,
ENVI &FORCELOCAL=1 //可以处理大变量. 不影响外部变量
_SUB EditDisk, W360H300,分页模拟演示
GROU -center PAGES,L10T76W330H130, 分区
GROU ,L10T106W330H100, //是否需要隔断
//第1页
RADI R1, L20T85W50H25 ,分区,Call OnR1,1
LABE R1_L1 , L20T120W30H20, 磁盘
EDIT EDISK, L20T140W30H20,%DISK%,
LABE R1_L2, L55T120W30H20, 分区
EDIT EPART, L55T140W30H20,%IPART%,
LABE R1_L3, L90T120W30H20, 激活
EDIT EACKTIVE, L90T140W30H20,%ACKTIVE%,
ITEM R1_BT, L100T170W100H20,创建分区, CALL OnDoit
//第2页
RADI R2, L80T85W50H25 ,分页2,Call OnR2,0
LABE R2_L1 , L20T120W30H20, 页2,,,
EDIT R2_EDISK, L20T140W30H20,2,
ITEM R2_BT, L100T170W100H20,HELLO, CALL OnDoit
SHOW_R2 0 //隐藏第2页
_END
//参数:0 隐藏 1或无:显示
_SUB SHOW_R1
ENVI &&SW=1
FIND $0=%1, ENVI &SW=0
ENVI @R1_L1.Visable=%&SW%
ENVI @R1_L2.Visable=%&SW%
ENVI @R1_L3.Visable=%&SW%
ENVI @EDISK.Visable=%&SW%
ENVI @EPART.Visable=%&SW%
ENVI @EACKTIVE.Visable=%&SW%
_END
//参数:0 隐藏 1或无:显示
_SUB SHOW_R2
ENVI &&SW=1
FIND $0=%1, ENVI &SW=%1
ENVI @R2_L1.Visable=%&SW%
ENVI @R2_EDISK.Visable=%&SW%
ENVI @R2_BT.Visable=%&SW%
_END
_SUB OnR1
ENVI @PAGES=%R1%
SHOW_R2 0
SHOW_R1 1
_END
_SUB OnR2
ENVI @PAGES=%R2%
CALL SHOW_R1 0
CALL SHOW_R2 1
_END
_SUB OnDoit
_END
// 初始化 变量 DISK ...
ENVI DISK=0
ENVI IPART=1
ENVI ACKTIVE=-a
ENVI TYPE=0x06
ENVI STAR=131m
ENVI LEN=35m
//图形界面
CALL EditDisk
效果:
第一页:
第2页:
|