tryk en "command button" og afspil en wave-fil

<quote>Vedr. afspilning af een wave-fil ved tryk på en "command button"

Hvorledes skal dette programmeres ?.


Mvh

fin</quote>

Jeg har lavet et eksempel på hvordan dette kan gøres.
Det kan hentes her: http://home19.inet.tele.dk/mb2/vb/al-setup.exe
Håber du kan bruge det......

mvh Magnus Boye

<quote>Vedr. afspilning af een wave-fil ved tryk på en "command button"

Hvorledes skal dette programmeres ?.


Mvh

fin</quote>

Lav en form med en knap på. Jeg har kaldt knappen for btnPlayWave. Tilføj følgende Windows API declarationer til toppen af din form's kode:

<code>
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Const SND_ASYNC = &H1 ' play asynchronously
</code>

Dobbelt-klik på knappen som du tilføjede for at få knappens "Click-event" vist i kode-editoren. Tilføj følgende kode:

<code>
'
' Plays wave file when user clicks button.
'
Private Sub btnPlayWave_Click()

Dim soundFile As String

'set sound file
soundFile = "c:\\windows\\media\\tada.wav"

'call Win API
sndPlaySound soundFile, SND_ASYNC

End Sub
</code>

Konstanten; SND_ASYNC får lyden til at spille og lader programmet fortsætte umiddelbart. Hvis du skriver 0 (nul) istedet for SND_ASYNC, afspilles lyden og programmet får ikke "fokus" før lyden er færdig med at spille.