VB制作简单的MP3播放器.doc

简单的MP3播放器一、系统完成功能及框图系统完成功能：用户进入打开播放器，选取文件就可播放了！运行打开文件选取文件播放音频或视频文件播放结束图1 系统功能框图二、 核心算法及说明1. 添加mediaplayer1及CommonDialog1控件右击工具箱的空白处，选择“部件”，然后选取控件，如下图：把相关控件添加到窗体上；在windows media player的属性窗口中把windows media player1名称改为media player12.动态链接文件 Private Sub Command1_Click() CommonDialog1.Action = 1 MediaPlayer1.URL = CommonDialog1.FileName If CommonDialog1.FileName Then Caption = 正在播放： & CommonDialog1.FileName Command3.Enabled = True Command4.Enabled = True End IfEnd Sub三、 界面设计程序代码如下：Private Sub Command1_Click() CommonDialog1.Action = 1 MediaPlayer1.URL = CommonDialog1.FileName If CommonDialog1.FileName Then Caption = 正在播放： & CommonDialog1.FileName Command3.Enabled = True Command4.Enabled = True End IfEnd SubPrivate Sub Command2_Click()Caption = 正在播放： & CommonDialog1.FileName MediaPlayer1.Controls.play Command2.Enabled = False Command3.Enabled = True Command4.Enabled = TrueEnd SubPrivate Sub Command3_Click() MediaPlayer1.Controls.pause Command3.Enabled = False Command2.Enabled = True End SubPrivate Sub Command4_Click() MediaPlayer1.Close Command4.Enabled = False Command2.Enabled = True End SubPrivate Sub Command5_Click() EndEnd SubPrivate Sub Form_Load() Caption = 正在播放： Command1.Caption = 打开 Command2.Caption = 播放 Command3.Caption = 暂停 Command4.Caption = 停止 Command5.Caption = 退出 Command2.Enab