private Declare Function sndPlaySound Lib "Winmm.dll" Alias "sndPlaySoundA" (ByVal SoundName As String, ByVal Flags As Long) As LongCall sndPlaySound("c:\a.wav", 0)
Private Sub Form_Load() PlaySound App.Path & "\newemail.wav" End Sub模块 'API Declares 声音效果 Public Declare Function sndPlaySound Lib "winmm" Alias _ "sndPlaySoundA" (ByVal lpszSoundName As String, _ ByVal uFlags As Long) As Long
' flag uitzetten Public Const SND_SYNC = &H0 Public Const SND_ASYNC = &H1 Public Const SND_NODEFAULT = &H2 Public Const SND_MEMORY = &H4 Public Const SND_LOOP = &H8 Public Const SND_NOSTOP = &H10Public Sub PlaySound(strSound As String) sndPlaySound strSound, SND_ASYNC Or SND_NODEFAULT End Sub我刚刚编完的 绝对好使
你放两个控件就可以同时播放两个声音
sndplaysound不能同时播放两个声音
PlaySound App.Path & "\newemail.wav"
End Sub模块
'API Declares 声音效果
Public Declare Function sndPlaySound Lib "winmm" Alias _
"sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
' flag uitzetten
Public Const SND_SYNC = &H0
Public Const SND_ASYNC = &H1
Public Const SND_NODEFAULT = &H2
Public Const SND_MEMORY = &H4
Public Const SND_LOOP = &H8
Public Const SND_NOSTOP = &H10Public Sub PlaySound(strSound As String)
sndPlaySound strSound, SND_ASYNC Or SND_NODEFAULT
End Sub我刚刚编完的
绝对好使