VB教程,VB案例:如何在 VB 中播放聲音文件,VB源碼,VB代碼,VB源碼下載,VB實...

昵稱4837188 2011-09-30

展開全文

如何在 VB 中播放聲音文件

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 Sub