第9章图形和绘图操作讲述.ppt

9.1 图形操作基础 9.1.1 坐标系统 9.1.2 自定义坐标系 9.1.3 使用Visual Basic颜色 9.2 图形控件 9.2.1 Line（画线工具） （1）单击工具箱中的Line图标； （2）移动鼠标到要画线的起始位置： （3）按下鼠标左键并拖曳鼠标到要画线的结束处，放开鼠标左键。 （4）打开属性窗口，设置线条属性，如线条风格、线条颜色等。 （5）需要对设置好的线条进行调整时，可再单击该线条，通过鼠标的拖动来改变线条的大小或位置，或通过属性窗口来改变属性值。 9.2.2 Shape（形状） 使用形状控件的操作步骤： （1）单击工具箱中的Shape控件按钮。 （2）在窗体上画出形状。 （3）设置属性，定制形状的外观。 （4）调整设置好形状。可单击形状使其成为可编辑状态，通过鼠标拖动改变其大小和位置，再用属性窗口设置属性，使其符合要求。 9.2.3 图像框（Image）控件 图像框控件是Visual Basic提供的一种显示图像的控件，它可以从文件中装入并显示下面几种格式的图形：位图、图标、图元文件、增强型图元文件、JPEG和GIF文件。除此之外，图像框控件还响应Click事件，并可用图像框控件代替命令按钮或作为工具条的内容。此外，它还可以用来制作简单动画。图像框两个比较重要的属性是Stretch和Picture。 9.2.4 图片框(Picture Box)控件 9.3.1 PSet方法 PSet方法在指定位置用指定颜色画点。其语法格式如下： 9.3.2 Line方法 Line方法用来画线，窗体和图片框可用此方法在内部画线。此外，还常用Line方法绘制各种曲线，因为任何曲线都可看作是由无数小线段构成的。Line方法的语法格式为： [对象名]．Line[[Step](Xl,Yl)]-[Step](X2,Y2)][,[Color][,B[F]] 其中，(X1，Y1)和(X2，Y2)为一条线段的起止坐标，(X1，Y1)可以省略，若省略就表示从当前位置开始画到(X2，Y2)点，当前点坐标可用其CurrentX，CurrenttY属性得到，(CurrentX，CurrenttY)为当前点的坐标；step仍是相对意义，加入step后坐标为相对于当前点的坐标；Color用于设置画线的颜色；参数B表示以(X1，Y1)和(X2，Y2)为对角坐标画一方框；加入F表示对矩形框填充。 直线的端点坐标表示为控件坐标系中单位。直线的宽度取决于DrawWidth属性，样式取决于DrawStyle属性，它的设置与线条控件的Border Style属性设置相同。 如果线宽超过1个像素，则Draw Style属性的有效设置是l和6，因为点划线的线宽不能大于1个像素。 9.3.3 Circle方法 9.3.4 Point方法 Point方法用于返回指定点的RGB颜色，其语法格式如下： [对象.]Point(x,y) 9.3.5 建立绘制曲线的程序 9.3 实训九 实训目的 实训内容 实训操作步骤 9.4 习题 Line方法和Circle方法足以画出棒图或饼图，但如何画出图6.6所示的数学曲线呢?对于这类曲线，需要用程序画出曲线上的每一点。下面一步步完成这个程序。 首先定义坐标系，为了避免作坐标运算，用Scale方法对坐标系定义的代码如下： Picture1．Scale (-2*pi, 1)-(2*pi,-1) 其中，pi为变量，存贮л的值。 定义了坐标系，接下来就是绘制工作。使用Line万法连接相邻的两点，构成完整的曲线。这段代码如下： Private Sub Command1_Click() Dim i, pi pi = 4 * Atn(1) Picture1.Scale (-2 * pi, 1)-(2 * pi, -1) Picture1.CurrentX = -2 * pi Picture1.CurrentY = 0 For i = -2 * pi To 2 * pi Step 0.01 Picture1.Line -(i, Cos(2 * i) * Sin(3 * i)) Next End Sub 图9-8绘制出的曲线 图9-7 函数Cos(2 * i) * Sin(3 * i) * 9.1 图形操作基础 9.2 图形控件 9.3 图形方法 第9章图形和绘图操作 退出 9.1.1 坐标系统 9.1.2 自定义坐标系 9.1.3 使用Visual Basic颜色 构成一个坐标系，需要三个要素：坐标原点、坐标度量单位、坐标轴的长度与方向。坐标度量单位由容器对象的ScaleMode属性决定。 表6．1 ScaleMode属性设置 厘米（centimeter） 7 毫米（millimeter）