利用VB实现多媒体播放器

1、利用VB实现多媒体播放器利用VB实现多媒体播放器实验计划学时：6学时实验性质：考据性一、实验目的1.2.经过实验学习多媒体技术有关知识，增进对多媒体技术的认识和领悟。掌握VB办理中经常用到的基本看法和名词。学习使用VB编写多媒体播放器。二、实验内容和要求掌握VB中需要经常接触的基本看法。练习使用VB，试一试它的各项功能。要求掌握基本办理功能，学会使用控件制作播放器。三、实验环境（硬件环境和软件环境）带有声卡、麦克风、音箱或耳机的多媒体计算机。WindowsXP以上操作系统。2工具软件VB。四、实验报告要求实验报告应包括实验名称、实验目的、实验内容、实验环境、操作方法和实验步骤、实验数据记录和办

2、理、实验结果解析、领悟思疑建议。详尽请参阅实验报告模板。五、操作方法与实验步骤参阅下面实验指导进行实验，请学员各自写下操作方法与实验步骤。（注意不要全抄下来，以各自理解的写，如何出现相同的报告，将恩赐0分办理）六、实验讲义实验1API_音频播放器本节主要介绍了利用API函数制作WAV音频播放器，第一来介绍一下3PlaySound()函数。它的声明形式以下所示：PrivateDeclareFunctionPlaySoundLibwinmm.dllAliasPlaySoundA(ByVallpszNameAsString,ByValhModuleAsInteger,ByValdwFlagsAsIn

3、teger)AsInteger字符串lpszName为声音文件的全名。长整型hModule为程序模块的句柄，平时设置为0。长整型dwFlags标志设置，在使用文件名时设置为&20000。增加控件4新建一个项目，在项目里增加windows窗体“form1”，把它的“Text”属性改为“API_音频播放”。在“form1”上增加一个DriveListBox控件做为驱动器列表框，一个DirListBox控件做为目录列表框，一个FileListBox控件做为文件列表框，一个Button控件做为命令按钮，五个Label控件做为表记。把Label1的Text属性改成“驱动器”来表记DriveListBox

4、控件，把Label2的Text属性改成“目录”来表记DirListBox控件，把Label3的Text属性改成“文件”来表记FileListBox控件，再把FileListBox控件的Pattern属性设置为*.WAV，这样就能过滤掉其他种类的文件，Label4的Text属性改成“所选的声音文件全5名”，Label5的Text件的完好路径。把Button改成“播放”。属性显示声音文的Text属性拜会图1图1增加代码6双击DriveListBox1控件后进入代码编写窗口，第一增加以下所示的程序声明朝码：OptionStrictOffOptionExplicitOnFriendClassForm1

5、Inherits播放声音的API函数PrivateDeclareFunctionPlaySoundLibwinmm.dllAliasPlaySoundA(ByVallpszNameAsString,ByValhModuleAsInteger,ByValdwFlagsAsInteger)AsIntegerDimstrSoundAsString7函数声明在“PrivateSubDriveListBox1_SelectedIndexChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesDriveListBox1.Sele

6、ctedIndexChanged”与“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控

7、件，增加代码：播放音频文件DimlngRetAsIntegerIfstrSound=Then不选择声音文件直接播放lngRet=PlaySound(c:WindowsMediaTheMicrosoftSound,0,&H20000)Else选择声音文件后播放9lngRet=PlaySound(strSound,0,&H20000)EndIf在“PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load”与“EndSub”之间增加代码：为文件名赋初值strSound=运行达

8、成所有的代码书写后，保存文件并运行程序。运行后的程序大体如图2所示，10图2各个框框里的内容也许因人而异，但结构差不多相同，若是不选择文件，直接单击“播放”，则播放的我们所熟悉的Windows98启动的声音。自然你也可以选择自己喜欢的音乐文件进行播放，但是文件名必定是*.WAV。11实验2MP3播放器增加控件新建一个Windows应用程序，把Form1的“Text”属性改为“MP3Player”。增加一个MainMenu控件，选中控件MainMenu1，点击鼠标右键，在弹出的菜单里选择“编写菜单”进入菜单编写窗口，如图：选中MenuItem1，点击鼠标右键，选择“新插入”，共插入4个MenuI

