Question

如何在vb中加载声音

我想用一个时钟控件控制一段声音的播放，假如在3-5秒内，我应该怎么写程序。我有一段程序，不知道错在哪里，请各位指教
'工程---引用----WindowsMediaPlayer---确定.加声音
Dim XX As WindowsMediaPlayer
Private Sub Form_Load()
Set XX = New WindowsMediaPlayer
XX.openPlayer "D:\My Documents\My Music\音乐\xb.mp3"
End Sub
提示错误是实时错误
自动化错误

Answer 1

不用wmp。
用API就行了 简单又不占资源 加载一个WMP要很多内存以及CPU时间。

Public Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Public Const SND_ASYNC = &H1 '异步

播放:
PlaySound "wav File Path", 0, SND_ASYNC

Answer 2

这样就行了
WindowsMediaPlayer1.URL = "音乐文件路径"