《visual basic程序设计与应用》徐振明 (7)

1、第七章：多媒体编程本章要点：使用多媒体控件处理音频文件使用GDI处理图形图像初步接触动画设计17.1多媒体播放7.1.11使用微软媒体控件播放音频本例将制作一个基于AxActiveMovie控件的播放器。通过文件打开对话框选择文件。AxActiveMovie控件自身提供了一些按钮，使用这些按钮可以执行各种操作：如播放、暂停、关闭等。2（1）新建Windows应用程序后，创建Form1窗体。设置相关窗体属性 （2）执行【工具】|【选择工具箱项】命令，在Com组件标签中选择ActiveMovieControl Object选项，如下图所示 将ActiveMovieControl控件加载到工具箱 3

2、 在窗体添加ActiveMovieControl Object控件，形成的界面如图所示。 （3）添加时间处理程序。42基于AxMMControl控件制作AVI动画播放器基于AxMMControl控件制作AVI动画播放器步骤如下：（1）新建Windows应用程序后，创建Form1窗体。向窗体添加一个Button控件，设置Button控件的Text属性如下：Button1.text=”打开”再添加一个Open控件。 （2）执行【工具】|【选择工具箱项】命令，在Com组件标签中选择Microsoft multimedia Control Object选项，如图所示。 5（3）添加Microsoft

