ENVI^ EnviMode=1
ENVI &&WM_LBUTTONDOWN=0x0201
CALL @Page0

_SUB Page0,W543H256,123,,%MyName%,
        TEAM SET  &L7=  //预定义控件数据名  方法2：公用变量
        SET &Page2.L8=   //自动上传数据     方法3：自动上传
        SET &Page2.ret=  //返回数据         方法4：主动查询
        TABS &&T1,L19T17W500H157,Page1:-:P1;Page2::P2;Page3::P3,
                                  //上面Page1:后的-， 表示PAGE1的控件的PE变量升1级。
        ENVI @&&T1.MSG=%&WM_LBUTTONDOWN%: On_T1
        ITEM ,L361T183W60H25,查询,START,
        ITEM ,L436T183W60H25,取消,KILL @,
_END

_SUB Page1,W543H174,   // 方法1：子界面升级
       LIST &L6,L410T55W46H23,1|2|3|4|5,,1, 
_END

_SUB Page2,W543H182, 
        LIST #&L7,L410T55W46H23,AA|BB|CC|DD|EE,,AA, // 方法2：公用变量
_END

_SUB Page3,W543H182,
        LIST &L8,L410T55W46H23,a|b|c|d|e,SET Page2.L8=%&L8%,a,    // 方法3：自动上传
        SET  Page2.L8=%&L8%
        ENVI @this.MSG=#1: SET Page2.ret=%&L8%   // 方法4：主动查询
_END


_SUB START 
        ENVI @Page3.SENDMSG=#1    // 方法4：主动查询
        MESS  L6【%&L6%】  L7【%&L7%】 Page2.L8【%&Page2.L8%】  Page2.ret【%&Page2.ret%】
_END

_SUB On_T1
        MESS -%&T1.Select%-
        IFEX $%&T1.Select%=1, 
        {
                ENVI @Page1:&L6.VAL=x1|y1|z1|u1|v1
                ENVI @Page1:&L6=:z1
        }
        IFEX $%&T1.Select%=2, 
        {
                ENVI @Page2:#&L7.VAL=x2|y2|z2|u2|v2
                ENVI @Page2:#&L7=:y2
                MESS 2222
        }  
        IFEX $%&T1.Select%=3, 
        {
                ENVI @Page3:&L8.VAL=x3|y3|z3|u3|v3
                ENVI @Page3:&L8=:u3
        }  
_END