9、tem，它的属性以下表：12控件种类控件名称属性设置结果MenuItemText文件1MenuItemText打开文件2MainMenuMenuItemText除去列表3MenuItemText退出4增加一个ListBox控件，把Name属性改为“List”，用于显示曲目列表。增加3个Button控件，它们的属性以下表：控件种类控件名称属性设置结果Button1Text播放ButtonButton2Text暂停Button3Text停止13增加一个OpenFileDialog控件，用于显示打开对话框。增加一个MMControl控件，把Visible属性设置为“False”，这样就把MMCont

10、rol控件隐蔽了。MMControl控件平时不在“工具栏”里，可以经过点击菜单栏上的“工具”“增加/移除工具箱项”，在COM组件里找到“MicrosoftMultimediaControl”项，选中尔后确定刻可。如图：14增加控件达成后的界面如图：增加代码双击“打开文件”菜单，增加以下代码：DimpathNames()AsString15定义多项选择文件路径DimsFileAsString定义采用的文件路径DimflagAsBoolean=False判断用户双击的地域可否在列表项上PrivateSubMenuItem2_Click(ByValsenderAsSystem.Object,ByVa

11、leAsSystem.EventArgs)HandlesMenuItem2.ClickWithMe.OpenFileDialog1.Title=打开音乐文件.Multiselect=True.Filter=音乐文件(*.mp3)|*.mp3|(*.mid)|*.mid16.ShowDialog()pathNames=.FileNamesEndWithDimpathAsStringForEachpathInpathNamesMe.List.Items.Add(path)Next增加文件路径到播放列表中EndSub双击“除去列表”菜单，增加以下代码：PrivateSubMenuItem3_Clic

12、k(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMenuItem3.Click17Me()EndSub双击“退出”菜单，增加以下代码：PrivateSubMenuItem4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMenuItem4.ClickMe.MCIControl.Command=StopMe.MCIControl.Command=CloseMe.Close()EndSub18双击ListBox控件，在代码编写窗口的右上的下拉

13、菜单中，选择“DoubleClick”，如图：增加以下代码：PrivateSubList_DoubleClick(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesList.DoubleClick19flag=Trueflag=TrueOnErrorResumeNextMe.MCIControl.Command=StopMe.MCIControl.Command=ClosesFile=Me.List.SelectedItemMe.MCIControl.FileName=sFileMe.MCIControl.Command=OpenMe.MC

14、IControl.Command=PlayEndSub双击“播放”按钮，增加以下代码：PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAs20System.EventArgs)HandlesButton1.ClickMe.MCIControl.Command=PlayEndSub双击“暂停”按钮，增加以下代码：PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickMe.MCIControl.C

15、ommand=PauseEndSub双击“停止”按钮，增加以下代码：PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAs21System.EventArgs)HandlesButton3.ClickMe.MCIControl.Command=StopMe.MCIControl.Command=PrevMe.MCIControl.Command=StopEndSub运行达成代码后，保存文件，并按F5调试运行，打开音乐文件（*.mp3），可以同时打开多个文件，在列表框将出现所选择的文件列表，双击任意一首歌曲，就能进行播放，运行结果以

16、下列图：22实验3CD播放器增加控件23新建一个Windows应用程序，把Form1的“Text”属性改为“CDPlayer”。增加一个MainMenu控件，选中控件MainMenu1，点击鼠标右键，在弹出的菜单里选择“编写菜单”进入菜单编写窗口，如图：选中MenuItem1，点击鼠标右键，选择“新插入”，共插入4个MenuItem，它的属性以下表：控件种类控件名称属性设置结果MainMenuMenuItemText唱片241MenuItemText载入2MenuItemText弹出3MenuItemText退出4增加一个ListBox控件，把Name属性改为“Tracks”。增加一个Stat

17、usBar控件，把ShowPanels属性设为“True”，再增加两个StatusBarPanel，并讲它们的Alignment属性都改为“Center”，AutoSize属性都改为“Spring”。增加一个Timer控件，把Interval属性设为“1000”，Enable属性设为“True”。25增加一个MMControl控件，把Name属性改为“MCIControl”，所有按钮的Enable属性都设为“True”。可经过以下的方法设置按钮的属性：选中Form1上的MMControl控件，点击鼠标右键，在弹出的菜单里选择“ActiveX属性”,点击“控件”选项，尔后把所有控件的“*有效”选

18、项都选中如图：26若是你在“工具栏”里找不到MMControl控件，可以经过点击菜单栏上的“工具”“增加/移除工具箱项”，在COM组件里找到“MicrosoftMultimediaControl”项，选中尔后确定刻可。如图：增加控件达成后的界面如图：27增加代码双击ListBox控件，增加以下代码：PrivateSubTracks_SelectedIndexChanged(ByValsenderAsSystem.Object,ByValeAs28System.EventArgs)HandlesTracks.SelectedIndexChangedflag=TrueEndSub在代码编写窗口的右