3、multimedia Control，如图所示。（4）添加Button1的Click事件过程。Private Sub btnopen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnopen.ClickOpen = video(*.avi)|*.aviOpen() = OpenIf (Not () ThenAxMMControl1. = AxMMControl1.Command = openEnd IfEnd Sub67.1.2使用Windows媒体播放器控件播放音频在Visual Bas

4、ic .NET中可以引用Windows Media Player 组件，制作一个如图所示的多媒体播放程序。具体操作是这样的：（1）新建Windows应用程序后，创建Form1窗体。进行相关参数设置 7（2）执行【工具】|【选择工具箱项】命令，在Com组件标签中选择Windows Media Player选项，如图所示。然后，添加Windows Media Playe控件 （3）添加代码如下：Private Sub btnopen_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnopen.Click Di

5、m As String Open() = Open AxMediaPlayer1. = End Sub87.1.3使用API函数播放音频可以使用Windows的API函数来播放音频文件。介绍其中两个：sndPlaySound函数和micExecute函数。它们都是来自Windows的winmm.dll动态链接库。其中sndPlaySound函数用于播放*.wav文件，而micExecute函数可以播放各种影音文件。主要函数有：使用sndPlaySound函数使用mciExecute函数9使用sndPlaySound函数（1）在VB.Net中，调用API函数必须先进行声明，它们的格式分别为： D

6、eclare Function sndPlaySound Lib winmm.dll Alias sndPlaySoundA _ (ByVal SoundName As String, ByVal Flags As Long) As Long （2）在程序中调用该函数来播放*.wav文件：sndPlaySound (“文件名.wav”, 1 ）（3）实现如图所示的界面，添加一个按钮控件，一个输入框控件和一个Open控件，用来打开文件 （4）添加源代码如下：Public Class Form1 Declare Function sndPlaySound Lib winmm.dll Alias s

7、ndPlaySoundA _ (ByVal SoundName As String, ByVal Flags As Long) As Long Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim As String Open() = Open TextBox1.Text = 正在播放 + sndPlaySound (, 1) End SubEnd Class10使用mciExecute函数在上例中作如下修改：1. 声明mci

8、Execute以取代sndPlaySoundDeclare Function mciExecute Lib winmm.dll Alias mciExecute (ByVal lpstrCommand As String) As Long2. 删除sndPlaySound(, 1)，添加： mciExecute(“Play”& )通过如上修改后，点击Button控件，找到相应文件即可播放各种影音文件 117.2图形与图像程序设计7.2.1图形的坐标系统 在学习绘图之前，首先要了解有关Visual Basic .Net的坐标系统，以此才能掌握绘图的位置和大小。在Visual Basic .NET

9、 中，坐标以像素为单位表示。坐标系统是指在屏幕（screen）、窗体（form）、容器（container）上定义的表示图形对象位置的平面二维格线，一般采用数对（x，y）的形式定位。其中，x值是沿x轴点的位置，最左端是默认位置为0。y值是沿y轴点的位置，最上端是默认位置0，如图7-16所示。属 性说 明Locate.Top对象Y坐标Locate.Left对象X坐标Locate.Width对象的宽度Locate.Height对象的高度Locate对象属性如下127.2.1图形绘制GDI+是Windows XP操作系统中提供二维矢量图形、图像处理和版式的部分。GDI+在 GDI（较早版本的Wind

10、ows中提供的 Graphics Device Interface）的基础上进行了改进，添加了新功能并优化了现有功能。GDI+函数位于System.Drawing命名空间中。处理图形包括两个步骤：（1）创建Graphics对象。 （2）使用Graphics对象绘制线条和形状、呈现文本或显示与操作图像。Graphics对象在创建后，可用于绘制线条和形状、呈现文本或显示与操作图像。与 Graphics对象一起使用的主体对象有： （1）.Color 结构：表示要显示的不同颜色。（2）.Pen 类：用于绘制线条、勾勒形状轮廓或呈现其他几何表示形式。 （3）.Brush 类：用于填充图形区域，如实心形状

11、、图像或文本。 （4）.Font 类:提供有关在呈现文本时要使用什么字体的说明。13color颜色的设置是绘图功能中非常重要的一部分，在.NET Framework中可以通过Color对象类、ColorTranslator对象类、Color枚举来定义颜色 方法名称说 明FromArgb语法：Color.FromArgb （Alpha,Red,Green,Blue）功能：通过Alpha可设置混色的阴影或透明效果，通过基本三色Red,Green,Blue可以混出自行需要的颜色。四个参数值必须介于0-255例：将Label1的背景色设为绿色，且设置Alpha的值为40 Label1.BackColo

12、r=Color.FromArgb（40,0,255,0）FromKnownColor语法：FromKnownColor( ByVal color As KnownColor )功能：设置所需的颜色例：将Label1的背景颜色设置为黄色Label1.BackColor=Color.FromKnownColor(KnownColor.Yellow)Color对象属性14使用ColorTranslator对象的方法来设置颜色 方法名称说 明FromOle语法：ColorTranslator.FromOle（QBColor（颜色值）功能：设置QBColoryanse1值，指定的颜色值为0-15例：将L

13、abel1的背景色设为黑色 Button1.BackColor = ColorTranslator.FromOle(QBColor(0)FromHtml语法：ColorTranslator.FromHtml（“HTML的颜色字符串”）功能：使用HTML的颜色字符串来设置颜色例： 将Label1的背景色设为白色 Label1.BackColor = ColorTranslator.FromHtml(#ffffff)FromWin32语法：ColorTranslator.FromWin32（&#十六进制值）功能：使用十六进制值设置颜色例：将Label1的背景色设为浅蓝色 Label1.BackCo

14、lor = ColorTranslator.FromWin32(&HC0000F)152.Graphics Graphics用来创建画布对象。它就像是绘图时所使用的画布一般，可以供给画家在其中作画。使用GDI+绘图时必须先创建一个画布对象，然后才可以使用绘图对象的方法在画布上作画。 Graphics对象的创建语法如下：Dim myGraphics As GraphicsmyGraphics =控件对象名称.CreatGraphics()在指定的控件对象中添加一个可供绘图的对象（myGraphics）。如下例：Dim g As Graphicsg=Button1.CreatGraphics()

15、使用Button1创建一个名为g的画布对象g=Label1.CreatGraphics() 使用Label1创建一个名为g的画布对象Graphics对象的方法很多，如可以使用clear方法清除画布，使用dispose方法将Graphics对象从记忆清除。 16常用的绘图方法有以下几种 1. DrawArc方法2. DrawLines方法3. DrawRectangle方法4. DrawPolygon方法5. DrawEllipse方法173. PenPen是画笔对象。就像是一支绘图时所使用的画笔，可以供给绘图命令在Graphics画布对象上作画。创建的语法如下：Dim Pen As Pen（颜

16、色，粗细）。4. Brush对象Brush对象是用于填充图形形状（如矩形、椭圆形、扇形、多边形和封闭路径）内部的对象。可用来绘制实心、渐变层的图形，使得图形显得较有质感。它包含有HatchBrush、LineGradienBrush、SolidBrush、PathGradienBrush对象等，这些对象是包含在Drawing2D的命名空间中。 187.2.1图像的显示与处理 GDI+支持的图形格式有BMP、GIF、JPEG、EXIF等图形文件格式。DrawImage方法使用Graphics对象的DrawImage方法加载和显示图像。其步骤是：（1）创建Image类Bitmap是Image类的一个新对象。该对象表示要显示