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

Y.J.Wang

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"

cg1

真是爱死你了，太太太太好了！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！

Y.J.Wang

要爱就爱老外吧，哈哈

WTM1

谢谢！！

好运牛

感谢分享，太棒了

ljp518

{:soso_e163:}