0032 点击按钮显示文本框-初级程序-极语言教程

//窗体代码:

整数 窗体,文本框,按钮2,按钮3,按钮4;
程序资源 24,"清单.xml";
程序段 加载窗体
整数 左=(桌面.宽-625)>>1,上=(桌面.高-497)>>1;
窗体=创建窗口($200,程序.名称,"极语言示例0032",$10CF0064,左,上,625,497,0,0,0,0);
文本框=创建窗口($200,"Edit","文本框",$50010000,85,50,440,255,窗体,1,4,0);
按钮2=创建窗口($0,"Button","文本",$50000000,75,365,120,30,窗体,2,3,0);
按钮3=创建窗口($0,"Button","弹窗",$50000000,235,365,125,30,窗体,3,3,0);
按钮4=创建窗口($0,"Button","退出",$50000000,405,365,125,30,窗体,4,3,0);
窗体启动;读取消息
结束

 

//程序代码:

程序段 窗体消息(窗口,消息,参数,数据)
判断 (消息)
为 窗口关闭{停止(0)}  
为 单击左键{点击按钮(参数)}     
否则 处理窗口(窗口,消息,参数,数据)
结束;

程序段 窗体启动
桌面.左=窗体
读取消息
结束;

程序段 点击按钮(参数)
判断 (参数)
为 2 改窗口字(文本框,"世界你好,我们在使用极语言！")
为 3 信息框(0,"你好中国","极语言",信息图标)   
为 4 退出  
结束;