vb实现播放声音文件

　　在某些情况下，例如编写游戏,或将要进行一项非常冗长的过程, 可以通过播放音乐来增加游戏的声光效果或是减少漫长的等待所带来 的困倦。本文介绍如何在Visual Basic 中播放声音文件。

　　在Windows系统中支持的声音文件有WAV文件和MIDI文件,通常使 用Windows应用程序编程接口(API)函数可以对MIDI文件进行播放;而 使用API函数sndPlaySound则可以对WAV 播放文件进行播放,当然,也 可以使用nciExecute函数来播放WAV文件。播放WAV文件

　　需要在程序窗体的通用声明部分中或标准模块中添加如下声明语 句:

　　Private Declare Function sndPlaySound Lib "winmm.dll" Al ias"sndPlaySound A"((ByVal lpszSound Name As String,ByVal uF lags As Long)As Long

　　然后添回如下标准识常量:

　　　　Public Const SND_SYNC=& H0
　　 Public Const SND_ASYNC=& H1
　　 Public Const SND_NODEFAULT=& H2
　　 Public Const SND_MEMORY=& H4
　　 Public Const SND_ALIAS=& H10000
　　 Public Const SND_RESOURCE=& H40004
　　 Public Const SND_ALIAS_ID=& H110000
　　 Public Const SND_ALIAS_START=0
　　 Public Const SND_LOOP=& H8
　　 Public Const SND_NOSTOP=& H10
　　 Public Const SND_VALID=& H1F
　　 Public Const SND_NOWAIT=& H2000
　　 Public Const SND_validflags=& H17201F
　　 Public Const SND_RESERVED=& HFF000000
　　 Public Const SND_TYPE_MASK=& H170007