xiyuyan 发表于 2010-6-18 20:21:42

习语言轻轻松松学编程(四)-- 消息处理

【 习语言示例代码-视窗测试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;
}

qq749858568 发表于 2011-1-18 23:11:05

发送消息的消息值?怎么定义!

cxy168 发表于 2011-8-15 22:22:58

学习中`学习中`学习中`
页: [1]
查看完整版本: 习语言轻轻松松学编程(四)-- 消息处理