韩国自拍av无码magnet:VB - 播放WAV文件

来源:百度文库 编辑:偶看新闻 时间:2024/04/29 15:01:39

'/*声明API及常量*/
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" ( _
    ByVal lpszSoundName As String, _
    ByVal uFlags As Long) As Long
'同步播放,即在播放 WAV 文件时,播放完毕后将控制权转移到当前应用程序
Private Const SND_SYNC = &H0
'异步播放,即在播放 WAV 文件时,不论当前是否播放完毕,立即将控制权转移到当前应用程序
Private Const SND_ASYNC = &H1

'/*定义通用过程*/
Private Sub PlayWav(sFileName As String)
    Call sndPlaySound(sFileName, SND_ASYNC)
End Sub

'/*调用示例*/
Private Sub Command1_Click()
    PlayWav ("C:\WINDOWS\Media\ding.wav")
End Sub