让你的VBA或VB程序也能播音乐

mccad

2. '播放器调用
3. Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
4. Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
5. Public Const SND_SYNC = &H0
6. Public Const SND_ASYNC = &H1
7. Public Const SND_LOOP = &H8' 播放MID文件
8. Public Sub PlayMID(strFileName As String)
9.        Dim lngRet As Long
10.        lngRet = mciSendString("open " & strFileName & " type sequencer alias canyon", 0&, 0, 0)
11.        lngRet = mciSendString("play canyon wait", 0&, 0, 0)
12.        lngRet = mciSendString("close canyon", 0&, 0, 0)
13. End Sub' 播放WAV文件
14. Public Sub PlayWav(strFileName As String , ChkRepeat As Boolean)
15.        Dim intRetval As Integer
16.        intRetval = sndPlaySound(ByVal strFileName,   IIf(chkRepeat, SND_ASYNC Or SND_LOOP, SND_ASYNC))
17.        'If intRetval = 0 Then MsgBox ("Error!")
18. End Sub

'播放器调用 Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long Public Const SND_SYNC = &H0 Public Const SND_ASYNC = &H1 Public Const SND_LOOP = &H8' 播放MID文件 Public Sub PlayMID(strFileName As String)        Dim lngRet As Long        lngRet = mciSendString("open " & strFileName & " type sequencer alias canyon", 0&, 0, 0)        lngRet = mciSendString("play canyon wait", 0&, 0, 0)        lngRet = mciSendString("close canyon", 0&, 0, 0) End Sub' 播放WAV文件 Public Sub PlayWav(strFileName As String , ChkRepeat As Boolean)        Dim intRetval As Integer        intRetval = sndPlaySound(ByVal strFileName,   IIf(chkRepeat, SND_ASYNC Or SND_LOOP, SND_ASYNC))        'If intRetval = 0 Then MsgBox ("Error!") End Sub

小美菜

老大，放音乐时可否干工作（如再CAD的VBA其它程序运行）？

mccad

它只管放，音乐放后程序也就不对音乐进行控制了，程序在启动了音乐后就会继续运行后续的程序内容。

小美菜

今天我试过，MID格式可否循环播放？放完后进程是否自动终止？好像不是必须关掉后才能进行下一支歌曲的播放！！

tqmark

thank you !好东西，以后老大多发点程序哈，再次感谢