Lyder som en rigtig söd ide.
Fölgende kode er fra
http://support.microsoft.com/default.aspx?scid=kb;en-us;86281 :
Dette skal i global module/section:
Private 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
Og dette skal der hvor du skal spille en lyd (wave format):
SoundName$ = "c:\\windows\\tada.wav"
wFlags% = SND_ASYNC Or SND_NODEFAULT
x% = sndPlaySound(SoundName$,wFlags%)
Dette skulle spille lyden asynchront, hvilket vil sige at din kode ikke venter til lyden er spillet med at gå videre, men strax lyden begynder at spille går den videre og du kan fx lave en animation af det næste kagestykke kommer ind eller hvad ved jeg.
Held og lykke, og check selv linket til artikelen, måske har jeg misforstået noget, bruger ikke VB selv.