如何在VB中播放mp3 Or mp2文件

Question

还不如自己写程序调用media player控件http://www.google.com/search?hl=zh-CN&ie=UTF-8&oe=UTF-8&q=MP3%E6%92%AD%E6%94%BE%E5%99%A8%E3%80%80%E6%BA%90%E4%BB%A3%E7%A0%81%E3%80%80VB%E3%80%80&btnG=Google%E6%90%9C%E7%B4%A2&lr=lang_zh-CN%7Clang_zh-TW

Answer 1

ActiveMoive
media player控件
通过"工程"-"部件"添加

Answer 2

WinMe 以上内置mp3解码引擎，无需控件，直接调用mciSendString！！！！！！

Answer 3

类模块
Option Explicit
Private hmem As Long
Const MMSYSERR_NOERROR = 0
Const MAXPNAMELEN = 32
Const MIXER_LONG_NAME_CHARS = 64
Const MIXER_SHORT_NAME_CHARS = 16
Const MIXER_GETLINEINFOF_COMPONENTTYPE = &H3&
Const MIXER_GETCONTROLDETAILSF_VALUE = &H0&
Const MIXER_SETCONTROLDETAILSF_VALUE = &H0&
Const MIXER_GETLINECONTROLSF_ONEBYTYPE = &H2&
Const MIXERLINE_COMPONENTTYPE_DST_FIRST = &H0&
Const MIXERLINE_COMPONENTTYPE_SRC_FIRST = &H1000&
Const MIXERLINE_COMPONENTTYPE_DST_SPEAKERS = _
               (MIXERLINE_COMPONENTTYPE_DST_FIRST + 4)
Const MIXERLINE_COMPONENTTYPE_SRC_MICROPHONE = _
               (MIXERLINE_COMPONENTTYPE_SRC_FIRST + 3)
Const MIXERLINE_COMPONENTTYPE_SRC_LINE = _
               (MIXERLINE_COMPONENTTYPE_SRC_FIRST + 2)
Const MIXERCONTROL_CT_CLASS_FADER = &H50000000
Const MIXERCONTROL_CT_UNITS_UNSIGNED = &H30000
Const MIXERCONTROL_CONTROLTYPE_FADER = _
               (MIXERCONTROL_CT_CLASS_FADER Or _
               MIXERCONTROL_CT_UNITS_UNSIGNED)
Const MIXERCONTROL_CONTROLTYPE_VOLUME = _
               (MIXERCONTROL_CONTROLTYPE_FADER + 1)Private Type MIXERCONTROLDETAILS
    cbStruct    As Long
    dwControlID As Long
    cChannels   As Long
    item        As Long
    cbDetails   As Long
    paDetails   As Long
End Type在模块中加入如下代码，要添加CommonDialog空件，两个VScroll空件，分别取名为vsVolume，vsMic。
Option Explicit
Const MMSYSERR_NOERROR = 0
Const SND_ASYNC = &H1
Const SND_NODEFAULT = &H2
Const SND_PURGE = &H40
Const SND_FILENAME = &H20000
Dim MyVolume As clsVolume
'
'Play a wave file.
Private Declare Function PlaySound Lib "winmm.dll" _
    Alias "PlaySoundA" (ByVal lpszName As String, _
    ByVal hModule As Long, ByVal dwFlags As Long) As LongPrivate Sub Form_Load()
Set MyVolume = New clsVolume
MyVolume.meOpenMixer
If MyVolume.prMixerErr = MMSYSERR_NOERROR Then
    With vsVolume
        .Max = MyVolume.prSpeakerMinVolume
        .Min = MyVolume.prSpeakerMaxVolume \ 2
        .SmallChange = 1000
        .LargeChange = 1000
    End With
    With vsMic
        .Max = MyVolume.prMicMinVolume
        .Min = MyVolume.prMicMaxVolume \ 2
        .SmallChange = 1000
        .LargeChange = 1000
        .Enabled = True
    End With
End If
End Sub上面调用API函数PlaySound实现对声音的控制。

Answer 4

To spehio2002(苏宁) 
可是工程中将 ActiveMoive控件加在窗体内 执行时报错
System Error &H80004005(-2147467259) 未指定的错误

Answer 5

To spehio2002(苏宁) 
可是工程中将 ActiveMoive控件加在窗体内 执行时报错
System Error &H80004005(-2147467259) 未指定的错误