实现播放音乐的几种方法

有几种方法实现:

 

1. 用MCI32控件简单实现播放音乐

 

 '部件添加 Microsoft Multimedia Controls 6.0

Private Sub Form_Load()

    'MMControl1.DeviceType= = "WaveAudio"  '屏蔽了,系统默认即可
    MMControl1.FileName = "E:/娱乐园/Music/bg.mp3"
    MMControl1.Command = "open" '打开设备
    MMControl1.Command = "Play"
End Sub

Private Sub Form_Unload(Cancel As Integer)
    MMControl1.Command = "close" '退出时关闭MCI设备
End Sub

 

 

附表1 MCI设备类型定义
设备类型 　 设备描述
CDAudio 　　 激光唱盘播放设备
DAT 　 　　　数字化磁带音频播放机
DigitalVideo 动态数字视频图像设备
Animation 　动画播放设备
Other　　　 未给出标准定义的MCI设备
Overlay 　 　模拟视频图像叠加设备
Sequence 　 　MIDI音序发生器
VCR　　　　 可以使用程序控制的磁盘录像机
VideoDisc 　 可以使用程序控制的激光视盘机
WaveAudio 　播放数字化波形音频的设备

AviVideo       Avi视频格式
 

 

 

2. '利用API函数播放Wav声音文件
Private Declare Function sndPlaySound Lib "Winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Private Sub Command1_Click()
    Dim SoundFile As String, Result As Long
    SoundFile = "C:/windows/Media/Windows XP 启动.wav"
    Result = sndPlaySound(SoundFile, 1)
End Sub

 

 

3 ' 利用Media Player播放声音文件

'引用 Windows Media Player

Private Sub Command1_Click()
    Dim wmp As WMPLib.WindowsMediaPlayer
    Set wmp = New WMPLib.WindowsMediaPlayer
    wmp.URL = "E:/Music/黄江琴-大宅门.wma"
    wmp.uiMode = "None"
    'wmp.Controls.stop
End Sub