VB第七章图形与多媒体.ppt

《VB第七章图形与多媒体.ppt》由会员分享，可在线阅读，更多相关《VB第七章图形与多媒体.ppt（27页珍藏版）》请在三一办公上搜索。

1、第七章 图形与多媒体,主要内容,7.1 使用VisualBasic作画 7.2 在窗体中使用图片 7.3 播放多媒体信息,7.1 使用VisualBasic作画,一、设置AutoRedraw属性 每个窗体和图片框都具有AutoReadraw属性。AutoRedraw是Boolean类型的属性，当它设置为True时，会把图形输出保存在内存里，这样就可以用AutoReadraw属性创建持久的图形。AutoRedraw的默认值是False。当AutoRedraw设置为False，窗体上显示的任何由图形方法创建的图形如果被另一个窗口暂时挡住，将会丢失。另外，如果扩大窗体，窗体边界外的图形将会丢失。当窗

2、体的AutoRedraw属性设置为True时，VisualBasic会将图形方法储存于内存中的一块“画布”上。应用程序复制此画布的内容，以便重新显示被其他窗口暂时隐藏起来的图形。,7.1 使用VisualBasic作画,二、VisualBasic图形的坐标系统 1、坐标单位 坐标单位即坐标的刻度，缺省的坐标系统采用twip(缇)为单位。设置对象的ScaleMode属性可以改变坐标系统的单位，,7.1 使用VisualBasic作画,2、坐标方法使用Scale方法也可以设置用户自定义的坐标系统。语法：.Scale(x1,y1)-(x2,y2)说明：(x1,y1)设置的左上角坐标，(x2,y2)设

3、置的右下角坐标。使用Scale方法将把在x方向上分为x2-x1等分，在y方向上分为y2-y1等分。使用Scale方法将自动把ScaleMode属性设置为0。,7.1 使用VisualBasic作画,3、坐标属性,例如，代码：Me.ScaleTop=10Me.ScaleLeft=10Me.ScaleWidth=90Me.ScaleHeight=110上述代码与代码Me.Scale(10,10)-(11,90)是等效的。,7.1 使用VisualBasic作画,三、使用颜色1、VisualBasic中的颜色属性 VisualBasic中的许多控件，有决定控件显示颜色的属性。,7.1 使用Visua

4、lBasic作画,2、颜色函数 VisualBasic提供了两个专门处理颜色的函数RGB和QBColor函数。(1)RGB函数 在这两个颜色函数中，RGB是最常用的一个。语法：RGB(red,green,blue)说明：red、green、blue分别表示颜色的红色成分、绿色成分、蓝色成分。取值的范围都是从0到255。RGB函数采用红、绿、蓝三基色原理，返回一个Long整数，用来表示一个RGB颜色值。表7.5列出一些常见的标准颜色以及这些颜色的红、绿、蓝三原色的成分值。,7.1 使用VisualBasic作画,(2)QBColor函数 QBColor函数返回一个用来表示所对应颜色值的RGB颜色

5、码。语法：QBColor(Color)说明：Color参数是一个介于0到15的整型值，,7.1 使用VisualBasic作画,四、画点(PSet方法)Pset方法可以在对象的指定位置(x,y)，按给定的像素颜色画点。语法：.PSet Step(x,y),color 说明：1、为可选的对象表达式。如果省略，具有焦点的窗体作为。2、Step为可选的关键字。指定相对于由 CurrentX 和 CurrentY 属性提供的当前图形位置的坐标。3、(x,y)为必需的Single(单精度浮点数)，设置点的水平(x轴)和垂直(y轴)坐标。4、Color 为可选的长整型数，设置点的颜色。如果它被省略，则使用

6、当前的 ForeColor 属性值。可用 RGB 函数或 QBColor 函数指定颜色。,7.1 使用VisualBasic作画,五、画直线、矩形方法(Line方法)用Line 方法可以在对象上的两点之间画直线或矩形。语法：.Line Step x1,y1 Step(x2,y2),Color,BF说明：1、为可选的对象表达式，如果省略，具有焦点的窗体将作为“对象”。2、Step为可选的关键字，用来指定要画出的点相对最后画出点的位置。3、(x1,y1)为可选的单精度浮点数，直线或矩形的起点坐标。ScaleMode 属性决定了使用的度量单位。如果省略，起始于由 CurrentX 和 Current

