习语言轻轻松松学编程（三） - 创建窗口

【 习语言示例代码-视窗测试2.习      作者：微风  2010.6   梦飞翔创作坊 2007-2010 】


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

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

整数类型 标准调用 我的窗口消息处理(窗口证类型 窗口, 自然数 消息, 自然数 参数1, 自然数 参数2)
{
       
        返回 缺省窗口消息处理（窗口， 消息， 参数1， 参数2 ）；
}

【 主程序 】
整数类型 主函数（ 整数类型 参数个数, 字符类型 *参数表[]）
{
        整数类型 类型号；
        窗口证类型 窗口；
       
        图形初始化显示器(“我的显示器”，320, 240，0， 0，0 );
        图形打开显示器();
        图形输出文字(10, 30 ，“你好，朋友。 点击窗口右上角X按钮关闭”);
       
        类型号 = 向系统注册窗口类型( “我的窗口类型”, 我的窗口消息处理, 0 , 0,  0,  0,  0 ) ;
        如果（ 类型号 ）
        {
                窗口 = 创建窗口("我的窗口类型"，“我的窗口”，0， 窗口宏_缺省坐标， 0， 200， 200， 0，0，0 );
                如果（ 窗口 ）{
                        设置窗口状态（窗口，窗口状态_显示 ）；
                        刷新窗口显示（窗口 ）；
                }
        }
        图形等待显示器关闭()；
        返回 0;
}
视窗测试2.rar (53.06 KB, 下载次数: 793)

2010-6-18 20:15 上传

点击文件名下载附件

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