Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Const SND_ASYNC = &H1 ' play asynchronously
'异步方式播放
areturncode = sndPlaySound("c:\winnt\media\chimes.wav", SND_ASYNC)
'如下关闭
areturncode = sndPlaySound(vbNullString, SND_ASYNC)
Private Const SND_ASYNC = &H1 ' play asynchronously
'异步方式播放
areturncode = sndPlaySound("c:\winnt\media\chimes.wav", SND_ASYNC)
'如下关闭
areturncode = sndPlaySound(vbNullString, SND_ASYNC)
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货