利用VB实现多媒体播放器.docx

利用VB实现多媒体播放器利用VB实现多媒体播放器利用VB实现多媒体播放器实验计划学时：6学时实验性质：考据性一、实验目的1.2.经过实验学习多媒体技术有关知识，增进对多媒体技术的认识和领悟掌握VB办理中常常用到的基本看法和名词1. 学习使用VB编写多媒体播放器二、实验内容和要求掌握VB中需要常常接触的基本看法练习使用VB，试试它的各项功能要求掌握基本办理功能，学会使用控件制作播放器三、实验环境（硬件环境和软件环境）带有声卡、麦克风、音箱或耳机的多媒体计算机WindowsXP以上操作系统2工具软件VB四、实验报告要务实验报告应包含实验名称、实验目的、实验内容、实验环境、操作方法和实验步骤、实验数据记录和办理、实验结果解析、领悟怀疑建议详尽请参阅实验报告模板五、操作方法与实验步骤参阅下边实验指导进行实验，请学员各自写下操作方法与实验步骤注意不要全抄下来，以各自理解的写，如何出现相同的报告，将恩赐0分办理）六、实验讲义实验1API_音频播放器本节主要介绍了利用API函数制作WAV音频播放器，第一来介绍一下3PlaySound()函数它的申明形式以下所示：PrivateDeclareFunctionPlaySoundLib"winmm.dll"Alias"PlaySoundA"(ByVallpszNameAsString,ByValhModuleAsInteger,ByValdwFlagsAsInteger)AsInteger字符串lpszName为声音文件的全名。

长整型hModule为程序模块的句柄，平时设置为0长整型dwFlags标记设置，在使用文件名时设置为&20000 增加控件4新建一个项目，在项目里增加windows窗体“form1”，把它的“Text”属性改为“API_音频播放”在“form1”上增加一个DriveListBox控件做为驱动器列表框，一个DirListBox控件做为目录列表框，一个FileListBox控件做为文件列表框，一个Button控件做为命令按钮，五个Label控件做为表记把Label1的Text属性改成“驱动器”来表记DriveListBox控件，把Label2的Text属性改成“目录”来表记DirListBox控件，把Label3的Text属性改成“文件”来表记FileListBox控件，再把FileListBox控件的Pattern属性设置为*.WAV，这样就能过滤掉其余种类的文件，Label4的Text属性改成“所选的声音文件全5名”，Label5的Text件的完整路径把Button改成“播放”属性显示声音文的Text属性拜见图1? 图1增加代码6双击DriveListBox1控件后进入代码编写窗口，第一增加以下所示的程序申明朝码：OptionStrictOffOptionExplicitOnFriendClassForm1InheritsSystem.Windows.Forms.Form播放声音的API函数PrivateDeclareFunctionPlaySoundLib"winmm.dll"Alias"PlaySoundA"(ByVallpszNameAsString,ByValhModuleAsInteger,ByValdwFlagsAsInteger)AsIntegerDimstrSoundAsString7' 函数申明在“PrivateSubDriveListBox1_SelectedIndexChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesDriveListBox1.SelectedIndexChanged”与“EndSub”之间增加代码：驱动器改变DirListBox1.Path=DriveListBox1.Drive双击DirListBox1控件，增加代码：目录改变FileListBox1.Path=DirListBox1.Path双击FileListBox1控件，增加代码：文件改变8strSound=DirListBox1.Path&"\"&FileListBox1.FileName双击Label5控件，增加代码：strSound=DirListBox1.Path+"\"+FileListBox1.FileNameLabel5.Text=strSound双击Button1控件，增加代码：播放音频文件DimlngRetAsIntegerIfstrSound=""Then'不选择声音文件直接播放lngRet=PlaySound("c:\Windows\Media\TheMicrosoftSound",0,&H20000)Else'选择声音文件后播放9lngRet=PlaySound(strSound,0,&H20000)EndIf在“PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load”与“EndSub”之间增加代码：为文件名赋初值strSound=""运转达成全部的代码书写后，保存文件并运转程序。

