Playsound functie

Status
Niet open voor verdere reacties.

wauzzer

Gebruiker
Lid geworden
3 apr 2007
Berichten
5
Ik ben momenteel bezig om een quiz te maken mbv Access. In dit formulier maak ik gebruik van een knop. Ik wil nu dat op het moment dat ik de deze knop klik een wav file afspelen. Na wat googlen en zoeken ben ik tot de volgende code gekomen:

Code:
Private Sub Knop23_Click()

Private Declare Function apiPlaySound Lib "Winmm.dll" Alias "sndPlaySoundA" _
    (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long


Call apiPlaySound("C:\WINDOWS\Media\Chimes.wav", 0)

End Sub

Wanneer ik nu echter de knop activeer krijg ik de volgende foutmelding:

De expressie Bij klikken die u hebt opgegeven als instelling voor de gebeurteniseigenschap, heeft de volgende fout veroorzaakt: Er mogen alleen opmerkingen staan na End Sub, End Function of End Property.

  • De expressie geeft niet de naam van een macro, de naam van een door de gebruiker gedefineerde functie of een [Gebeurtenisprocedure] als result.
  • Er is een fout opgetreden bij het evalueren van een functie, gebeurtenis of macro.


heeft er iemand een ander optie om deze wav file af te spelen.
 
Bij jou staat de Declare Function in je Private sub routine en dat gaat niet werken

Private Declare Function apiPlaySound Lib "Winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Private Sub Knop23_Click()

Call apiPlaySound("C:\WINDOWS\Media\Chimes.wav", 0)

End Sub

Zie bijlage:

mvg
Charles
 

Bijlagen

Charles,
bedankt voor je hulp het werkt nu prima.

groeten,

Hein
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan