第9章 Visual Basic 6.0图形处理.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.1 图形操作基础 9.2 图形控件 9.3 图形方法 第9章Visual Basic 6.0图形处理 退出 9.1.1 坐标系统 9.1.2 自定义坐标系 9.1.3 使用Visual Basic颜色 构成一个坐标系，需要三个要素：坐标原点、坐标度量单位、坐标轴的长度与方向。坐标度量单位由容器对象的ScaleMode属性决定。 表6．1 ScaleMode属性设置 厘米（centimeter） 7 毫米（millimeter） 6 英寸（inch，1inch=1440 Twip） 5 字符（缺省为高12磅宽20磅的单位） 4 像素（Pixed，与显示器分辨率有关） 3 磅（point，每英寸72磅） 2 Twip（缺省值） 1 用户定义 0 单 位 属性设置 VB中有两种方法用于坐标系的定义。 方法一：通过对象的ScaleTop、ScaleLeft、ScaleWidth和ScaleHeigh四项属性来实现。它们不仅可以用来设置标度系统，而且可以用于获取当前标度系统的信息。 方法二：采用Scale方法来设置坐标系。该方法是建立用户坐标系最方便的方法，其语法如下： [对象．]Scale[(xLeft，yTOp)-(xRight，yBotton)] [例9-1]本例用窗体内两个命令按钮的单击事件说明用Scale方法改变坐标系统后产生的影响，命令Line（0，0）-（1500，1500）表示从坐标原点到（1500，1500）画一根直线。 Private Sub Command1_Click() Cls Form1.Scale ’采用缺省坐标系 Line (0, 0)-(1500, 1500) End Sub Commandl_Click