Visual Basic多媒体程序设计要点

,单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,*,*,*,第,12,章,Visual Basic,多媒体程序设计,第,12,章,Visual Basic,多媒体程序设计,本章重点,多媒体项目的开发方法,文本软件开发技术,图形软件开发技术,图像软件开发技术,数字音频软件开发技术,数字视频软件开发技术,动画软件开发技术,第,12,章,Visual Basic,多媒体程序设计,12.1,基本概念,12.2 VB,图形处理技术,12.3 VB,图像处理技术,12.4 VB,音频处理技术,12.5 VB,视频处理技术,12.6 VB,动画处理技术,12.7,小结,12.1,基本概念,Visual Basic (,简称,VB),是,Microsoft,公司推出的基于,Windows,平台的程序开发工具，其程序设计风格与传统设计方法不同，它采用面向对象和事件的程序设计方法，是一种采用事件驱动编写机制的语言。,VB,专业版中提供了,MCI(Media Control Interface),的控件。利用,VB,，可以编程处理文本、图形、图像、音频、视频、动画等多媒体数据，以设计或构造适合不同需求的多媒体应用系统。在多媒体程序设计方面，,VB,不但自身提供了控制对象及多媒体控件，还提供了对众多第三方多媒体控件的支持及,API,函数的调用。,12.1,基本概念,VB涉及三个重要概念：,(1)窗口。窗口是一种有边界的矩形区域，例如，资源管理器窗口、Word的文档窗口、对话框窗口、按钮、图标、菜单条等。,(2)事件。事件是通过鼠标、按键的操作、程序的控制或其他窗口所产生的操作或行为。,(3)消息。发生事件时就引发一条消息并发送到操作系统。,VB采用事件驱动模型。在事件驱动模型中，程序代码不是按照预定的顺序执行，而是在响应不同的事件时执行不同的代码片断。Windows操作系统通过给每一个窗口提供一个唯一的标识符(窗口句柄Hwnd)来管理所有的窗口。操作系统连续地监视每一个窗口的活动或事件信号。当发生事件时，将引发一条消息，操作系统处理该消息并广播给其他窗口。最后，每一个窗口根据自身处理该条消息的指令而采取适当的操作。,12.2 VB,图形处理技术,12.2.1 VB,坐标系统及图形格式,12.2.2 PaintPicture,方法和,BitBlt API,函数,12.2.3,绘图方法程序实例,12.2.1 VB,坐标系统及图形格式,在VB中，坐标系统是一个二维网格，可定义屏幕上、窗体中或其他容器中的位置。使用窗体中的坐标(x，y)，可定义网格上的位置。其中x值是沿x轴的位置，最左端的值是0；y值是沿y轴的位置，最上端的值是0。,VB可以支持的图形格式有位图(.bmp)文件、设备独立位图(.dib)文件、图标(.ico)文件、光标(.cur)文件、元(.wmf)文件、增强的元文件(.emf)、GIF(.gif)文件以及JPEG(.jpg)文件.,12.2.2 PaintPicture,方法和,BitBlt API,函数,PaintPicture,的基本功能是图像块传输。它能快速地将两幅位图进行合并；能将位图的全部或某一部分快速剪切并粘贴到其他地方；能将位图自动延伸或压缩以适应新的环境；能在屏幕上不同位置之间、屏幕与内存之间传递位图；它采用,32,位三元光栅操作代码,(RasterOp),，在源位图、选定的子位图和目标位图之间进行颜色组合，生成目标位图中的最终颜色；它将,13,个常用,RasterOp,操作以内部常量形式给出，不需任何声明。,12.2.2 PaintPicture,方法和,BitBlt API,函数,PaintPicture方法,作用：在Form、PictureBox或Printer上绘制图形文,件,(.bmp、.wmf、.emf、.cur、.ico或.dib)的内容。,语法：Object.PaintPicturepicture，x1，y1，widthl，height1，x2，y2，width2，height2，opcode。,Object是可选项。其值可以为窗体、PictureBox控件或Printer。Picture为必选项，指定要绘制到Object上的图形源。x1，y1必选项，均为单精度值，指定在Object上绘制Picture的目标坐标。Width1可选项，单精度值，指示Picture的目标宽度。Height1可选项，单精度值，指示Picture的目标高度。x2，y2可选项，均为单精度值，指示Picture内剪贴区的坐标(x-轴和y-轴)。Width2可选项，单精度值，指示Picture内剪贴区的源宽度。Height2可选项，单精度值，指示Picture内剪贴区的源高度。opcode可选项，是长型值或仅由位图使用的代码，该参数与BitBlt中dwRop参数含义相同。表示源位图与目标位图的组合关系，用来定义在将Picture绘制到Object上时对Picture执行的位操作。,12.2.2 PaintPicture,方法和,BitBlt API,函数,BitBlt API函数,作用：与PaintPicture方法相同。,函数声明：,Declare Function BitBlt Lib gdi32 Alias BitBlt (ByVal hDestDC As Long，ByVal x As Long，ByVal y As Long，ByVal nW记th As Long，ByVal nHeight As Long，ByVal hSrcDC As Long，ByVal xSrc As Long，ByVal ySrc As Long，ByVal dwRop As Long)As Long,12.2.2 PaintPicture,方法和,BitBlt API,函数,参数说明：,hDestDC：目标设备环境,x：目标左上角坐标,y：目标顶端坐标,nWidth：目标宽,nHeight：目标高,hSrcDC：源设备环境,xSrc：源左上角坐标,ySrc：源顶端坐标,dwRop：位处理操作，与PaintPicture方法相同。,12.2.3,绘图方法程序实例,下面介绍的“真彩色画板”可以在一个画图区域内，以任意的颜色，绘制任何曲线。程序中用Line绘图方法与鼠标的MouseDown及MouseMove事件，并使用RGB(Red，Green，Blue)函数选取画笔颜色，实现具体的绘图操作。,(1)各对象属性设置如下：,Begin VB.Form Form1,BackColor=&H80000001&,Caption=简单的真彩色画板,ClientHeight=7425,ClientLeft=1665,ClientTop=1950,ClientWidth=9960,12.2.3,绘图方法程序实例,Begin VB.PictureBox Picture2,Appearance=0 Flat,BackColor=&H80000005&,ForeColor=&H80000008&,Height=1785,Left=8130,Picture=Form1.frx,：,0000,ScaleHeight=1755,ScaleWidth=1755,TabIndex=15,Top=300,Width=1785,End,12.2.3,绘图方法程序实例,Begin VB.HScrollBar HScroll3,Height=375,Left=8250,Max=255,TabIndex=7,Top=5820,Width=1575,End,Begin VB.HScrollBar HScroll2,Height=375,Left=8250,Max=255,TabIndex=6,Top=5100,Width=1575,End,12.2.3,绘图方法程序实例,Begin VB.HScrollBar HScroll1,Height=375,Left=8250,Max=255,TabIndex=5,Top=4380,Width=1575,End,Begin VB.CommandButton Command4,Caption=退 出,BeginProperty Font,Name=宋体,Size=12,12.2.3,绘图方法程序实例,Charset=134,Weight=400,Underline=0 False,Italic=0 False,Strikethrough=0 False,EndProperty,Height=495,Left=6210,TabIndex=4,Top=6780,Width=1455,End,12.2.3,绘图方法程序实例,Begin VB.CommandButton Command3,Caption=,清 屏,BeginProperty Font,Name=,宋体,Size=12,Charset=134,Weight=400,Underline=0 False,Italic=0 False,Strikethrough=0 False,EndProperty,12.2.3,绘图方法程序实例,Charset=134,Weight=400,Underline=0 False,Italic=0 False,Strikethrough=0 False,EndProperty,Height=495,Left=2130,TabIndex=2,Top=6780,Width=1455,End,12.2.3,绘图方法程序实例,Begin VB.PictureBox Picture1,AutoRedraw=-1 True,BackColor=&H80000009&,Height=6015,Left=330,ScaleHeight=5955,ScaleWidth=7035,TabIndex=0,Top=300,Width=7095,End,12.2.3,绘图方法程序实例,Size=12,Chatset=134,Weight=400,Underline=0 False,Italic=0 False,Strikethrough=0 False,EndProperty,Height=495,Left=90,TabIndex=1,Top=6780,Width=1455,End,12.2.3,绘图方法程序实例,程序代码如下,在窗体Forml的声明段声明以下变量,Dim paintnow As Boolean,Dim startX As Single，startY As Single,Dim red As Integer，green As Integer，blue As Integer,Private Sub Command1_Click(),变量file_name用于保存用户输入的要打开的文件的文件名,Dim file_name As String,file_name=InputBox(请输入路径文件名：，打开文件),如果文件不存在，则显示”文件未找到”的对话框，否则将指定的图形文件载入赋给图片框的Picture属性(即在图片框中显示打开的图形文件)，并设置”保存”命令按钮获得焦点,12.3 VB,图像处理技术,12.3.1 在图片上平滑移动文,字,12.3.2 图像的滚动显示和缩放,12.3.3 屏幕图像的捕捉,12.3.1 在图片上平滑移动文,字,在很多电影及游戏的结尾，我们可以看到文本在图片上平滑地卷到屏幕的上方，在,VB,中，可以使用以下方法实现此“特技”：,新建工程文件，并创建,Forml,。在,Forml,上放置,PictureBox,控件,Picture1,，选定背景图片。另外，放置一个,Timer,控件,Timer1,，设置,Enabled,属性为,True,，设置,Interval,为,100(Interval,决定文本移动速度,),。,单击选择,Picture1,，在,PictureBox,的底部放置,Label,控件,Label1,，并设置,Label1,的,BackStyle,属性为,0(,透明,即控件后的背景色和任何图片都是可见的,),，设置,Caption,为待移动的字符串,12.3.2 图像的滚动显示和缩放,12.3.2 图像的滚动显示和缩放,12.3.3 屏幕图像的捕捉,12.3.3 屏幕图像的捕捉,12.3.3 屏幕图像的捕捉,12.4 VB,音频处理技术,12.4.1,利用,Beep,语句使扬声器发声,12.4.2,利用,OLE2.0,控件播放音频,12.4.3,利用,MCI32,控件播放音频及,MIDI,音乐,12.4.4,调用,API,函数播放音频,12.4.5 MP3,的播放方法,12.4.1 利用Beep语句使扬声器发声,12.4.1 利用Beep语句使扬声器发声,12.4.2 利用OLE2.0控件播放音频,12.4.3 利用MCI32控件播放音频及MIDI音乐,12.4.3 利用MCI32控件播放音频及MIDI音乐,12.4.4 调用API函数播放音频,12.4.4 调用API函数播放音频,12.4.5 MP3的播放方法,12.4.5 MP3的播放方法,12.5 VB,视频处理技术,12.5.1,利用,Animation,控件播放,AVI,文件,12.5.2,利用,API,函数,MciSendString(),播放,AVI,文件,12.5.3,利用,API,函数,MciExecute(),播放,AVI,文件,12.5.4,利用,MMControl,控件播放,AVI,文件,12.5.5,利用可插入对象中的电影剪辑控件播放,AVl,文件,12.5.6,利用,OLE,控件播放,AVI,文件,12.5.1 利用Animation控件播放AVI文件,12.5.2 利用API函数MciSendString()播放AVI文件,12.5.2 利用API函数MciSendString()播放AVI文件,12.5.2 利用API函数MciSendString(),播放AVI文件,12.5.3 利用API函数MciExecute()播放,AVI文件,12.5.3 利用API函数MciExecute()播放,AVI文件,12.5.4 利用MMControl控件播放AVI文件,12.5.5 利用可插入对象中的电影剪辑控件,播放AVl文件,12.5.6 利用OLE控件播放AVI文件,12.6 VB,动画处理技术,12.6.1,控件的移动,12.6.2,利用动画控件,12.6.3,利用图片剪贴控件,Pictureclip,12.6.4,动画方法程序实例,12.6.1 控件的移动,12.6.2 利用动画控件,12.6.3 利用图片剪贴控件Pictureclip,12.6.4 动画方法程序实例,12.6.4 动画方法程序实例,12.6.4 动画方法程序实例,12.6.4 动画方法程序实例,12.6.4 动画方法程序实例,12.6.4 动画方法程序实例,12.6.4 动画方法程序实例,12.6.4 动画方法程序实例,12.7,本章小结,本章以,Microsoft,公司的,Visual Basic,程序开发环境为例，阐述了使用,VB,进行多媒体编程的基本技术。反映多媒体技术最新发展方向及多媒体应用软件开发的指导性基本技术，介绍了多媒体项目的开发方法、文本软件开发技术、图形软件开发技术、图像软件开发技术、数字音频软件开发技术、数字视频软件开发技术及动画软件开发技术等。,