7、Y 指示的位置。4、(x2,y2)为必需的单精度浮点数，直线或矩形的终点坐标。,7.1 使用VisualBasic作画,5、Color为可选的长整型数，设置直线或矩形的颜色。如果它被省略，则使用 ForeColor 属性值。可用 RGB 函数或 QBColor 函数指定颜色。6、B为可选的。如果包括，则利用对角坐标画出矩形。F选项规定矩形以矩形边框的颜色填充。不能不用 B 而用 F。但可以不用 F 光用 B。7、画连结的线段时，前一条线的终点就是后一条线的起点。8、执行 Line 方法时，CurrentX 和 CurrentY 属性被参数设置为终点。,7.1 使用VisualBasic作画,例

8、如：Line(500,500)-(500,1000)可画出一条直线。Line(500,500)-(1000,1000)可画出一条斜线。Line(100,200)-(150,250)等价于 line(100,200)-step(50,50)Line(100,100)-(1000,1000),vbred,b 可画出边框为红色的一个矩形。Line(100,100)-(1000,1000),vbred,bf 可画出边框为红色的一个矩形，并用红色填充矩形。,7.1 使用VisualBasic作画,六、清除绘图区方法 Cls方法可以清除Form或PictureBox中由图形语句或打印语句在运行时所生成的图

9、形和文本，清除后的区域以背景色填充，设计时使用Picture属性设置的背景位图和放置的控件不受Cls影响。语法：Object.Cls 例如：Picture1.Cls Form1.cls,7.1 使用VisualBasic作画,七、画圆、椭圆及圆弧(Circle方法)Circle 方法可画出圆形和椭圆形的各种形状。另外，Circle 方法还可以画出圆弧(圆的一部分)和楔形饼块。使用变化的 Circle 方法，可画出多种曲线。语法：.CircleStep(x,y),color,start,end,aspect说明：1、(x,y)：指定圆、椭圆或弧的中心坐标。2、半径：指定圆、椭圆或弧的半径。3、C

10、olor：可选项，如果被省略，则使用ForeColor属性值。可用颜色函数指定颜色。4、Start和End：指定(以弧度为单位)弧或扇形的起点以及终点位置。其范围从-2到2。起点的缺省值是0，终点的缺省值是2。正数画弧，负数画扇形。5、aspect：为垂直半径与水平半径之比，不能为负数。Aspect1时，椭圆沿垂直方向拉长，当aspect1时，椭圆沿水平方向拉长。Aspect的缺省值为1.0，在屏幕上产生一个标准圆。6、可以省略语法中间某个参数，但不能省略分隔参数的逗号。指定的最后一个参数后面的逗号是可以省略的。7、Circle执行后，CurrentX和CurrentY属性被参数设置为中心点。

11、,7.1 使用VisualBasic作画,八、DrawMode属性的用法 DrawMode 属性可以决定，当把一个样式画在另一个之上时，能够取得什么结果。尽管改变DrawMode 属性，经常会带来一些影响(尤其是彩色系统)，但是当在一个黑的或是纯白色的背景上，或者是在未定义颜色的背景上绘制时，是没有必要再用该属性的。可以将DrawMode设置为从116的值。,7.1 使用VisualBasic作画,九、设置线宽和线形(DrawWidth，DrawStyle属性)1、DrawWidth属性 DrawWidth 属性用来指定图形方法输出时线的宽度。设置值以象素为单位，设置后会影响Pset、Line

12、和Circle方法。语法：DrawWidth=说明：(1)Object：是窗体或图片框对象。(2)size：为可选的，其范围从 1 到 32,767。该值以像素为单位表示线宽。缺省值为 1。,7.1 使用VisualBasic作画,2、DrawStyle属性 DrawStyle 属性，返回或设置一个值，以决定图形方法输出的线型的样式。语法：DrawStyle=说明：(1)Object：为对象表达式，其值是窗体或图片框对象。(2)Number：为整型值，用于指定线的外观。(3)DrawStyle属性有7种值：06，如表所示，用来产生不同间隔的实、虚线，缺省值为0。,7.1 使用VisualBas

