如何在 VB 中播放声音文件

来源：vb中文网 作者：不详 出处：巧巧读书 2005-12-04 进入讨论组

• 关 键 词：

Sub PlayWav(SoundName As String)
Dim tmpSoundName As String
Dim wFlags%， X%
， 声明语句部分 (请置于模块中)
，**********************************
，#If Win32 Then
，Public Declare Function sndPlaySound& Lib "winmm.dll" Alias
"sndPlaySoundA" (ByVal lpszSoundName As String， ByVal uFlags As Long) ，#Else
，Public Declare Function sndPlaySound% Lib "mmsystem.dll" (ByVal
lpszSoundName As String， ByVal uFlags As Integer)
，#End If
，WIN32
， **********************************
， WAV Sound values
，Global Const SND_SYNC = &H0
，Global Const SND_ASYNC = &H1
，Global Const SND_NODEFAULT = &H2
，Global Const SND_LOOP = &H8
，Global Const SND_NOSTOP = &H10
， **********************************
， *** pathWavFiles 是声音文件存放的路径
tmpSoundName = pathWavFiles & SoundName
wFlags% = SND_ASYNC Or SND_NODEFAULT
X% = sndPlaySound(tmpSoundName， wFlags%)
End SubWeb: http://www.qqread.com/vb/s452130100.html 更多内容请看VB文件编程专题，或进入讨论组讨论。

【收藏此文】【大 中 小】【打印】【关闭】

较早的文章：关于Visual Basic 6.0类开发（下）

较新的文章：用Visual Basic6类模块打造控件