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