• Home
 · 
• Windows System Services
 · 
• Play .WAV (example 1)

Play .WAV (example 1)

Check if soundcard exist and then play a wave-file. https://137.56.41.168:2080/VisualBasicSource/vb4playwav.txt

API Declarations
Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Public Declare Function waveOutGetNumDevs Lib "winmm" () As Long
Global Const SND_SYNC = &H0 'just after the sound is ended exit function
Global Const SND_ASYNC = &H1 'just after the beginning of the sound exit function
Global Const SND_NODEFAULT = &H2 'if the sound cannot be found no error message
Global Const SND_LOOP = &H8 'repeat the sound until the function is called again
GLOBAL Const SND_NOSTOP = &H10 'if currently a sound is played the function will return without playing the selected sound
Global Const Flags& = SND_ASYNC Or SND_NODEFAULT

Rate Play .WAV (example 1)

• 1
• 2
• 3
• 4
• 5

(38(38 Vote))

'Add the following code to the Command1_Click event on a form:
Private Sub Command1_Click()
'Add the following code to the Command1_Click event:
  Dim i As Long
  Const SoundFileName$ = "c:\sb16\samples\s_16_44.wav"
  i = waveOutGetNumDevs()
  If i > 0 Then  'There is at least one sound device.
	i& = sndPlaySound(SoundFileName$, Flags&) 
  Else
   Beep
  End If
End Sub