大多数访问用户都没有意识到他们可以通过响应特定事件而引入各种声音(* .WAV)来显着增强其应用程序。 Access可以生成的唯一固有声音是DoCmd.Beep,几乎没有值得一提的时间。 您可以通过一次调用相对简单的API函数将声音功能合并到Access应用程序中。 函数的几个参数指示声音文件(* .WAVs)的位置以及声音的播放方式。 下面的代码将完全熟悉
TaDa.wav一旦记录已成功保存,并FogHorn.wav如果在更新操作时产生错误。 仔细按照下面列出的步骤进行操作。 1.在标准代码模块中声明API函数及其标志参数。Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
'The Flags Argument modifies the behavior of sndPlaySound
'SND_ASYNC - Sound played asynchronously. Code after the Sound function
'will immediately be executed.
'SND_SYNC - Sound must finish first before further Code is executed
'SND_LOOP - Can be combined with SND_ASYNC to create a continuous
'Background Loop
'iRetValue = sndPlaySound("C:\WAV\MYWAV.WAV", SND_ASYNC + SND_LOOP)
'The Sound continues playing until the Program executes another sndPlaySound call.
Public Const SND_ASYNC = &H1
Public Const SND_SYNC = &H0
Public Const SND_LOOP = &H8
2.从适当的事件对API函数进行调用。
Private Sub Form_AfterUpdate()
On Error GoTo Err_Form_AfterUpdate
Dim iRetValue As Long
'Record has been successfully Saved
iRetValue = sndPlaySound("C:\Sounds\TaDA.wav", SND_ASYNC)
Exit_AfterUpdate:
Exit Sub
Err_Form_AfterUpdate:
'some type of Error occurred
iRetValue = sndPlaySound("C:\Sounds\FogHorn.wav", SND_ASYNC) MsgBox Err.Description, vbExclamation, "Error in Form_AfterUpdate()"
Resume Exit_AfterUpdate
End Sub
3.通过首先检查用户系统是否支持声音播放以及请求的文件是否实际存在,可以进一步改进上述代码。
如果有人有兴趣查看这些增强功能之一,请告诉我。
From: https://bytes.com/topic/access/insights/639316-how-play-sounds-access