在ACCESS中播放声音文件

Technorati 标签: accESS, 声音

有3种方法。一种是用winmm中的playsound函数，貌似这种只能播放wav文件；一种是用shellexecute；一种是用Microsoft Office 11.0 Object Library里的媒体播放器。我只用了头一种，后两种暂时记录在这里备忘。

第一种：用winmm中的playsound函数

1. Declare Function apisndPlaySound Lib "winmm" Alias "sndPlaySoundA" (ByVal filename As String, ByVal snd_async As Long) As Long 
2. Function PlaySound(sWavFile As String) 
3.     If apisndPlaySound(sWavFile, 1) = 0 Then 
4.         MsgBox "The Sound Did Not Play!" 
5.     End If 
6. End Function

实际播放的时候调用上面这个函数就行：

1. PlaySound ("C:/WINDOWS/media/CHIMES.WAV")

第二种：用shellexecute。来自这里

1. Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long 
3. Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long 
5. Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long 
7. Private Const WM_CLOSE = &H10 '关闭 
8. 'lpOperation可用参数：open、print、find、explore、edit 
9. 'nShowCmd参数 窗口模式类型声明 
10. Private Const SW_HIDE = 0 
11. Private Const SW_SHOWNORMAL = 1 
12. Private Const SW_SHOWMINIMIZED = 2 
13. Private Const SW_SHOWMAXIMIZED = 3 
14. Private Const SW_SHOWNOACTIVATE = 4 
15. Private Const SW_SHOW = 5 
16. Private Const SW_MINIMIZE = 6 
17. Private Const SW_SHOWMINNOACTIVE = 7 
18. Private Const SW_SHOWNA = 8 
19. Private Const SW_RESTORE = 9 
21. Private Sub Command0_Click() 
22.     '打开并播放 
23.     ShellExecute Me.hwnd, "open", "dj-我说我爱你dj版.mp3", "", "D:/KUGOO", SW_HIDE 
24. End Sub 
26. Private Sub Command1_Click() 
27.     '关闭 
28.     Dim hwnd As Long 
29.     hwnd = FindWindow(vbNullString, "Windows Media Player") 
30.     PostMessage hwnd, WM_CLOSE, 0&, 0& 
31. End Sub

第三种：用媒体播放器。看这里