|
利用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=False pause.Enabled=False Stopplay.Enabled=False back.Enabled=False prew.Enabled=False Timer1.Enabled=False Timer1.Interval=500 End Sub
Private Sub open_Click() On Error Goto err With CommonDialog1 .CancelError=True .Filter="音乐文件|*.mp3;*.wav;*.mid" .Flags=cdlOFNNoChangeDir And cdlOFNPathMustExist .Action=1 stopplay_Click '停止按钮同时可以设备初始化 mfn=.FileName '这个程序中文件名一定不能带空格 Form1.Caption=.FileName play.Enabled=True End With play_Click Exit Sub err: End Sub
|