TEAM ENVI^ ENVIMODE=1| ENVI^ FORCELOCAL=1

WIN1
_SUB WIN1,W289H249,新窗口1,
    //ENVI @this.visable=1
    SET-def  WID=%__WinID%
    ENVI @this.MSG=#1::&&wp,&&lp, CALL OnMSG1  
    SET &str[1]=Line2222--A  //共享变量
    SET &str[2]=abc22222--A  //共享变量
    ENVI @this.SENDMSG=#1;1;2      //方法1.1  一般建议方法1.X，利用共享变量
    ENVI @this.POSTMSG=#1;1;2      //方法1.1
    ENVI @@SENDMSG=%WID%:#1;1;2    //方法1.3
    ENVI @@POSTMSG=%WID%:#1;1;2    //方法1.4

    SET &str1=Line2222--B
    SET &str2=abc22222--B

    ENVI @this.MSG=#2::&&wp,&&lp, CALL OnMSG2  
    ENVI @this.SENDMSG=#2;@str1;@str2                 //方法2.1 .没写好容易 崩溃的！！！！ 一般只用SENDMSG
    ENVI @@SENDMSG=%WID%:#2;@str1;@str2               //方法2.2 .没写好容易 崩溃的！！！！ 一般只用SENDMSG
    ENVI @this.SENDMSG=#2;$Line1111--B;$abc111--B     //方法3.1 .没写好容易 崩溃的！！！！ 只能SENDMSG
    ENVI @@SENDMSG=%WID%:#2;$Line1111--B;$abc111--B   //方法3.2 .没写好容易 崩溃的！！！！ 只能SENDMSG


    ENVI @this.MSG=#3::&&wp,&&lp, CALL OnMSG3  
    SET &str1=Line2222--C
    SET &str2=abc22222--C
    ENVI @this.SENDMSG=#3;@str1;@str2                 //方法2.1 .没写好容易 崩溃的！！！！ 一般只用SENDMSG
    ENVI @@SENDMSG=%WID%:#3;$Line1111--C;$abc111--C   //方法3.2 .没写好容易 崩溃的！！！！ 只能SENDMSG
_END

_SUB OnMSG1  
    SET~   &wpstr=str[%wp%]   //获取共享变量
    SET~   &lpstr=str[%lp%]
    MESS. [%&wpstr%]  [%&lpstr%] 
_END

_SUB OnMSG2  
    SET-make  &wpstr=%&wp% 
    SET-make  &lpstr=%&lp% 
    MESS. [%&wpstr%]  [%&lpstr%] 
_END

_SUB OnMSG3  
    SET-mkdummy  &wpstr=%&wp%
    SET>  wpstr=1:
    SET-mkdummy  &lpstr=%&lp% 
    MESS. [%&wpstr%]  [2:%&lpstr%] 
_END