运转后的程序大体如图2所示，10图2各个框框里的内容也许因人而异，但结构差不多相同，假如不选择文件，直接单击“播放”，则播放的我们所熟习的Windows98启动的声音自然你也可以选择自己喜爱的音乐文件进行播放，但是文件名一定是*.WAV11实验2MP3播放器增加控件新建一个Windows应用程序，把Form1的“Text”属性改为“MP3Player”增加一个MainMenu控件，选中控件MainMenu1，点击鼠标右键，在弹出的菜单里选择“编写菜单”进入菜单编写窗口，如图：选中MenuItem1，点击鼠标右键，选择“新插入”，共插入4个MenuItem，它的属性以下表：12控件种类控件名称属性设置结果MenuItemText文件1MenuItemText打开文件2MainMenuMenuItemText除去列表3MenuItemText退出4增加一个ListBox控件，把Name属性改为“List”，用于显示曲目列表增加3个Button控件，它们的属性以下表：控件种类控件名称属性设置结果Button1Text播放ButtonButton2Text暂停Button3Text停止13增加一个OpenFileDialog控件，用于显示打开对话框。

增加一个MMControl控件，把Visible属性设置为“False”，这样就把MMControl控件隐蔽了MMControl控件平时不在“工具栏”里，可以经过点击菜单栏上的“工具”→“增加/移除工具箱项”，在COM组件里找到“MicrosoftMultimediaControl”项，选中而后确立即可如图：14增加控件达成后的界面如图：增加代码双击“打开文件”菜单，增加以下代码：DimpathNames()AsString15定义多项选择文件路径DimsFileAsString定义采用的文件路径DimflagAsBoolean=False判断用户双击的地域能否在列表项上PrivateSubMenuItem2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMenuItem2.ClickWithMe.OpenFileDialog1.Title="打开音乐文件".Multiselect=True.Filter="音乐文件(*.mp3)|*.mp3|(*.mid)|*.mid"16.ShowDialog()pathNames=.FileNamesEndWithDimpathAsStringForEachpathInpathNamesMe.List.Items.Add(path)Next增加文件路径到播放列表中EndSub双击“除去列表”菜单，增加以下代码：PrivateSubMenuItem3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMenuItem3.Click17Me.List.Items.Clear()EndSub双击“退出”菜单，增加以下代码：PrivateSubMenuItem4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMenuItem4.ClickMe.MCIControl.Command="Stop"Me.MCIControl.Command="Close"Me.Close()EndSub18双击ListBox控件，在代码编写窗口的右上的下拉菜单中，选择“DoubleClick”，如图：增加以下代码：PrivateSubList_DoubleClick(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesList.DoubleClick19flag=Trueflag=TrueOnErrorResumeNextMe.MCIControl.Command="Stop"Me.MCIControl.Command="Close"sFile=Me.List.SelectedItemMe.MCIControl.FileName=sFileMe.MCIControl.Command="Open"Me.MCIControl.Command="Play"EndSub双击“播放”按钮，增加以下代码：PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAs20System.EventArgs)HandlesButton1.ClickMe.MCIControl.Command="Play"EndSub双击“暂停”按钮，增加以下代码：PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickMe.MCIControl.Command="Pause"EndSub双击“停止”按钮，增加以下代码：PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAs21System.EventArgs)HandlesButton3.ClickMe.MCIControl.Command="Stop"Me.MCIControl.Command="Prev"Me.MCIControl.Command="Stop"EndSub运转达成代码后，保存文件，并按F5调试运转，打开音乐文件（*.mp3），可以同时打开多个文件，在列表框将出现所选择的文件列表，双击任意一首歌曲，就能进行播放，运转结果以下列图：22实验3CD播放器1. 增加控件23新建一个Windows应用程序，把Form1的“Text”属性改为“CDPlayer”。

增加一个MainMenu控件，选中控件MainMenu1，点击鼠标右键，在弹出的菜单里选择“编写菜单”进入菜单编写窗口，如图：选中MenuItem1，点击鼠标右键，选择“新插入”，共插入4个MenuItem，它的属性以下表：控件种类控件名称属性设置结果MainMenuMenuItemText唱片241MenuI。