用VB制作一个简单的MP3播放器 出处：CSDN责任编辑：ljx [04-6-18 10:06] 作者：yzy912[收藏]    利用API函数[mciSendString]可以轻松实现MP3音乐文件的播放。下面这段程序实现了MP3播放的大部分常规操作，对其稍加修改，做一个100KB大小的MP3播放器轻而易举 启动VB程序，在窗体上放置6个命令按钮，三个标签，一个公用对话框、一个进度条、一个状态栏和一个计时器，窗本的布置请参考附图 按钮"Open MP3 File"是用来打开对话框选择MP3文件，其他5个按钮分别为Play(播放)、Pause(暂停)、Stopplay(停止播放)、Back(向后跳跃)、Prew(向前跳跃)。Label1用来表示歌曲当前时间；label2放在时度条的最左边，Caption属性为"00：00"；lable3放在时度条的右边，用来表示歌曲总长。 下面就可以编写代码了。首先在窗体的"通用声明"部分声明函数 Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA"(Byval lpstrCommand As String,ByVal lpstrRetumString As String,ByVal uReturnLength As long,ByVal hwndCallback as long) As long Dim mfn As String 下面就是各个对象的代码了： Private Sub Form_load()mfn=""play.Enabled=Falsepause.Enabled=FalseStopplay.Enabled=Falseback.Enabled=Falseprew.Enabled=FalseTimer1.Enabled=FalseTimer1.Interval=500End Sub Private Sub open_Click()On Error Goto errWith CommonDialog1.CancelError=True.Filter="音乐文件|*.mp3;*.wav;*.mid".Flags=cdlOFNNoChangeDir And cdlOFNPathMustExist.Action=1stopplay_Click '停止按钮同时可以设备初始化mfn=.FileName '这个程序中文件名一定不能带空格Form1.Caption=.FileNameplay.Enabled=TrueEnd Withplay_ClickExit Suberr:End Sub Private Sub play_Click()On Error Resume NextDim t As Longt=mciSendString("open " + mfn,0&,0,0) 'Open后边的空格一定不能丢Dim ret As String * 128t=mciSendString("status " + mfn + " length",ret,128,0)

评论