第章图形设计.pptVIP

第6章 图形设计;内 容 简 介;学习目标与要求;章 节 目 录;6．1 坐标系统 ;6.1.1 默认坐标系统;例如： Command1.Left=30 Command1.Top=40; 可以通过设置控件的ScaleMode属性来改变坐标系统的度量单位。下表列出了ScaleMode的属性值与对应的度量单位。 ;下面的程序代码表示Command1控件的坐标为（30，40），单位为毫米。 Form1. ScaleMode=6 Command1.Left=30 Command1.Top=40 ; 可以使用容器对象的ScaleLeft、ScaleTop、ScaleWidth和ScaleHeight这4个Scale属性来创建用户自定义坐标系统。其含义见下表。;属性ScaleLeft与ScaleTop的值用来设置容器左上角的坐标。 属性ScaleWidth和ScaleHeight的值分别用来设置对象的宽度和高度。 ScaleWidth大于0表示X 轴的正向向右，小于0表示X轴的正向向左。 ScaleHeight大于0表示 Y轴的正向向下，小于0表示Y 轴的正向向上。 对象左上角坐标为（ScaleLeft，ScaleTop） 对象右下角的坐标为(ScaleLeft+ScaleWidth，ScaleTop+ScaleHeight) 。; 例如： Form1.ScaleLeft=100 Form1.ScaleTop=-400 Form1.ScaleWidth=-600 Form1.ScaleHeight=700 ;通过Scale方法自定义坐标系 ★语法如下：[对象．]Scale[(x1，y1)-(x2，y2)] ★说明： （1）对象可以是窗体、图形框或打印机。 （2）(x1，y1)表示对象的左上角的坐标值。 （3）(x2，y2)为对象的右下角的坐标值。 （4）Scale方法能将坐标系统重置到所选择的任意 刻度。 例如将窗体设置为上图的坐标系统，使用Scale方 法的语句如下： Form1.Scale (100,-400)-(-500,300);6.2 颜色;6.2.1 使用系统定义的颜色常数;6.2.2 使用QBColor函数设置颜色;6.2.3 使用RGB函数设置颜色 ; 操作步骤： （1）设置Form1的Picture属性，选择一幅背景图片。 （2）添加7个Label控件，分别为Label1、Label2、Label3、Label4、Label5、Label6、Label7，将其BackStyle属性设为0，并将Font属性中的字体设为隶书、字形设为粗体、大小设为36号字。 （3）添加一个Timer控件，将其Interval属性设置为100。 （4） 编写Timer1控件的Timer事件。程序见教材。 ;6.3 绘制基本图形的控件;;Line控件的BorderStyle属性见下表(6-6)。;Line控件的DrawMode属性及功能见下表(6-7);（续）;【例 6-2】用Line控件在窗体上显示7条不同颜色、不同类型的垂直线及7条不同颜色、不同宽度的水平线。;6.3.2 用形状控件(Shape)画几何图形 ; Shape控件的常见属性可以调整形状的大小、设置颜色、边框样式、边框宽度等。; FillStyle属性可设置Shape控件的填充样式;【例 6-3】 编写程序设置Shape控件的形状及填充样式。;Private Sub Command1_Click() x = Int(Rnd * 6) 产生0～5之间的随机整数 根据x的值由Shape属性决定Shape控件的形状 Shape1.Shape = x End Sub Private Sub Command2_Click() x = Int(Rnd * 8) 产生0～7之间的随机整数 根据x的值由FillStyle属性决定Shape控件的填充样式 Shape1.FillStyle = x End Sub;6.4 绘制基本图形的方法;6.4.1 Pset方法和Point方法;【例 6-4】 用鼠标左键在窗体上写字 。 ;【例 6-5】 用Pset方法绘制一条抛物线 。; Point方法 Point方法可以取(x,y)点处的颜色值。 ★格式如下：