Office中国论坛/Access中国论坛

标题: 声音函数 [打印本页]

作者: dasxsf 时间: 2006-4-19 21:56
标题: 声音函数
我是access初学者，在 Access交流讨论区发现如下帖子

让你的ACCESS程序发出声音的函数

Declare Function apisndPlaySound Lib "winmm" Alias "sndPlaySoundA" _
(ByVal filename As String, ByVal snd_async As Long) As Long

  Function PlaySound(sWavFile As String)
' Purpose:  Plays a sound.
' Argument: the full path and file name.
If apisndPlaySound(sWavFile, 1) = 0 Then
      MsgBox "The Sound Did Not Play!"
End If
  End Function
调用方法：PlaySound "文件名.WAV"

不知如何应用，PlaySound "文件名.WAV"  ，该语句应写在什么位置？

我想设计在查询中，如果没有查到，出现提示框，并有声音提示。

Private Sub Command1_Click()
Me.子窗体.Requery

If Me.子窗体.Form.CurrentRecord = 0 Then MsgBox "对不起，没有此记录"
在此加入声音提示
End Sub

   敬请各位指导！谢谢！

作者: andymark 时间: 2006-4-19 22:49
Private Const SND_APPLICATION = &H80
Private Const SND_ALIAS = &H10000
Private Const SND_ALIAS_ID = &H110000
Private Const SND_ASYNC = &H1
Private Const SND_LOOP = &H8
Private Const SND_MEMORY = &H4
Private Const SND_NODEFAULT = &H2
Private Const SND_NOSTOP = &H10
Private Const SND_NOWAIT = &H2000
Private Const SND_PURGE = &H40
Private Const SND_RESOURCE = &H40004
Private Const SND_SYNC = &H0
Private Declare Function PlaySound Lib "winmm.dll" Alias "

laySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

Private Sub Command0_Click()
Me.子窗体.Requery
If Me.子窗体.Form.CurrentRecord = 0 Then MsgBox "对不起，没有此记录"

PlaySound "C:\WINDOWS\MEDIA\TADA.WAV", ByVal 0&, SND_FILENAME Or SND_ASYNC
End If
End Sub

作者: dasxsf 时间: 2006-4-20 00:56
太谢谢您了，运行成功

作者: 75501241 时间: 2007-3-24 20:18
[em01]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)