习语言轻轻松松学编程（四）-- 消息处理

【 习语言示例代码-视窗测试3.习      作者：微风  2010.6   梦飞翔创作坊 2007-2010   】
【欢迎加入 习语言编程实验室 QQ群：61440235 】

【 本程序实现：打开虚拟显示器，做文字输出，创建一个新窗口后等待用户按键T关闭窗口后关闭显示器, 本程序在视窗测试2.习基础上扩充实现 】

#包含 "习语言系统.接口"
#包含 “习语言视窗.接口”

整数类型 标准调用 我的窗口消息处理(窗口证类型 窗口, 自然数 消息, 自然数 参数1, 自然数 参数2)
{
        如果（ 消息 等于 视窗消息_键按下）
        {
                如果（参数1 等于 'T' || 参数1 等于 't' ){
                        销毁窗口(窗口)；
                        返回 0；
                }       
        }
        返回 缺省窗口消息处理（窗口， 消息， 参数1， 参数2 ）；
}

【 主程序 】
整数类型 主函数（ 整数类型 参数个数, 字符类型 *参数表[]）
{
        整数类型 返回值, 键值=0；
        窗口证类型 窗口；
       
        图形初始化显示器(“我的程序”，320, 240，0， 0，0 );
        图形打开显示器();
        图形输出文字(10, 30 ，“习语言中文编程系统欢迎你， 按键盘字母‘T’关闭窗口”);
       
        返回值 = 向系统注册窗口类型( “我的窗口类型”, 我的窗口消息处理, 0 , 0,  加载资源图标（取应用程序证（）， “习语言图标”）,  0,  取系统绘图物体（系统画刷_浅灰色） ) ;
        如果（ 返回值 ）
        {
                窗口 = 创建窗口("我的窗口类型"，“我的窗口”，0， 窗口宏_缺省坐标， 0， 200， 200， 0，0，0 );
                如果（ 窗口 ）{
                        设置窗口状态（窗口，窗口状态_显示 ）；
                        刷新窗口显示（窗口 ）；
                }
        }
       
        重复{
                键值 = 获取按键();   【注意：在视窗环境下使用此函数，必须检测视窗关闭，若视窗关闭，则返回 0， 此时应退出循环 】
        }直到（键值 == 0 || 键值 == 'T' || 键值 == 't' ）;  【键值 == 0：表示视窗关闭，需退出循环】
       
        图形关闭显示器();
        返回 0;
}
视窗测试3.rar (52.75 KB, 下载次数: 798)

2010-6-18 20:21 上传

点击文件名下载附件

发送消息的消息值？怎么定义！

学习中`学习中`学习中`