实现播放音乐的几种方法
2009-11-13 11:33
393 查看
有几种方法实现:
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
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
相关文章推荐
- 网页中播放音乐的实现方法代码
- 几种C#实现播放声音的方法 DirectX、SoundPlayer等
- 几种C#实现播放声音的方法
- vue2.0+vuex+H5实现音乐播放及歌曲切换功能的方法及原理解释
- Android用MediaPlay方法实现本地音乐的播放,与进度条的实现
- 几种C#实现播放声音的方法 DirectX、SoundPlayer等
- 基于vue2.0实现音乐/视频播放进度条组件的思路及具体实现方法+代码解释
- Android编程实现使用SoundPool播放音乐的方法
- Android实现视频播放的几种方法
- android 音乐模仿器demo,实现指定目录下的音乐循环播放,和在线播放的方法。
- 网页中播放音乐的实现方法代码
- android播放音乐的三种方法实现
- 使用service的startservice 和bindservice方法实现音乐的播放、暂停、继续
- 网页中播放音乐的实现方法代码
- 网页中播放音乐的实现方法代码
- 使用JS播放声音/音乐的实现方法
- iOS 音频播放的几种方法
- 线程安全的单例模式的几种实现方法分享
- 实现Activity中控制service里音乐播放、暂停的两种方式
- ASP.NET页面刷新的几种实现方法