vbVB4第9章幻灯片.pptxVIP

第9章 图形操作9.1 图形操作基础9.2 绘图属性9.3 图形方法9.4 综合应用 9.1 图形操作基础在VB中绘制图形，其过程一般分为4个步骤：① 先定义图形载体窗体对象或图形框对象的坐标系。② 设置线宽，线型、色彩等属性。③ 指定画笔的起终点位置。④ 调用绘图方法绘制图形。 ../../VB实验及答案/VB6第9-10章教案例子/9/V4b09-01.vbp例../../VB实验及答案/VB6第9-10章教案例子/9/V4b09-01.vbp9.1在窗体上绘制?2?到2?之间的正弦曲线 Form1.Scale (-8, 2)-(8, -2)‘ 定义坐标系,从左上点到右下点的范围 Line (-7.5, 0)-(7.5, 0): Line (0, 1.9)-(0, -1.9) 画X轴与Y轴 DrawWidth = 2 ‘线的宽度 CurrentX = 7.5: CurrentY = 0.2: Print “X“ ‘输出下x轴上的标记”x” CurrentX = 0.5: CurrentY = 2: Print Y“ ‘输出下y轴上的标记”y” For i = -7 To 7 在X轴上标记坐标刻度,线长0.1 Line (i, 0)-(i, 0.1) CurrentX = i - 0.2 : CurrentY = -0.1 : Print i ‘定刻度数字位置 Next iFor x = -6.283 To 6.283 Step 0.01‘从-2π~2π上的正弦曲线 PSet (x, Sin(x)) Next x‘ 画下一个函数点(7.5,0)(0,1.9)y值(-7.5,0)(0,-1.9)9.1.2 坐标系统构成一个坐标系，需要三个要素：坐标原点、坐标度量单位、坐标轴的长度与方向。坐标度量单位由容器对象的ScaleMode属性决定。缺省时为Twip。每英寸1440个Twip，20个Twip为一磅。自行定义坐标系使用Scale方法，形式如下：对象.Scale[(xLeft ， yTop)-(xRight，yBotton)]左上点右下点../../VB实验及答案/VB6第9-10章教案例子/9/V4b09-02.vbp例../../VB实验及答案/VB6第9-10章教案例子/9/V4b09-02.vbp9.2在Form_Paint 事件中定义窗体的坐标系9.2 绘图属性9.2.1 当前坐标 CurrentX，CurrentY 属性 给出窗体或图形框或打印机在绘图时的当前坐标。这两个属性在设计阶段不能使用，使用CLS方法后，CurrentX、CurrentY属性值为0 ../../VB实验及答案/VB6第9-10章教案例子/9/V4b09-03.vbp例../../VB实验及答案/VB6第9-10章教案例子/9/V4b09-03.vbp9.3 用Print方法在窗体上随机显示50个“★”和50个“☆” 9.2.2 线宽与线型 窗体、图形框或打印机的DrawWidth属性给出这些对象上所画线的宽度或点的大小(以像素为单位，最小值为1)。../../VB实验及答案/VB6第9-10章教案例子/9/V4b09-04.vbp例../../VB实验及答案/VB6第9-10章教案例子/9/V4b09-04.vbp9.4 通过改变DrawStyle属性值在窗体上画出不同的线形。9.2.3 填充与色彩 FillColor 指定封闭图形的填充颜色FillStyle 指定填充的图案(有8种内部图案)RGB(红,绿,蓝) 产生某种颜色 三基色使用0~255之间的整数 QBColor(颜色码) 0~15之间的整数../../VB实验及答案/VB6第9-10章教案例子/9/V4b09-05.vbp例../../VB实验及答案/VB6第9-10章教案例子/9/V4b09-05.vbp9.5 演示颜色的渐变过程。要定义渐变，可多次调用RGB函数，每次对RGB函数的参数稍作变化。9.3 图形方法9.3.1 Line方法 画直线或矩形： [对象.] Line [ (x1,y1)]－ (x2,y2)[,颜色][,B[F]](x1，y1)为线段的起点坐标或矩形的左上角坐标(x2，y2)为线段的终点坐标或矩形的右下角坐标B表示画矩形；F表示填充矩形.../../VB实验及答案/VB6第9-10章教案例子/9/图1.9.8.vbp例../../VB实验及答案/VB6第9-10章教案例子/9/图1.9.8.vbp1.9.8../../VB实验及答案/VB6第9-10章教案例子/9/V4b09-06.vbp例../../VB实验及答案/VB6第9-10章教案例子/9/V4b09-06.vbp9.6 用Line方法在图形框PictureBox上绘制