VB 最简单的WAV声音或音乐文件播放的代码

阿杰

1. '最简单的WAV声音或音乐文件播放的代码
   
2. 'API声明
   
3. Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
   
4. (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
   
5. '常量
   
6. Const SND_SYNC = &H0
   
7. Const SND_ASYNC = &H1
   
8. Const SND_NODEFAULT = &H2
   
9. Const SND_LOOP = &H8
   
10. Const SND_NOSTOP = &H10
    
11. 
    
12. '播放WAV声音或音乐文件
    
13. Private Function PlayWavSound(SoundFile As String) As Long
    
14. 'SoundFile 变量为存放WAV声音路径的
    
15. Dim lFlags As Long
    
16. lFlags = SND_ASYNC Or SND_NODEFAULT
    
17. PlayWavSound = sndPlaySound(SoundFile, lFlags)
    
18. End Sub
    
19. 
    
20. '停止播放WAV声音或音乐文件
    
21. Private Function StopWavSound(SoundFile As String) As Long
    
22. Dim lFlags As Long
    
23. lFlags = SND_ASYNC Or SND_NODEFAULT
    
24. StopWavSound = sndPlaySound(SoundFile,lFlags)
    
25. End Sub
    
26. 
    
27. '调用例子
    
28. Call PlayWavSound("C:\WINDOWS\Media\Windows XP 电话拨入声.wav")
    
29. 
    

复制代码

来源：http://yulv.net/archives/148/