VB程序设计电子教案-第8章：图形程序设计

第8章图形程序设计图形程序设计根底常用画图方法动画程序设计初步本章学习目标正确理解坐标系及其相关概念，并掌握自定义坐标系的方法能运用相关属性与方法绘制简单图形能实现图像的选取、旋转、缩放等简单处理了解动画程序设计的根本方法，并能进行简单的动画编程图形程序设计根底坐标系统颜色的运用坐标系统系统坐标系坐标系统的三个要素：坐标原点、坐标度量单位和坐标轴的方向。用户自定义坐标系与坐标系相关的属性属性功能ScaleLeft设置或返回当前坐标系的左边界值，缺省为0ScaleTop当前坐标系的上边界值，缺省为0ScaleWidth当前坐标系的横坐标的最大值，与坐标系统使用的单位有关ScaleHeight当前坐标系的纵坐标的最大值，与坐标系统使用的单位有关ScaleMode定义坐标系统的度量单位CurrentXCurrentY光标当前的坐标用户自定义坐标系的方法通过设置与坐标系相关的属性实现通过Scale方法来实现设置相关属性实现自定义坐标系例如，下面的代码可实现将窗体大小设置为屏幕的70%，坐标原点设置在窗体Form1的中央，且X轴的向右及Y轴的向下为正向。PrivateSubForm_Load()Form1.Width=Screen.Width*0.7'窗体的宽度是屏幕宽度的70%Form1.Height=Screen.Height*0.7'窗体的高度是屏幕高度的70%ScaleWidth=Form1.Width'窗体坐标系的横坐标最大值与窗体的宽度相同ScaleHeight=Form1.Height'窗体坐标系的纵坐标最大值与窗体高度相同Form1.ScaleLeft=-Int(ScaleWidth/2)'设置窗体对象的中点为坐标系原点Form1.ScaleTop=-Int(ScaleHeight/2)‘用Form1.ScaleTop=Int(ScaleHeight/2便可设置Y轴的向上方向为正向EndSub通过Scale方法实现自定义坐标系例如，下面的代码可实现将坐标原点设置在窗体工作区中央，绘图区域为640*480，单位是像素，且横轴的向右方向及纵轴的向上方向为正方向。PrivateSubForm_Load()Form1.ScaleMode=3Form1.Scale(-320,240)-(320,-240)EndSub颜色的运用用RGB函数用QBColor函数用颜色常数直接赋值常用画图方法根本的画图方法简单画图程序实例图像简单处理应用实例根本的画图方法去除控件中的所有图形：[对象.]cls画点：[对象.]Pset(x,y)[,color][对象.]PsetStep(x,y)[,color]获得指定点的颜色：[对象.]Point(x,y)画线、矩形[对象.]Line[Step](x1,y1)-[Step](x2,y2)[,color],[B]/[BF]画圆〔弧〕、椭圆简单画图程序实例【实例8-1】利用Line画线方法绘制逐渐旋转缩小的正方形。图像简单处理应用实例【实例8-2】实现图像的缩放、旋转和区域保存。动画程序设计初步动画程序设计的根本方法通过不断地重画、擦除来实现；通过窗体、PictureBox控件的PaintPicture方法实现；通过图形控件的移动〔Move)方法实现；利用API函数实现高质量的动画；简单动画实例简单动画实例【实例8-3】点击窗体上的“开始”按钮就可从窗体左上角开始自动地移动一个红色实心圆，假设遇窗体边界那么自动反弹。实现分析总的设计思想是：利用定时器自动进行绘图、擦除圆，窗体上只需一个定时器控件，并设置时间间隔。小球遇窗体边框的判断假设：x