|
- _SUB Me,W200H140,ME
- ITEM ButtonExitWin,L70T3W58H24,Kill me,TEAM ENVI @ButtonExitWin.enable=0|CALL ExitMe
- ITEM ButtonStart,L18T3W50H24,Run me,TEAM ENVI @ButtonStart.enable=0|CALL Loop
- LABE LabelText,L8T39W136H26,please
- _END
- _SUB Loop
- FIND $%&ExitPid%=Yes,EXIT
- IFEX :p%&MyName%,
- {
- ENVI @LabelText=Kill me 1
- WAIT 1000
- ENVI @LabelText=Kill me 2
- WAIT 1000
- ENVI @LabelText=Kill me 3
- WAIT 1000
- CALL Loop
- }!
- {
- EXIT _SUB
- CALL ExitMe
- }
- _END
- _SUB ExitMe
- //KILL \%Me%
- ENVI &ExitPid=Yes
- KILL %&MyName%
- EXIT
- _END
- //MAIN
- TEAM ENVI^ ENVIMODE=1| ENVI^ FORCELOCAL=1
- ENVI &ExitPid=No
- CALL @Me
- CALL ExitMe
- EXIT
复制代码 用&ExitPid变量传递退出标志,试试,如果不行就多加一个变量判断
|
|