Play audio files in access

Technorati label: Access, sound

There are three methods. One is to use the playsound function in winmm. It seems that only wav files can be played, the other is to use ShellExecute, and the other is to use a media player in the Microsoft Office 11.0 Object Library. I only use the first one, and the last two are temporarily recorded here for memo.

First, use the playsound function in winmm.

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

You can call the above function during actual playback:

1. Playsound ("C:/Windows/Media/chimes. wav ")

Second: Use ShellExecute. From

Here

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 "find0000wa" (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' close
8. Available 'lpoperation parameters: open, print, find, release E, and edit
9. 'Nshowcmd parameter window mode type declaration
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. 'Open and play
23. ShellExecute me. hwnd, "open", "dj-i said I love you dj", "", "d:/kugoo", sw_hide
24. End sub
26. Private sub commandementclick ()
27. 'Close
28. Dim hwnd as long
29. Hwnd = findwindow (vbnullstring, "Windows Media Player ")
30. Postmessage hwnd, wm_close, 0 &, 0 &
31. End sub

Third: Use a media player. View

Here