一个简单的MP3播放器

ng("play " + mfn + " form " + Str(ProgressBar1.Value),0&,0,0)
''开始播放
  Timer1.Enabled=True
End Sub

Private Sub pause_Click()
  t%=mciSendString("pause " + mfn,0&,0,0)
''发出暂停的命令
  play.Enable=True
  pause.Enabled=False
  stopplay.Enabled=True
  back.Enabled=False
  prew.Enabled=False
End Sub

Private Sub stopplay_Click()
  t%=mciSendString("stop " + mfn,0&,0,0)
  t%=mciSendString("close " + mfn,0&,0,0)
''停止播放
  play.Enabled=True
  pause.Enabled=False
  stopplay.Enabled=False
  back.Enabled=False
  prew.Enabled=False
End Sub

Private Sub back_Click()
  t%=mciSendString("play " + mfn + " from " + Str(ProgressBar1.Value-(ProgressBar1.Max\10)),0&,0,0) ''向后跳一小段再播放
End Sub

Private Sub prew_Click()
t%=mciSendString("play " + mfn + " from " + Stri(ProgressBar1.Value+(ProgressBar1.Max\10)),0&,0,0) ''向前跳一小段再播放
End Sub

Private Sub Timer1_Timer()
  Dim t As Long
  Dim ret As String * 128
  t=mciSendString("status " + mfn + " position",ret,0,0)
''得到当前播放位置
  ret=left(ret,8)
  ProgressBar1.Value=Val(ret)
  Label1.Caption=gettime(Val(ret))
''显示歌曲当前时间
  If ProgressBar1.Value=ProgressBar1.Max Then
      stopplay_Click
  End If
  t=mciSendString("status " + mfn + " mode",ret,128,0)
  ret=Left(ret,8)
  StatusBar1.Panels(1).Text=ret
End Sub

Private Sub Form_Unload(Cacel As Integer)
  t%=mciSendString("stop " + mfn,0&,0,0)
  t%=mciSendString("close " + mfn,0&,0,0)
End Sub

Private Function Gettime(position As Long) As String
''这个函数的功能是把以长整型表示的时间转换为电子钟式的"**:**"
  Dim min,sec
  min=position/1000
  min=min/60
  sec=min-Int(min)
  min=Int(min)
  sec=60 * sec / 100
  sec=Int(sec * 100)
  gettime=Str(min) + ":" + Str(sec)
End Function

图中5个控制按钮，其实是把字体设为"Webdings"，让它们的Caption属性分别为"4" ";" "<" "7" "8"
就可以了