Hej.
Du kunne lave den musik om til wav. I et modul indsættes
Declare Function sndPlaySound Lib "mmsystem.dll" (ByVal lydfilnavn$, ByVal wflags%) As Integer
Global Const SND_SYNC = &H0
Global Const SND_ASYN = &H1
Global Const snd_nodefault = &H2
Global Const SND_LOOP = &H8
Global Const SND_NOSTOP = &H10
Her afspilles lyden ved klik på knap, så skal det bare stå i form1.load.
Sub knudtal_click ()
On Error GoTo ejlyd
lyd = app.Path & "\klokken.wav"
Y = sndPlaySound(lyd, wflags%)
lyd = app.Path & "\" & scrmin.Value & ".wav"
Y = sndPlaySound(lyd, wflags%)
Y = sndPlaySound(tim, wflags%)
ejlyd:
Resume Next
lydfilen er her variabel - det er et program til at lære klokken med - for indvandrerbørn.
http://jkfsoft.dk/ur.htm skrevet i VB3
M.v.h. Jørn