Postup:
Do deklarační části formuláře zapište:
Private Declare
Function sndPlaySound Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName As
String, _
ByVal uFlags As Long) As Long
Na událost Form_Load:
Private Sub Form_Load()
sndPlaySound "c:\winnt\media\roar.wav", 1
'číslo '1' znamená,
že aplikace spustí přehrávání a pokračuje ve své činnosti.
'Pokud chcete, aby aplikace počkala na ukončení zvuku a pak pokračovala,
'zaměňte číslo za 0
End Sub
|