[第九章图形操作.pptVIP

第9章 图形操作 9.1 图形操作基础 9.2 绘图属性 9.3 图形方法 9.4 综合应用 9.1 图形操作基础 在VB中绘制图形，其过程一般分为4个步骤： ① 先定义图形载体窗体对象或图形框对象的坐标系 ② 设置线宽，线型、色彩等属性 ③ 指定画笔的起终点位置 ④ 调用绘图方法绘制图形 例9.1在窗体上绘制?2?到2?之间的正弦曲线 Private Sub Form_Click() Form1.Scale (-8, 2)-(8, -2) Line (-7.5, 0)-(7.5, 0): Line (0, 1.9)-(0, -1.9) DrawWidth = 2 CurrentX = 7.5: CurrentY = 0.2: Print X“ CurrentX = 0.5: CurrentY = 2: Print Y“ For i = -7 To 7 Line (i, 0)-(i, 0.1) CurrentX = i - 0.2: CurrentY = -0.1: Print i Next i For x = -6.283 To 6.283 Step 0.01 Pset (x, Sin(x)) Next x End Sub 9.1.2 坐标系统 构成一个坐标系，需要三个要素：坐标原点、坐标度量单位、坐标轴的长度与方向。 坐标度量单位:由容器对象的ScaleMode属性决定。 缺省时为Twip =1/567cm 默认坐标原点为对象的左上角，横向向右为X轴正向 纵向向下为Y轴正向(ScaleHeight实际可用高度) 使用Scale方法，语法如下： 对象.Scale (xLeft ， yTop)-(xRight，yBotton) 注意：对象为窗体、图形框、打印机 (xLeft ， yTop)：对象左上角的坐标值 (xRight，yBotton)：对象右下角坐标值 利用CurrentX、 CurrentY属性设置当前坐标 自定义坐标系 例9.2在Form_Paint 事件中定义窗体的坐标系 Private Sub Form_Paint() Cls Form1.Scale (-300, 200)-(300, -200) Line (-300, 0)-(300, 0) Line (0, 200)-(0, -200) CurrentX = 0: CurrentY = 0: Print 0 CurrentX = 260: CurrentY = 50: Print X CurrentX = 10: CurrentY = 180: Print Y End Sub 9.2 绘图属性 9.2.1 当前坐标 CurrentX，CurrentY属性：给出窗体或图形框或打印机在绘图时的当前坐标 使用格式： object.CurrentX = x object.CurrentY = y 当坐标值前加Step,则坐标值（x,y）表示对象上的相对坐标位置。其绝对坐标值为（CurrentX+x,CurrentY+y） 使用CLS方法后，CurrentX、CurrentY属性值为0 例9.3用Print方法在窗体上随机显示50个“★”和50个“☆” Private Sub Form_Click() Dim i As Integer Randomize For i = 1 To 100 CurrentX = Form1.ScaleWidth * Rnd CurrentY = Form1.ScaleHeight * Rnd If (i Mod 2) = 0 Then Print ★ Else Print ☆ End If Next i End Sub 9.2.2 线宽与线型 1．设置线宽——DrawWidth 属性 窗体、图形框或打印机的DrawWidth属性给出这些对象上所画线的宽度或点的大小。 使用格式：Object.DrawWidth = Size Size :为数值表达式，其范围从 1 到 32767。该值以像素为单位表示线宽。缺省值为 1 2. 设置线型——DrawStyle 属性 0-Solid-实线（