afspilning af .wav lyde i vb6 i et program-forløb

Hej Hornung.

I en form:
  dim lyd as string, y as single

    wflags% = snd_async And snd_nodefault
 
    lyd = app.Path & \"\\filnavn.wav\"
    Y = sndPlaySound(lyd, wflags%)

Kan aktiveres med alle de lyde du ønsker styret i det skjulte af brugerens handlinger eller af timer f.eks.

M.v.h.  Jørn

Jeg bruger :

\'i et module
Public Declare Function mciSendString Lib \"winmm.dll\" Alias \"mciSendStringA\" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

\'spiller en lyd i starten
Private Sub Form_Load()
Dim lRet As Long
lRet = mciSendString(\"play c:\\startup.wav\", 0, 0&, 0& )
End Sub

Jeg bruger :

\'--- Module1 ---
Declare Function sndPlaySound Lib \"winmm\" Alias \"sndPlaySoundA\" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Public Const SND_SYNC = &H0        \'  play synchronously (default)
Public Const SND_ASYNC = &H1        \'  play asynchronously
\'--- Module1 ---



\'--- Form1 ---
Private Sub Command1_Click()
sndPlaySound \"C:\\WINDOWS\\MEDIA\\The Microsoft Sound.wav\", SND_ASYNC
End Sub

Private Sub Command2_Click()
sndPlaySound \"C:\\WINDOWS\\MEDIA\\The Microsoft Sound.wav\", SND_SYNC
End Sub
\'--- Form1 ---

Hvor kunne jeg glemme - i et modul:
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

M.v.h.  Jørn

Hvis man gerne vil afspille mp3 filer gør jeg sådan her:

indsæt compenents:
windows media player

Private Sub Form_Load()
MP3Player.Stop
MP3Player.FileName = \"c:\\musik\\ut.mp3\"
MP3Player.Play
End Sub

Private Sub MP3Player_EndOfStream(ByVal Result As Long)
MP3Player.Play
End Sub

ingen modul eller noget ;0)

Her starter den forfra hele tiden

Tak for hjælpen!

Kunne >>superinfojens<< ikke lige forklare mig hvordan jeg i helvede får den wav-fil til at stoppe igen.

Og ligeledes med mp3-filen

Hmmmm.. lad mig gætte

MP3Player.Stop