怎么在VB界面加背景音乐

显示全部楼层 · 2007-3-2 19:18:25

Public Const SND_NOWAIT = &&H2000 Public Const SND_VALIDFLAGS = &&H17201F Public Const SND_RESERVED = &&HFF000000 Public Const SND_TYPE_MASK = &&H170007Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long sndPlaySound函数需要两个参数：第一个参数soundfilename是要播放的WAV文件的名称；第二个参数是一个表明播放方式的标识常量，其定义的值如前面的声明所示，通常所使用的标识意义如下：SND_SYNC播放WAV格式文件，播放完毕后将控制转移回应用中。SND_ASYNC播放WAV格式文件，将控制立即转移回应用程序中，而不管对WAV文件的播放是否结束。SND_MEMORY用于播放以前已经加载到内存中的WAV格式文件。SND_LOOP循环播放WAV格式文件。注意：SND_LOOP标识通常需要同SND_ASYNC共同使用，也即在两个标识之间添加“与”播放符，以免在对WAV格式文件进行播放的时候将系统挂起。2、播放MIDI格式文件播放MIDI格式文件时，你必须在程序窗口的通用声明部分中或标准模块中添加如下的声明语句：Private Declare Function mciExecute Lib "winmm.dll" Alias "mciExecute" (ByVal lpstrCommand As String) As Long API函数mciExecute只有一个参数：CommandString，它是一个命令字符串，用于表明对声音文件播放的命令，例如，要完整播放声音文件“C:WindowsMediaCanyon.mid”，只需要用以下一些语句即可实现：Dim ReturnValue As Long ReturnSoundValue = mciExecute("play C:WindowsMediaCanyon.mid") 如果只播放MIDI格式文件的部分，就可以使用from...to...这种语句格式，例如：需要播放CANYON.MID文件的20毫秒到500毫秒的部分，可以使用如下的语句：Dim ReturnValue As Long ReturnSoundValue = mciExecute("play C: WINDOWS MEDIACANYON.MID from 20 to 500") 使用API函数mciExecute也可以用来对WAV格式文件进行播放，方法同播放MIDI基本一样。现举列如下：1、在Visual Basic应用窗体中加入以下声明：Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Const SND_SYNC = &&H0 Const SND_ASYNC = &&H1 Const SND_NODEFAULT = &&H2 Const SND_MEMORY = &&H4 Const SND_ALIAS = &&H10000 Const SND_FILENAME = &&H20000 Const SND_RESOURCE = &&H40004 Const SND_ALIAS_ID = &&H110000 Const SND_ALIAS_START = 0 Const SND_LOOP = &&H8 Const SND_NOSTOP = &&H10 Const SND_VALID = &&H1F Const SND_NOWAIT = &&H2000 Const SND_VALIDFLAGS = &&H17201F Const SND_RESERVED = &&HFF000000 Const SND_TYPE_MASK = &&H170007 Private Declare Function mciExecute Lib "winmm.dll" Alias "mciExecute" (ByVal lpstrCommand As String) As Long 2、在窗中激活事件中加入以下代码：Private Sub Form_Activate()Dim ReturnValue As LongReturnValue = sndPlaySound("C:windowsMEDIATADA.WAV",SND_SYNC)End Sub通过(F5)键来运行该程度即可听到背景音乐。