第11章：图形设计.ppt

第11章 图形设计 11.1 图形设计基础 11.1.1 坐标系统 1. 刻度单位 缺省刻度单位: 缇 Twip 改变刻度单位: 对象名.ScaleMode 属性值 2. 改变坐标系 1 ScaleLeft、ScaleTop属性 改变坐标系的原点位置。 【例11-2】将一个图形 Shape1 的左上角移动到窗体的中央位置。 3. 当前坐标 CurrentX属性: 设置或返回的当前坐标的水平坐标 CurrentY属性: 设置或返回的当前坐标的垂直坐标 例如: 在点 200,200 处显示“当前坐标为 200,200 ” Form1.CurrentX 200 Form1.CurrentY 200 Form1.Print 当前坐标为 200,200 4. 与位置和大小有关的属性 11.1.2 颜色 11.2 图形控件 图形控件用于在对象（窗体、图片框）上绘制特定形状的图形，如圆、直线等。图形控件的属性，既可以在设计阶段设置，也可以在运行阶段由程序动态的改变。 11.2.1 Shape控件 1. 属性 Shape BorderStyle、BorderColor、BorderWidth BackStyle 、 BackColor FillStyle、FillColor 2. 方法 Move object.Move left[, top[, width[, height]]] 【例11-6】在窗体上移动一正方形，每次移动时使正方形的长和宽增加100缇。 Private Sub Command1_Click Shape1.Move Shape1.Left + 100, Shape1.Top + _ 100, Shape1.Width + 100, Shape1.Height + 100 End Sub 11.2.2 Line控件 1. 作用 设计时在窗体上绘制直线。 2. 属性 BorderStyle BorderWidth X1、X2、Y1 、Y2 注意: 运行时可以通过改变 X1、X2、Y1 和 Y2属性来移动它或者调整它的大小。而不能使用Move方法 【例11-7】设计一个简单的秒表。单击“开始”按钮开始移动秒针，单击“停止”按钮停止移动。 11.3 绘图方法 11.3.1 画点方法 Pset 格式: [ .]PSet [Step] x, y [, ] 功能: 在对象的指定位置，用一定的颜色画点 说明: —窗体、图片框、缺省为当前窗体。 Step —可选的，指定相对于由 CurrentX 和 CurrentY 属性提供的当前图形位置的坐标。 x, y —点的水平和垂直坐标。 —绘制该点的 RGB 颜色。 省略时使用 的 ForeColor 属性值。 【例11-9】用PSet方法在窗体上绘制一条如下图所示的星形曲线,曲线由以下参数方程决定: x sin2t*cost y sin2t*sint 其中t的取值范围为0≤t≤2π Private Sub Form_Click Scale -1, 1 - 1, -1 DrawWidth 2 ForeColor vbRed For t 0 To 2 * 3.1415926 Step 0.001 x Sin 2 * t * Cos t y Sin 2 * t * Sin t PSet x, y Next t End Sub 11.3.2 画线、矩形方法 Line 格式: [ .]Line [Step][ x1, y1 ]–[Step] x2, y2 [, [,B[F]]] 功能: 在指定两点之间用指定的颜色画线或矩形 说明: —窗体、图片框，缺省为当前窗体。 Step—可选的，指定相对于由 CurrentX 和 CurrentY属性提供的当前位置的坐标。 x1, y1 —直线或矩形的起点坐标。如果省略，线起始于由 CurrentX 和 CurrentY 指示的位置。 Step—可选的，指定相对于起点的终点坐标。 x2, y2 —直线或矩形的终点坐标。 —画线时用的 RGB 颜色。 B—利用对角坐标画出矩形。 F—规定矩形以矩形边框的颜色填充。 【例11-10】单击窗体在窗体上绘制直线、矩形。 【例11-11】给星形曲线绘制坐标线。 Private Sub Form_Click Scale -1, 1 - 1, -1 DrawWidth 3 Line -1, 0 - 1, 0 , vbBlue Line 0, 1 - 0, -1 , vbBlue DrawWidth 1 For i -1 To 1 Step 0.1 Line i, 0.