|
|
楼主 |
发表于 2015-6-10 17:12:21
|
显示全部楼层
改了下 逻辑。
- LOGS **t=1 **ON=1 **2 * "%CurFile%.LOG"
- ENVI^ EnviMode=1
- ENVI^ ForceLocal=1
- SET &WM_COMMAND=0x0111
- SET &EN_CHANGE=0x0300
- SET &LABE=LABE+ -mod -vcenter -center
- CALL @A
- _SUB A,W936H406,
- EDIT -3D &&EC,L12T10W406H37,,,,0xDF0029,22
- %LABE% &&I1,L12T57W30H30,3,*CALL C 3,
- %LABE% &&I2,L54T57W30H30,K,*CALL C K,
- %LABE% &&I3,L96T57W30H30,S,*CALL C S,
- %LABE% &&I35,T340W936H30,&&EC:,
- ENVI @&&EC.ID=?;&&EC_ID
- SET &EC.Lk=0 //过滤触发
- TIME -t:0 TEC,100, TEAM ENVI @TEC=0| SET EC.Lk=0
- ENVI @this.MSG=_COMMAND#%EC_ID%#%&EN_CHANGE%::&&wp,&&lp, @IFEX $%EC.Lk%<1, CALL C
- _END
- _SUB C
- ENVI &&v=0x%&EC%%~1
- SED &&v=0, ,,%&v%
- CALC &&v1=%&v%
- TEAM ENVI @&&I35=%&I35%计算前:&EC=%&EC%,命令:CALC %&v%,计算后:&EC=%&v1% |
- TEAM SET EC.Lk=1| ENVI @TEC=10
- ENVI @&&EC=%&v1%
- _END
复制代码 |
|