|
本帖最后由 mdyblog 于 2022-5-7 15:29 编辑
- ENVI^ ForceLocal=1
- IFEX %&CurFile%.LOG, LOGS --2 * %&CurFile%.LOG
- SET$ &NL=0D 0A
- ENVI &&WM_DEVICECHANGE=0x0219
- _SUB WIN1,W405H254,新窗口1,
- ENVI @this.Visable=1
- ENVI @this.MSG=_%&WM_DEVICECHANGE%::&&wp,&&lp,TEAM CALC &i=%&i%+1| ENVI @T1=500;1 //OnDevCH %&&wp% %&&lp%
- TIME -t:0 T1,500,OnDevCH //合并过多消息
- ITEM ITEM1,L20T22W355H30,TEST,ENVI @T1=500;1
- LABE LABE1,L20T82W355H130,LABE1,,
- SET &i=0
- OnDevCH
- _END
-
- WIN1
-
- _SUB OnDevCH // %&&wp% %&&lp%
- SET &id=0
- SET &k=0
- SET &SNAME=
- LOOP #1=1,
- {
- PCIP ? ,,,,%id%?&&SNAMEi
- FIND *&SNAMEi<>, TEAM SET< SNAME=%&NL%%id%:%SNAMEi%| SET k=0! TEAM CALC #&k=%&k%+1| IFEX #%&k%>3, EXIT LOOP
- CALC #&id=%&id%+1
- }
- MSTR * SNAME=3,0,SNAME
- ENVI @LABE1=%&SNAME%[%&i%]
- _END
复制代码 |
|