触发信号由硬件返回数据给应用程序!
脉冲转换为数字信号,然后传递给程序:
程序检测到这个信号然后就:
调用下面的函数:
Option Explicit
Dim k As Long
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Public Sub PlaySound()
k = sndPlaySound(App.Path & "\music.wav", &H9) '非同步重复播放!
End Sub