19、上下拉菜单中，选择DoubleClick，如图：尔后增加以下代码：29PrivateSubTracks_DoubleClick(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesTracks.DoubleClick实现双机更正曲目功能TryIfMe.Tracks.SelectedIndex=0Andflag=TrueThenflag=FalseMe.MCIControl.Command=StopMe.MCIControl.Track=Me.Tracks.SelectedIndex+1Me.MCIControl.From=Me.MCICont

20、rol.TrackPositionMe.MCIControl.Command=Play30EndIfCatchexAsExceptionEndTryEndSub双击“载入”控件，增加以下代码：PrivateSubMenuItem2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMenuItem2.ClickDimiAsIntegerTryMe.MCIControl.Command=Open采用豪秒作为时间单位Me.MCIControl.TimeFormat=031Me.MCIControl.Track=1从第1

21、首的开始地址起播放Me.MCIControl.From=Me.MCIControl.TrackPositionIfMCIControl.ErrorThenMessageBox.Show(CDERROR)ExitSubEndIfMe.MCIControl.EjectEnabled=True将所有曲目列于表中Fori=1ToMCIControl.TracksTracks.Items.Add(track&i)Next32If0ThenMe.Tracks.SelectedIndex=0ElseMessageBox.Show(CDERROR)ExitSubEndIfCatchexAsExceptionM

22、essageBox.Show(CDERROR)ExitSubEndTryTimer1.Enabled=TrueMe.MCIControl.Command=PlayEndSub33双击“弹出”控件，增加以下代码：PrivateSubMenuItem3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMenuItem3.ClickMe.MCIControl.Command=EjectEndSub双击“退出”控件，增加以下代码：PrivateSubMenuItem4_Click(ByValsenderAsSystem.

23、Object,ByValeAsSystem.EventArgs)HandlesMenuItem4.ClickMe.Close()EndSub34双击MMControl控件，选择“StatusUpdate”增加以下代码：PrivateSubMCIControl_StatusUpdate(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesMCIControl.StatusUpdateIfMe.MCIControl.Mode=526ThenTimer1.Enabled=TrueElseTimer1.Enabled=FalseEndIfEndSub

24、双击Timer控件，增加以下代码：35PrivateSubTimer1_Tick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTimer1.Tick更新状态栏Me.StatusBarPanel1.Text=CD共有曲目&Me.MCIControl.Tracks&首Me.StatusBarPanel2.Text=现在正在播放第&Me.MCIControl.Track&首EndSub双击Form窗体，进入代码编写界面，增加以下代码：判断用户双击的地域可否在列表项上36DimflagAsBoolean=FalsePrivate

25、SubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadMe.FormBorderStyle=e.FixedSingleMe.MaximizeBox=FalseMCIControl.RecordVisible=FalseMCIControl.EjectEnabled=False设置设备种类MCIControl.DeviceType=CDAudioMe.StatusBarPanel1.Text=等待37Me.StatusBarPanel2.Text=请放入CD并加载EndSub尔后在代

26、码编写窗口的右上下拉菜单中，选择“Closing”，增加以下代码：PrivateSubForm1_Closing(ByValsenderAsObject,ByValeAsgs)HandlesMyBase.ClosingMCIControl.Command=StopMCIControl.Command=CloseEndSub运行38达成代码后，保存文件，并按F5调试运行，放入一张CD到CDROM中，运行的结果如图：实验4视频播放器39在这一例中，我们将利用MCI控件制作一个播放视频文件的程序，程序具备以下功能：拥有播放视频文件的能力。选择并打开将播放的文件。播放文件，具备Play（播放）、Sto

27、p（停止）等常有的播放功能。有进度条指示当前的播放进度。具备被循环播放功能。具备静音功能。增加控件新建一个Windows应用程序，把Form1的“Text”属性改为“MediaPlayer”。40增加一个MainMenu控件，选中控件MainMenu1，点击鼠标右键，在弹出的菜单里选择“编写菜单”进入菜单编写窗口，如图：选中MenuItem1，点击鼠标右键，选择“新插入”，共插入3个MenuItem，它的属性以下表：控件种类控件名称属性设置结果MenuItemText文件1MainMenuMenuItemText打开2MenuItemText退出341增加一个PictureBox控件，把Nam

28、e属性改为“Picture1”，用于显示播放的画面。增加一个MMControl控件，用于实现播放的各种功能。把Name属性改为“MCIControl”，所有按钮的Enable属性都设为“True”。可经过以下的方法设置按钮的属性：选中Form1上的MMControl控件，点击鼠标右键，在弹出的菜单里选择“ActiveX属性”,点击“控件”选项，尔后把需要用到的控件设置为“可视”，其他设置为“隐蔽”，以下列图：42增加一个TrackBar控件，用于控制和指示播放的进度。增加一个CheckBox控件，Name属性为“CheckBox1”，把Text属性改为“静音”，用于实现静音功能。增加一个Che

29、ckBox控件，Name属性为“CheckBox2”，把Text属性改为“循环”，用于实现循环播放的功能。43增加一个OpenFileDialog控件，用于显示打开对话框。MMControl控件平时不在“工具栏”里，可以经过点击菜单栏上的“工具”“增加/移除工具箱项”，在COM组件里找到“MicrosoftMultimediaControl”项，选中尔后确定刻可。如图：44增加控件达成后的界面如图：增加代码双击“打开”菜单，增加以下代码：DimFileNameAsString45PrivateSubMenuItem2_Click(ByValsenderAsSystem.Object,ByVal

30、eAsSystem.EventArgs)HandlesMenuItem2.ClickWithMe.OpenFileDialog1.Title=打开视频文件.Filter=视频文件*.avi)|*.avi|(*.mpg)|*.mpg|(*.mpeg)|*.mpeg.ShowDialog()FileName=.FileNameEndWithIfFileNameThenMe.MCIControl.Enabled=TrueMe.MCIControl.FileName=FileName46Me.MCIControl.hWndDisplay=MeMe.MCIControl.Command=OpenMe.T

31、rackBar1.Minimum=0Me.TrackBar1.Maximum=Me.MCIControl.LengthElseMsgBox(请选择文件)EndIfEndSub双击“退出”菜单，增加以下代码：PrivateSubMenuItem3_Click(ByValsenderAsSystem.Object,ByValeAs47System.EventArgs)HandlesMenuItem3.ClickMe.MCIControl.Command=StopMe.MCIControl.Command=CloseMe.Close()EndSub双击MMControl控件，在代码编写窗口的右上的下

32、拉菜单中，选择“StatusUpdate”，如图：48增加以下代码PrivateSubMCIControl_StatusUpdate(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesMCIControl.StatusUpdateIfMe.CheckBox1.CheckedThen若是复选了静音框Me.MCIControl.Silent=True无声播放ElseMe.MCIControl.Silent=False正常播放EndIf49Me.TrackBar1.Value=Me.MCIControl.PositionEndSub在代码编写窗口

33、的右上的下拉菜单中，选择“Done”,增加以下代码：PrivateSubMCIControl_Done(ByValsenderAsObject,ByValeAsAxMCI.DmciEvents_DoneEvent)HandlesMCIControl.DoneIfMe.MCIControl.Position=Me.MCIControl.LengthThen若是到了文件尾端Me.MCIControl.Command=prevMe.MCIControl.Command=Stop返回文件头50IfMe.CheckBox2.CheckedThenMe.MCIControl.Command=play若是复

34、选了“循环”框，开始重新播放EndIfEndIfEndSub在代码编写窗口的右上的下拉菜单中，选择“StopClick”,增加以下代码：PrivateSubMCIControl_StopClick(ByValsenderAsObject,ByValeAsAxMCI.DmciEvents_StopClickEvent)HandlesMCIControl.StopClickMe.MCIControl.Command=StopMe.MCIControl.Command=Prev51Me.MCIControl.Command=StopEndSubEndClass双击TrackBar控件，增加以下代码：

35、PrivateSubTrackBar1_Scroll(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTrackBar1.ScrollIfMe.MCIControl.Enabled=TrueThenMe.MCIControl.Position=Me.TrackBar1.Value响应进度条的拖动EndIfEndSub运行52达成代码后，保存文件，并按F5调试运行，打开一个视频文件（*.avi,*.mpg,*.mpeg），在“文件种类”的下拉菜单中，可以选择不相同的文件种类，运行的结果如图：53实验5Flash动画播放器本例介

36、绍如何使用ShockWaveFlash控件来制作Flash动画播放器的。第一将ShockWaveFlash控件的命令、属性、和事件简单介绍以下Play：播放。Stop：停止播放。StopPlay：停止播放当前的播放文件，以能播放新的动画。Movie属性：设置播放的文件路径。Loop属性：设置该属性为Ture，表示循环播放。CurrentFrame属性：当前帧。TotalFrames属性：动画总的帧数。54增加控件新建一个Windows应用程序，把Form1的“Text”属性改为“FlashPlayer”。在Form1上增加一个GroupBox控件，将它的Dock属性设置为“Bottom”。增加

37、一个MainMenu控件，选中控件MainMenu1，点击鼠标右键，在弹出的菜单里选择“编写菜单”进入菜单编写窗口，如图：点击鼠标右键，选择“新插入”，共插入9个MenuItem，它的属性以下表55控件种类控件名称属性设置结果MenuItemText文件1MenuItemText打开文件2MenuItemText播放列表3MenuItemText-4MenuItemText退出程序MainMenu5MenuItemText控制6MenuItemText连续播放7MenuItemText暂停播放8MenuItemText9增加一个OpenFileDialog控件。56增加一个Timer控件，把I

38、nterval属性改为“100”。增加一个TrackBar控件。增加一个Label控件，把Text属性改为“播放状态显示”。增加一个AxShockwaveFlash控件，把Dock属性改为“Fill”，把BackgroundColor属性改为“0”。若是在“工具箱”中未找到AxShockwaveFlash控件，则可以经过以下方法增加：点击菜单栏上的“工具”“增加/移除工具箱项”，在COM组件里找到“ShockwaveFlashObject”项，选中尔后确定刻可。57增加控件达成后的界面如图：58增加代码双击“打开文件”菜单，进入代码编写状态，增加以下代码：定义变量DimPathNames()A

39、sString定义文件路径数组59DimcountAsInteger定义打开多文件的文件数目DimiAsInteger定义循环变量PrivateSubMenuItem2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMenuItem2.ClickWithMe.OpenFileDialog1.Title=打开Flash动画文件.CheckFileExists=True.CheckPathExists=True.Multiselect=True.Filter=Flash动画(*.swf)|*.swf60.ShowD

40、ialog()PathNames=.FileNamesEndWithIfPathNamesIsNothingThenExitSubEndIfcount=PathNames.GetUpperBound(0)采用文件数目Me()清空所有已有的菜单项Fori=0TocountDimmitemAsNewMenuItemmitem.Text=PathNames(count-i)61Me.MenuItem3.MenuItems.Add(mitem)增加新菜单AddHandlerMenuItem3.MenuItems(i).Click,AddressOfMenuItem9_Click增加菜单的句柄到定义的过

41、程中Next把多项选择的文件属性设置达成Me.MenuItem3.Enabled=TrueMe.AxShockwaveFlash1.Movie=PathNames(count)设置文件路径Me.TrackBar1.Maximum=Me.AxShockwaveFlash1.TotalFrames62Me.AxShockwaveFlash1.Play()开始播放Me.AxShockwaveFlash1.Loop=TrueMe.Timer1.Enabled=TrueEndSub双击“MenuItem9”控件，增加以下代码：PrivateSubMenuItem9_Click(ByValsenderAs

42、System.Object,ByValeAsSystem.EventArgs)HandlesMenuItem9.ClickDimmitemAsMenuItem=senderi=mitem.Index63获取单击菜单索引值Me.AxShockwaveFlash1.StopPlay()停止刚刚的播放，以播放现在的动画Me.AxShockwaveFlash1.Movie=PathNames(count-i)设置重新播放的动画文件路径Me.TrackBar1.Maximum=Me.AxShockwaveFlash1.TotalFramesMe.AxShockwaveFlash1.Play()重新播放E

43、ndSub双击“连续播放”菜单，增加以下代码：64PrivateSubMenuItem7_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMenuItem7.ClickMe.AxShockwaveFlash1.Play()连续播放EndSub双击“停止播放”菜单，增加以下代码：PrivateSubMenuItem8_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMenuItem8.ClickMe.AxShockwaveFlash1

44、.Stop()停止播放EndSub65双击“退出”菜单，增加以下代码：PrivateSubMenuItem5_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMenuItem5.ClickClose()EndSub双击“Timer”控件，增加以下代码：PrivateSubTimer1_Tick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTimer1.TickMe.TrackBar1.Value=Me.AxShockwaveFlash1.C

45、urrentFrameMe.Label1.Text=正在播放66显示播放状态EndSub双击“Form1”控件，增加以下代码：PrivateSubMenuItem5_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMenuItem5.ClickClose()EndSub运行达成代码后，保存文件，并按F5调试运行，选择一个*.swf文件，运行的结果如图：6768实验6WindowsMediaPlayerAxMediaPlayer控件是一个标准的ActiveX控件，好多流行的媒体播放器都是以该核心，经过前端开发来实现

46、的。别的AxMediaPlayer控件可以用在远程办理客户端的服务程序中，来使用COM的远程办理功能。本例将介绍用MediaPlayer控件来播放一些常有的视频文件。MediaPlayer自己是一种功能特别富强的媒体播下班具，我们可以对它进行个人定制，将它嵌入到应用程序中，实现自定义的功能。Play：播放Pause：暂停Open：打开一个媒体文件Mute：静音69Currentposition属性：指示的是正在播放的文件的地址。Selectionend属性：指示的是已打开文件的总长度，综合使用这两个属性可以用slider控件做成播放滑块。Enablecontextmenu属性：用于决定可否取消

47、右键菜单的功能，False为取消，True为有效。Showcontrols属性：用于决定可否显示控制面版。Volume属性：用于音量控制（值为0是最大音量，值为-9460时为最小音量，敏感值为-20000之间）。Balance属性：用于声道左右均衡，可用于切换声道操作（值为-9460，0，9460对应左声道，立体声，右声道）。70DisplayMode属性：播放模式的选择。DisplaySize属性：显示的播放的尺寸大小。增加控件1）新建一个Windows应用程序项目。把Form1的Text属性改为“WindowsMediaPlayer”2）增加一个OpenFileDialog控件，用于打开文

48、件。3）增加一个MainMenu控件，选中控件MainMenu1，点击鼠标右键，在弹出的菜单里选择“编写菜单”进入菜单编写窗口，选中MenuItem1，点击鼠标右键，选择“新插入”，共插入18个MenuItem，它的属性以下表：71控件种类控件名称属性设置结果MenuItemText文件1MenuItemText打开2MenuItemText退出3MenuItemText控制4MainMenuMenuItemText播放5MenuItemText暂停6MenuItemText停止7MenuItemText视图8MenuItemText标准972MenuItemText精简10MenuItemT

49、ext最小11MenuItemText全屏12MenuItemText双倍14MenuItemText音量15MenuItemText增加音量16MenuItemText降低音量17MenuItemText设为静音184）增加一个WindowsMediaPlayer控件。若是WindowsMediaPlayer控件不在“工具栏”里，可以经过点击菜73单栏上的“工具”“增加/移除工具箱项”，在COM组件里找到“WindowsMediaPlayer”项，选中尔后确定刻可如图：把Dock属性设置为“Fill”，把AutoSize属性设置为“False”，把ShowStatusBar属性设置为True

50、。控件增加达成后的布局如图：74增加代码双击“打开”菜单，增加以下代码：DimFileNameAsStringPrivateSubMenuItem2_Click(ByValsenderAsSystem.Object,ByValeAs75System.EventArgs)HandlesMenuItem2.Click设置打开文件对话框WithMe.OpenFileDialog1标题.Title=打开影音文件.检查文件存在.CheckFileExists=True检查文件所在路径.CheckPathExists=True设置打开文件种类过滤器.Filter=所有影音文件(*.wav,*.mid,*.

51、mp3,*.avi,*.mpg,*.dat)&76|*.wav;*.mid;*.mp3;*.avi;*.mpg;*.dat|所有文件(*.*)|*.*设置可否可以采用多个文件.Multiselect=False显示帮助按钮.ShowDialog()采用的文件名称FileName=.FileNameEndWith打开所采用的文件Me.AxMediaPlayer1.Open(FileName)EndSub双击“退出”菜单，增加以下代码：77PrivateSubMenuItem3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Ha

52、ndlesMenuItem3.ClickMe.AxMediaPlayer1.Stop()Me.Close()EndSub双击“播放”菜单，增加以下代码：PrivateSubMenuItem5_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMenuItem5.ClickMe.AxMediaPlayer1.Play()EndSub双击“暂停”菜单，增加以下代码：78PrivateSubMenuItem6_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMenuItem6.ClickMe.AxMediaPlayer1.Pause()EndSub双击“停止”菜单，增加以下代码：PrivateSubMenuItem7_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMenuItem7.ClickMe.AxMediaPlayer1.Stop()EndSub双击“标准”菜单，增加以下代码：79PrivateSub