vb第8章图形设计.pptVIP

第8章 图形设计 8.1 图形设计基础 8.1.1 坐标系统 缺省坐标系统: 1. 刻度单位 缺省刻度单位: 缇(Twip) 改变刻度单位: 对象名.ScaleMode = 属性值 2. 改变坐标系 (1) ScaleLeft、ScaleTop属性 改变坐标系的原点位置。 【例题】 【例题】将一个图形(Shape1)的左上角移动到窗体的中央位置。 【例题】在图片框Picture1中打印5行5列的单位矩阵。 Private Sub Picture1_Click() Dim a(5, 5) As Integer Picture1.Scale (0, 0)-(6, 6) For i = 1 To 5 Picture1.CurrentY = i For j = 1 To 5 If i = j Then a(i, j) = 1 Else a(i, j) = 0 Picture1.CurrentX = j Picture1.Print a(i, j); Next j,i End Sub 4. 与位置和大小有关的属性 8.2 图形控件 8.2.1 Shape控件 1. 属性: Shape BorderStyle、BorderColor、BorderWidth BackStyle 、 BackColor FillStyle、FillColor 例如: 8.2.2 Line控件 1. 作用: 设计时在窗体上绘制直线。 2. 属性: BorderStyle、 BorderWidth X1、X2、Y1 、Y2 注意: 运行时可以通过改变 X1、X2、Y1 和 Y2 属性来移动它或者调整它的大小。而不能 使用Move方法 8.3 绘图方法 8.3.1 画点方法(Pset) 格式: [对象名.]PSet [Step] (x, y) [,颜色] 功能: 在对象的指定位置，用一定的颜色画点 说明: 对象名—窗体、图片框、缺省为当前窗体。 Step —可选的，指定相对于由 CurrentX 和 CurrentY 属性提供的当前图形位置的坐标。 (x, y) —点的水平和垂直坐标。 颜色—绘制该点的 RGB 颜色。 省略时使用对象名 的 ForeColor 属性值。 8.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—规定矩形以矩形边框的颜色填充。 【例题】单击窗体在窗体上绘制直线、矩形。 8.3.3 画圆方法(Circle) 格式: [对象名.]Circle [Step](x, y), 半径, [颜色], [起始角], [终止角] [, 纵横比] 功能: 在对象上画圆、椭圆或弧。 对象名 —窗体、图片框。缺省为当前窗体。 Step—指定圆、椭圆或弧的中心相对坐标。 (x, y)—圆、椭圆或弧的中心坐标。 半径 —圆、椭圆或弧的半径。为最长轴的尺寸。 颜色—圆的轮廓颜色。省略则使用 ForeColor 值。 起始角, 终止角 —以弧度为单位，范围[ -2?, 2?]。 指定弧或扇形的起点和终点位置。