《VB制作简单的MP3播放器1.doc》由会员分享,可在线阅读,更多相关《VB制作简单的MP3播放器1.doc(6页珍藏版)》请在金锄头文库上搜索。
1、简单的MP3播放器一、系统完成功能及框图系统完成功能:用户进入打开播放器,选取文件就可播放了!运行打开文件选取文件播放音频或视频文件播放结束图1 系统功能框图二、 核心算法及说明1. 添加mediaplayer1及CommonDialog1控件右击工具箱的空白处,选择“部件”,然后选取控件,如下图:把相关控件添加到窗体上;在windows media player的属性窗口中把windows media player1名称改为media player12.动态链接文件 Private Sub Command1_Click() CommonDialog1.Action = 1 MediaPlay
2、er1.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.FileNam
3、e 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 Comm
4、and3_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.Enabled = False Command3.Enabled = False Command4.Enabled = FalseEnd Sub