Come eseguire un file WAV


Una funzione per eseguire un file .Wav da un'applicazione VB.

Inserire il seguente codice in un modulo Bas:


Public 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_LOOP = &H8
Const SND_NOSTOP = &H10

Public Sub PlayWav(SoundName As String)
   
'passare il path completo del file .Wav
    'come parametro SoundName

    Dim wFlags As Long, X As Long

    wFlags = SND_ASYNC Or SND_NODEFAULT
    X = sndPlaySound(SoundName, wFlags)
End Sub

In un Form inserisci un CommandButton ed il seguente codice:

Private Sub Command1_Click()
    PlayWav App.Path & "\Utopia - Avvio di Windows.wav"
End Sub

Logicamente invece di App.Path & "\Utopia - Avvio di Windows.wav" inserirete il percorso completo del file Wav che vorrete eseguire.

Testato su: Windows 98, Windows Me, Windows 2000 Professional