Private Const SND_ASYNC = &H1 ' 异步播放
Private Const SND_FILENAME = &H20000 ' 文件播放
Private Const SND_LOOP = &H8 ' 循环
Private Const SND_SYNC = &H0 ' 同步
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Private Sub Form_Load()
PlaySound "pathfile.WAV", ByVal 0&, SND_FILENAME Or SND_ASYNC
End Sub
Private Const SND_FILENAME = &H20000 ' 文件播放
Private Const SND_LOOP = &H8 ' 循环
Private Const SND_SYNC = &H0 ' 同步
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Private Sub Form_Load()
PlaySound "pathfile.WAV", ByVal 0&, SND_FILENAME Or SND_ASYNC
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货