习语言轻轻松松学编程(四)-- 消息处理
【 习语言示例代码-视窗测试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;
}
发送消息的消息值?怎么定义! 学习中`学习中`学习中`
页:
[1]