[VB]程序中添加声音效果

 [VB]程序中添加声音效果，使用资源文件，PlaySound And sndPlaySound使用方法

 

1. Option Explicit
3. '***********************
4. 'ACC: How to Play .WAV Sounds on Events in Microsoft
5. 'HOWTO: Play a Waveform (.WAV) Sound File in Visual Basic
7. '经测试,播放资源中的WAV使用 sndPlaySound 实现的 PlayWaveRes ,
8. '      播放磁盘中文件使用PlaySound 实现的 PlaySystemWav
9. '***********************
10. Declare Function GetWindowsDirectoryA Lib "kernel32" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
12. 'PlaySound 是 sndPlaySound 的增强版本
13. Public Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
14. Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As Long
16. '*********************************************************************
17. 'BOOL PlaySound(LPCSTR pszSound,HMODULE hmod,DWORD fdwSound);
18. '
19. '1.参数pszSound:是指定了要播放声音的字符串,该参数可以是WAVE文件的名字,或是WAVE资源的名字,
20. '或是内存中声音数据的指针,或是在系统注册表WIN.INI中定义的系统事件声音.如果该参数为NULL则停止正在播放的声音.
21. '
22. '2.参数hmod:是应用程序的实例句柄,当播放WAV资源时要用到该参数,否则它必须为NULL.
23. '
24. '3.参数fdwSound: 是标志的组合，如下表所示。若成功则函数返回TRUE，否则返回FALSE。
25. '*********************************************************************
27. '*********************************************************************
28. '  Flag values for wFlags parameter.
29. '*********************************************************************
31. Public Const SND_SYNC = &H0        ' Play synchronously (default)
32. Public Const SND_ASYNC = &H1       ' Play asynchronously (see
33.                                    ' note below!)
34. Public Const SND_NODEFAULT = &H2   ' Don't use default sound
35. Public Const SND_MEMORY = &H4      ' lpszSoundName points to a
36.                                    ' memory file.
37. Public Const SND_LOOP = &H8        ' Loop the sound until next
38.                                    ' sndPlaySound.
39. Public Const SND_NOSTOP = &H10     ' Don't stop any currently
40.                                    ' playing sound.
41.                                    
42. Public Enum SysWaveFile
43. chimes = 1
44. chord = 2
45. ding = 3
46. notify = 5
47. recycle = 7
48. ringin = 8
49. ringout = 9
50. Start = 10
51. tada = 11
52. End Enum
54. '*********************************************************************
56. ' Plays a wave file from a resource.
58. '*********************************************************************
60. Public Sub PlayWaveRes(vntResourceID As Variant, Optional vntFlags)
61. '-----------------------------------------------------------------
62. ' WARNING:  If you want to play sound files asynchronously in
63. '           Win32, then you MUST change bytSound() from a local
64. '           variable to a module-level or static variable. Doing
65. '           this prevents your array from being destroyed before
66. '           sndPlaySound is complete. If you fail to do this, you
67. '           will pass an invalid memory pointer, which will cause
68. '           a GPF in the Multimedia Control Interface (MCI).
69. '-----------------------------------------------------------------
70. Static bytSound() As Byte ' Always store binary data in byte arrays!
71. 'SND_ASYNC 异步播放注意事项,以保证引用在退出当前过程后仍有效.所以使用 Static
72. bytSound = LoadResData(vntResourceID, "WAVE")
74. If IsMissing(vntFlags) Then
75.    vntFlags = SND_NODEFAULT Or SND_ASYNC Or SND_MEMORY
76. End If
78. If (vntFlags And SND_MEMORY) = 0 Then
79.    vntFlags = vntFlags Or SND_MEMORY
80. End If
82. sndPlaySound bytSound(0), vntFlags
83. End Sub
85. '*********************************************************************
87. ' Plays a wave file from a Windows/Media/
89. '*********************************************************************
90. '2007-04-10  05:05            55,776 chimes.wav         1
91. '2007-04-10  05:05            97,016 chord.wav          2
92. '2007-04-10  05:05            80,856 ding.wav           3
93. '2007-04-10  05:05            24,253 flourish.mid       4
94. '2007-04-10  05:05           119,384 notify.wav         5
95. '2007-04-10  05:05            40,075 onestop.mid        6
96. '2007-04-10  05:05            25,434 recycle.wav        7
97. '2007-04-10  05:05            10,026 ringin.wav         8
98. '2007-04-10  05:05             5,212 ringout.wav        9
99. '2007-04-10  05:05             1,192 start.wav          10
100. '2007-04-10  05:05           171,100 tada.wav           11
101. '2007-04-10  05:05            22,097 town.mid           12
103. Private Function GetWaveFileName(ByVal nFile As Integer)
104. Select Case nFile
105.     Case 1
106.         GetWaveFileName = "/Media/Chimes.wav"
107.     Case 2
108.         GetWaveFileName = "/Media/chord.wav"
109.     Case 3, 4
110.         GetWaveFileName = "/Media/ding.wav"
111.     Case 5, 6
112.         GetWaveFileName = "/Media/notify.wav"
113.     Case 7
114.         GetWaveFileName = "/Media/recycle.wav"
115.     Case 8
116.         GetWaveFileName = "/Media/ringin.wav"
117.     Case 9
118.         GetWaveFileName = "/Media/ringout.wav"
119.     Case 10
120.         GetWaveFileName = "/Media/Start.wav"
121.     Case 11
122.         GetWaveFileName = "/Media/tada.wav"
123.     Case Else
124.         GetWaveFileName = "/Media/ding.wav"
125. End Select
126. End Function
129. Public Sub PlaySystemWav(ByVal nFile As Integer)
130. Dim sBuf As String
131. Dim cSize As Long
132. Dim retval As Long
133. Static Windir As String
134. 'SND_ASYNC 异步播放注意事项,以保证引用在退出当前过程后仍有效.所以使用 Static
135. 'Create a variable large enough to store the Windows path.
136. sBuf = String(255, 0)
137. cSize = 255
138. 'Get Windows Directory
139. retval = GetWindowsDirectoryA(sBuf, cSize)
140. 'Strip buffer from Windows directory
141. Windir = Left(sBuf, retval)
142. 'Load and Play the sound.
143. Windir = Windir & GetWaveFileName(nFile)
145. PlaySound Windir, vbNull, SND_ASYNC Or SND_NODEFAULT
146. End Sub