小弟请问,怎么使用vb播放mp3?

Question

如果安装了 Windows Media Player，可以利用它来播放，在有就是用其他控件，质量好的、免费的不太多。Windows Media Player 的例子：
http://263.csdn.net/edyang/

Answer 1

可用mp3play.ocx播放，该控件如没有注册码则只能播放30秒，在我的主页上有一个delphi(在delphi中控件使用方法与vb一样）编的mp3播放器（含源代码），想要的话到 http://datawind.home.chinaren.com 上下载.mp3play.ocx暂时未上传，如有需要请写信给我
[email protected] 或者让我寄给你.

Answer 2

在VB6.0中用MCI控件(Microsoft Media Control 6.0)就可以播放。

Answer 3

我有一个很好的mp3播放控件，给我发e-mail，我会给你的，到时候呵呵

Answer 4

课业用window自带的控件好象是microsoft media player类似的就可用
另外，还可以用MCI控件右键在属性页的设备填上一定的设备即可
譬如waveaudio,sequent等等可Email me

Answer 5

请用MMControl1控件和Picture1控件CommonDialog1控件
程序代码（如果问题解决请给分）
Private Sub MnuOpen_Click()
  Dim temp As Integer
  Dim stringtext As String
  Dim midx, midy As Double
  CommonDialog1.FileName = ""
  CommonDialog1.Filter = "(*.avi)|*.avi|(*.wave)|*.wav|(*.vcd *.dat)|*.dat|(midi *.midi)|*.midi"
  CommonDialog1.FilterIndex = 1
  CommonDialog1.Action = 1
  MMControl1.Command = "close"
  If CommonDialog1.FileName = "" Then
  temp = MsgBox("没有选择文件!", 37, "检查:")
  Else
    Select Case CommonDialog1.FilterIndex
    Case 1
     MMControl1.DeviceType = "avivideo"
     MMControl1.TimeFormat = 3
     MMControl1.FileName = CommonDialog1.FileName
     MMControl1.Command = "open"
     Slider1.Min = 0
     Slider1.Max = MMControl1.Length
   Case 2
     MMControl1.DeviceType = "waveaudio"
     MMControl1.TimeFormat = 1
     MMControl1.FileName = CommonDialog1.FileName
     MMControl1.Command = "open"
     Slider1.Min = 0
     Slider1.Max = MMControl1.Length
   Case 3
     MMControl1.DeviceType = "MpegVideo"
     MMControl1.TimeFormat = 3
     MMControl1.FileName = CommonDialog1.FileName
     MMControl1.Command = "open"
     Slider1.Min = 0
     Slider1.Max = MMControl1.Length
   End Select
   MMControl1.hWndDisplay = Picture1.hWnd
   End If
   If MMControl1.Position = MMControl1.Length Then
     MMControl1.Command = "stop"
     
    End If
    
   
End SubPrivate Sub MnuPlay_Click()
 MMControl1.Command = "play"
 
End Sub

Answer 6

MCI控件并不好用，至少在换文件的时候很慢。
还是用专业的MP3播放控件吧。