《Visual Basic 6.0程序设计教程 第4版 普通高等教育“十一五”国家级规划教材 教学课件 ppt 作者 罗朝盛 第7章 图形操作》由会员分享，可在线阅读，更多相关《Visual Basic 6.0程序设计教程 第4版 普通高等教育“十一五”国家级规划教材 教学课件 ppt 作者 罗朝盛 第7章 图形操作（37页珍藏版）》请在金锄头文库上搜索。
1、掌握建立图形坐标系统的方法； 掌握Visual Basic的图形控件和图形方法及其应用； 掌握使用绘图方法绘制简单的二维几何图形。,本章主要任务：,第7章 图形操作,本章重点：,本章难点：,容器控件的坐标，及用户自定义坐标系,VB中坐标系，绘图方法的使用,7.1 图形控件,VB中与图形有关的控件有： 图片框（PictureBox）、图像框（Image） 形状控件（Shape）、直线控件（Line）。,窗体、图形框和图像框可以显示来自图形文件的图形,1位图(bitmap)：位图通常以.bmp或 .dib为文件扩展名。 2图标(icon)：以.ico为文件扩展名。 3元文件(metafile)：元
2、文件的类型有两种，分别是标准型（.wmf）和增强型（.emf）。 4JPEG文件：JPEG是一种支持 8 位和 24 位颜色的压缩位图格式。 5GIF文件：GIF是一种压缩位图格式。它可支持多达 256 种的颜色，是 Internet 上一种流行的文件格式。,主要作用：显示图片、也可作为其他控件的容器。 1、加载图形： 图形框对象.Picture = LoadPicture(“图形文件名”) 2、删除图形 图形框对象.Picture = LoadPicture( ) 3保存图片 使用SavePicture语句，其使用格式如下： SavePicture Object.Picture|Image,
3、 FileName 注意：当Autosize属性设置为True时，图形框能自动调整大小与显示的图片匹配,7.1.1 图片框控件PictureBox,7.1 图形控件,图像框比图形框占用更少的内存。图像框内不能保存其他控件。 注意：Image控件，不是容器控件。 Image控件加载图片、删除图片、保存图片的方法： 与PictureBox控件相同 Stretch属性： 设置为False，图像框可自动改变大小以适应其中的图形。设设置True， 图形可自动调整尺寸以适应图像框的大小。,7.1.2 图像框控件Image控件,7.1 图形控件,例7.1 在窗体上放置2个Image控件Image1和Imag
4、e2在窗体的Load事件中编写如下代码： Private Sub Form_Load() Image1.Stretch = False 将Stretch属性设置为False 加载图片，不同计算机系统，图形文件的路径可能不同 Image1.Picture = LoadPicture(“C:WINDOWSBubbles.bmp“) Image2.Stretch = True 将Stretch属性设置为true Image2.Picture = LoadPicture(“C:WINDOWSBubbles.bmp“) End Sub,7.1 图形控件,7.1.3 形状控件Shape,使用Shape控件
5、可在窗体、框架或图片框中创建矩形、正方形、椭圆形、圆形、圆角矩形或圆角正方形等图形。 Shape控件预定义形状是由Shape属性的取值决定的。,Shape属性取不同值对应的形状,7.1 图形控件,7.1.4 线控件Line,对于线控件来说，程序运行时最重要的属性是“X1”、“Y1”、“X2”、“Y2”属性，这些属性决定着线显示时的位置坐标，“X1”属性设置（或返回）了线的最左端水平位置坐标，“Y1”属性设置（或返回）了最左端垂直坐标，“X2”、“Y2”则表示右端的坐标。,利用线与形状控件，用户可以迅速地显示简单的线与形状或将之打印输出，与其他大部分控件不同的是，这两种控件不会响应任何事件，它们
6、只用来显示或打印。,7.1 图形控件,7.2 坐标系统,7.2.1 缺省坐标系统 每个容器都有一个坐标系，构成一个坐标系，需要三个要素：坐标原点、坐标度量单位、坐标轴的长度与方向。坐标度量单位由容器对象的ScaleMode属性决定。缺省时为Twip。每英寸1440个Twip，20个Twip为一磅。,7.2.2 用户自定义坐标系统,1、设置坐标系统的刻度单位,列用户可用ScaleMode属性设置坐标系统的刻度单位。ScaleMode属性的取值及含义见表7-3所示。,7.2 坐标系统,说明： （1）当设置容器对象（例如，窗体或图片框）的ScaleMode属性值0，将使容器对象的ScaleLeft
7、和 ScaleTop 自动设置为0，ScaleHeight 和 ScaleWidth 的度量单位也将发生改变。 （2）用ScaleMode属性只能改变刻度单位，不能改变坐标原点及坐标轴的方向。,7.2 坐标系统,2、使用Scale属性建立自己的坐标系 （1） 重新定义坐标原点 属性ScaleTop，ScaleLeft的值用于控制对象左上角坐标，所有对象的ScaleTop，ScaleLeft属性的缺省值为0，坐标原点在对象的左上角。 = N，表示将X轴向Y轴的负方向平移N个单位 ScaleTop = N，表示X轴向Y轴的正方向平移N个单位 同样，ScaleLeft的设置值可向左或向右平移坐标系的
8、Y轴。,7.2 坐标系统,7.2.2 用户自定义坐标系统,7.2.2 用户自定义坐标系统,图7-4 用ScaleTop，ScaleLeft属性定义坐标原点,例如，将窗体坐标系统的X轴Y轴的正方向、Y轴向X轴正方向平移分别平移m和n单位，结果如图7-4所示,（2） 重定义坐标轴方向和度量单位 属性ScaleWidth，ScaleHeight的值可确定对象坐标系X轴与Y轴的正向及最大坐标值。缺省时其值均大于0，此时，X轴的正向向右，Y轴的正向向下。对象右下角坐标值为(ScaleLeft+ScaleWidth，ScaleTop+ScaleHeight)。 如果ScaleWidth的值小于0，则X轴的
9、正向向左，如果ScaleHeight的值小于0，则Y轴的正向向上。,Y,X,ScaleWidth=n ScaleHeight=m Scaleletf=0 ScaleTop=0,0,(n,m),Y,X,ScaleWidth=n ScaleHeight=-m Scaleletf=0 ScaleTop=0,0,(n,-m),7.2.2 用户自定义坐标系统,例7.2 将窗体的坐标系统的原点定义在其中心，X轴的正向向右，Y轴的正向向上，窗体高与宽分别为200和300单位长度。 通过ScaleTop，ScaleLeft，ScaleWidth和ScaleHeight属性实现。,Form1.ScaleLeft
10、 = -150 Form1.ScaleTop = 100 Form1.ScaleWidth = 300 Form1.ScaleHeight = -200,(-150,100),(150,-100),7.2.2 用户自定义坐标系统,（3）利用Scale方法设置坐标系 对象.Scale(xLeft,yTop)-(xRight,yBottom),对象的左上角坐标值,对象的右下角坐标值,例如，Form1.Scale (-150,100) - (150, -100)将建立和例7.2一样的坐标系。,可在程序中使用Scale方法改变坐标系统。当Scale方法不带参数时，取消用户定义的坐标系，采用缺省坐标系。
11、,7.2.2 用户自定义坐标系统,7.3 绘图属性,7.3.1 CurrentX、CurrentY属性 CurrentX，CurrentY属性给出窗体或图形框或打印机在绘图时的当前坐标。 这两个属性在设计阶段不能使用。 使用格式： object.CurrentX = x object.CurrentY = y,注意：当使用某些图形方法后，对象的CurrentX和CurrentY的设置值将发生变化，其具体的改变见表7-5。,7.3 绘图属性,例7.3 编程序，当单击窗体时在窗体中的随机位置打印输出1个不同颜色（随机确定）的任意大写字母，程序运行界面如图7-6所示。,表7-5 图形方法与当前坐标,
12、7.3.2 线宽与线型 1设置线宽DrawWidth 属性 窗体、图形框或打印机的DrawWidth属性给出这些对象上所画线的宽度或点的大小。使用格式： Object.DrawWidth = Size 其中： Object 为对象表达式，可以是窗体、图片框和打印机对象。 Size 为数值表达式，其范围从 1 到 32767。该值以像素为单位表示线宽。缺省值为 1，即一个像素宽。,7.3 绘图属性,7.3 绘图属性,窗体或图形框或打印机的DrawStyle属性给出这些对象上所画线的形状。其设置值及含义见表7.6。,2. 设置线型DrawStyle 属性,例7.4 用不同的DrawStyle 属性
13、值，在窗体分别画一条直线。,7.3.3 图形的填充,1填充方式 FillStyle属性,下图是形状控件的FillStyle属性设置为08时的填充效果,说明： （1）FillStyle为0是实填充，1为透明方式。填充图案的颜色由FillColor属性来决定。 （2）对于窗体和图片框对象，FillStyle 属性设置后，并不能看到其填充效果，而只能在使用Circle 和 Line 图形方法生成的圆和方框时，在圆和方框中显示其填充效果。,2FillColor属性 用于设置填充形状的颜色，缺省情况下，FillColor 设置为 0（黑色）。,7.3.4 AutoRedraw属性,设置和返回对象或控件是
14、否能自动重绘。若值为True，使Form对象或PictureBox控件的自动重绘有效。对象不接受绘制事件（Paint事件）。,重绘:当改变对象大小或隐藏在另一个对象后又重新显示的情况下，重新将以前使用Print方法输出的文本信息和绘图方法绘制的图形显示出来。,7.3.3 图形的填充,7.3.5 图形颜色,在Visual Basic系统中，所有的颜色属性都由一个Long整数表示：,在代码中可使用4种方式给颜色赋值：,使用RGB函数。 使用QBColor函数，选择16种Qbasic颜色中的一种。 使用系统提供的颜色常数。 直接使用Long型颜色值。,7.3 绘图属性,1、使用RGB函数 RGB函数
15、可返回一个Long整数，用来表示一个RGB颜色值。其使用格式如下： RGB(red, green, blue) 说明： red, green, blue(红、绿、蓝)3种颜色，从0255之间的一个亮度值(0表示亮度最低，而255表示亮度最高)。 例如： Form1.BackColor = RGB(255, 0, 0) 设定背景为红色 2、使用QBColor函数 QBColor函数可返回一个Long值，用来表示所对应颜色值的RGB颜色码。其使用格式如下： QBColor(color) 说明： color参数是一个界于015的整型数，分别代表16种颜色，如表7.8所示。,7.3.5 图形颜色,3、
16、使用系统定义的颜色常数 在VB系统中已经预先定义了常用颜色的颜色常数，如常数vbRed就代表红色，vbGreen代表绿色等等。可“对象浏览器”中查询常数列表，表7.9是系统预定义的最常用的颜色常数。,例如，要将窗体的背景色设为红色。则可使用如下语句： Form1.BackColor = vbRed,4、直接使用颜色设置值 用十六进制数指定颜色的格式为： &HBBGGRR 其中，BB指定蓝颜色的值，GG指定绿颜色的值，RR指定红颜色的值。每个数段都是两位十六进制数，即从00FF。 例如， Form1.BackColor = &HFF0000 它相当于：Form1.BackColor = RGB(0, 0, 255),7.3.5 图形颜色,7.4.1 Point 方法,格式：Object. Point(x,y) 功能：Point 方法用于获取对象上指定位置的点的RGB颜色值，即读一个像素。 说明：式中Object为对象表达式，可