13、ic作画,十、设置填充图案(FillStyle、FillColor属性)如果要对绘制好的封闭图形进行填充，就要设置fillStyle和FillColor两个属性。FillStyle可以有07一共8个取值，当对图形进行填充时，填充图案的颜色是由FillColor属性设置的。十一、使用图形控件(Line控件和Shape控件)Shape控件和Line控件是VisualBasic提供的具有图形功能的控件。如果要完成简单功能时，可用Line或者Shape控件创建图形而无须编写代码。,7.2 在窗体中使用图片,一、在设计时添加图片 设计时添加图片有两种方法：1、从图片文件中将图片加载到窗体上、图片框中或图

14、象控件里 2、把一个图片粘贴到窗体上，图片框中或图象控件里,7.2 在窗体中使用图片,二、在运行时添加图片 运行时添加图片有四种方法：1、使用 LoadPicture 函数，指定一文件名，并将该图片赋值给图像控件的Picture属性。2、对象间图片的相互复制。3、从剪贴板对象复制图片。即用GetData方法复制图片。4、使用 LoadResPicture 函数，可把工程中.res 文件的一图片，赋值给 Picture 属性。.res 文件被称为资源文件。,7.2 在窗体中使用图片,三、移动图片和改变图片尺寸 1、图片框(Picture)控件的AutoSize属性 如果想让图片框能自动扩展到可容

15、纳新图片的大小，可将该图片框的 AutoSize 属性设置为 True。这样，在运行时当往图片框加载或复制图片时，Visual Basic 会自动扩展该控件到恰好能够显示整个图片。由于窗体不会改变大小，如果加载的图象大于窗体的边距，图象经过裁剪后被显示出来。也可以使用 AutoSize 属性使图片框自动收缩，以便对新图片的尺寸作出反应。2、图像控件(Image)的Stretch属性 如果要使图像控件中的图片能自动扩展以适应特定的尺寸，可使用 Stretch 属性。当 Stretch属性为False时，图像控件自动调整其大小以适应加载图片的要求。为了调整图片大小以适应图象控件的要求，可将图像控件

16、的Stretch属性设置为True。,7.2 在窗体中使用图片,四、使用Paint picture方法 使用PaintPicture方法，可以在Form,PictureBox或Printer上的任何地方，绘制图片。语法：Object.PaintPicture pic,destx,desty,destwidth,destheight说明：(1)Object为可选项，其值为窗体、图片框或打印机等对象。缺省情况下为当前的窗体。(2)Pic为一个图片对象，它的内容是由窗体或控件的Picture属性决定。(3)destX和destY参数为图片将出现的水平和垂直位置。(4)destWidth和destHe

17、ight参数是可选项，用来设置在object中该图片的宽度和高度。,7.3 播放多媒体信息,一、Animation控件 Animation 控件不是VisualBasic的标准控件，要使用它，需要在“工程”菜单中打开“部件”命令，然后在“部件”对话框中选中“Microsoft Windows Common Controls-2 5.0”选项并单击“确定”按钮，将它添加到工具箱中。Animation 控件只能播放无声的 AVI 文件。如果尝试加载含有声音数据或格式不为控件所支持的.avi 文件，则返回错误。Animation 控件主要用于：1、在对话框中显示出操作的长短和特征。2、播放有关应用程

18、序的无声动画，提供使用指导。3、使用户能够播放放入该控件的文件。,7.3 播放多媒体信息,二、Multimedia控件 Multimedia控件可用于管理媒体控制接口(MCI)设备。这些设备有：声卡、MIDI发生器、CD-ROM驱动器、音频播放器、视盘播放器和视频磁带录放器。此控件也需从部件对话框中加载“Microsoft Multimedia control 6.0”来加到工具箱中。Multimedia控件具有一组执行MCI命令的下压式按钮。这些命令与通常的CD机或录像机上的按钮很相似。下表列出了Multimedia控件支持的部分设备。,7.3 播放多媒体信息,本章小结,1、VisualBasic图形的坐标系统2、Visual Basic中的颜色3、画点4、画直线、矩形方法(Line方法)5、清除绘图区方法6、画圆、椭圆及圆弧(Circle方法)7、在窗体中使用图片8、播放多媒体信息,