SET ::EN_CHANGE=0x0300

SET ::WM_USER=0x0400
CALC #&::EM_SETEVENTMASK=%WM_USER% + 69
SET ENM_CHANGE=0x00000001

CALL a

_SUB a,W334H94,
    EDIT -3D -rich b,L23T21W280H22,,,0x100
    ENVI @b.SENDMSG=%EM_SETEVENTMASK%,0,%ENM_CHANGE%  //设置允许EN_CHANGE
    ENVI @b.ID=?;b_ID
    ENVI @this.MSG=_COMMAND#%b_ID%#%EN_CHANGE%::&wp,&lp,TEAM CALC I=%I%+1|ENVI @this=%I%值已改变%wp% 
_END
