[VB.NET]MP3播放器
MP3播放器
实例说明 在本实例中,我们将制作一个MP3播放器。程序运行时,可以选择MP3文件,选择左右声道声音,总共播放所需的时间等。程序运行结果如图61-1所示。 图61-1 运行结果 技术要点 l 注册Mp3Play控件 l 获得MP3文件的播放总时间 l 设置左右声道的声音 l 获得MP3文件的总帧数 实现过程 ■ 新建项目 打开Visual Studio.NET,选择"新建项目",在项目类型窗口中选择"Visual Basic项目",在模板窗口中选择"Windows应用程序",在名称域中输入"Mp3Play",然后选择保存路径。单击"确认"。 ■ 添加控件 向当前窗体添加七个Label控件,其中四个作为说明之用,其余三个分别用于显示MP3文件的播放时间、总帧数和文件名称。鼠标右击工具箱,选择"自定义工具箱",在弹出的对话框中选择Com组件,选中"Microsoft Common Dialog Control6.0"、"Microsoft Common Controls 6.0"、单击"浏览",选中文件Mp3play.ocx,这时会在""选项卡中出现"Dialog-Media Mp3Play ActiveX Control Module"一项。添加一个CommonDialog控件、三个Slider控件和一个Mp3PlayCtrl控件 。 ■ 设置属性 切换到"属性栏",对窗体上的控件设置属性如表61-1所示。 表61-1 属性表 控件 属性 值 SldLeft TickStyle 2-sldBoth Max 100 Orientation 1-ccOrientationVertical SldRight 同SldLeft LblBeijing Text 清华大学 lbltotaltime Autosize True BackStyle 0-Transparent Mp3play1 Visible False 其余控件 根据界面设置己可 ■ 添加代码 ' 选择mp3文件 Private Sub button1_Click(ByVal eventSender As System.Object,ByVal eventArgs As System.EventArgs) Handles button1.Click Dim totaltimes As Integer AXCommonDialog1.ShowOpen() If Len(AXCommonDialog1.FileName) = 0 Then Exit Sub Err.Number = Mp3Play1.Open(AXCommonDialog1.FileName,"") ' 取得mp3文件的总时间 totaltimes = Mp3Play1.TotalTime lbltotaltime.Text = "播放时间:" & Str(totaltimes / 60000) & ":" & Str(Int((totaltimes Mod 60000) / 1000)) lblmp3name.Text = AXCommonDialog1.FileName ' 取得mp3文件的左右声道音量 leftvolume = Mp3Play1.GetVolumeLeft rightvolume = Mp3Play1.GetVolumeRight sldPos.Value = 0 ' 取得mp3文件的总帧数 sldPos.Max = Mp3Play1.FrameCount lblframe.Text = "共" & sldPos.Max & "帧" button2.Enabled = True button3.Enabled = True button4.Enabled = True End Sub ' 开始播放 Private Sub button2_Click(ByVal eventSender As System.Object,ByVal eventArgs As System.EventArgs) Handles button2.Click Mp3Play1.Play() End Sub ' 暂停播放 Private Sub button3_Click(ByVal eventSender As System.Object,ByVal eventArgs As System.EventArgs) Handles button3.Click Mp3Play1.Pause() End Sub ' 停止播放 Private Sub button4_Click(ByVal eventSender As System.Object,ByVal eventArgs As System.EventArgs) Handles button4.Click Mp3Play1.Stop() End Sub ' 程序启动时,必须进行注册,否则不能正确播放 ' 设置左右声道默认值为中间值 Private Sub Form1_Load(ByVal eventSender As System.Object,ByVal eventArgs As System.EventArgs) Handles MyBase.Load Mp3Play1.Authorize("LightBringer","1441658209") SldLeft.Value = 50 SldRight.Value = 50 ' 在没有选择mp3文件之前,令播放、暂停、停止按钮不可用 button2.Enabled = False button3.Enabled = False button4.Enabled = False End Sub ' 改变左声道的音量 Private Sub SldLeft_Change(ByVal eventSender As System.Object,ByVal eventArgs As System.EventArgs) Handles SldLeft.Change Mp3Play1.SetVolume(leftvolume * SldLeft.Value / 100,rightvolume * SldRight.Value / 100) End Sub ' 改变播放mp3文件的位置 Private Sub sldPos_Change(ByVal eventSender As System.Object,ByVal eventArgs As System.EventArgs) Handles sldPos.Change Mp3Play1.Seek(sldPos.Value) Mp3Play1.Play() End Sub ■ 运行结果 单击菜单"调试|启动"或单击 图标运行程序。 小结 在本实例中,我们通过使用Mp3play控件来播放MP3文件,从而可以很方便地控制MP3文件的播放。 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |