xiyuyan 发表于 2010-6-18 20:15:56

习语言轻轻松松学编程(三) - 创建窗口

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

cxy168 发表于 2011-8-15 22:31:30

学习中`学习中`学习中`
页: [1]
查看完整版本: 习语言轻轻松松学编程(三) - 创建窗口