WAV file spelen in VB60

Thread View: be.comp.programming

5 messages

[T] Back to Threads [V] Tree View [G] Group Articles

5 total messages Started by mdv Wed, 28 Aug 2002 18:34

#7535

Author: mdv
Date: Wed, 28 Aug 2002 18:34

5 lines
1176 bytes

Hoi,

Hoe kan ik h��l simpel een WAVFILE afspelen in een VB60 programma !!

Groeten

Re: WAV file spelen in VB60

#7536

Author: SLE
Date: Wed, 28 Aug 2002 18:47

15 lines
1495 bytes

"mdv" <marc.devlieger@pandora.be> wrote in message
news:GI8b9.92877$8o4.12569@afrodite.telenet-ops.be...
> Hoi,
>
> Hoe kan ik h��l simpel een WAVFILE afspelen in een VB60 programma !!
>

Via de PlaySound() API functie:

Public Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal
lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long


--
SLE

Re: WAV file spelen in VB60

#7544

Author: mdv
Date: Thu, 29 Aug 2002 11:57

24 lines
1787 bytes

Kunt ge me da nen keer duidelijker uitleggen AUB !

Alvast bedankt

"SLE" <info@NOSPAMproit.be> schreef in bericht
news:iV8b9.92889$8o4.12572@afrodite.telenet-ops.be...
> "mdv" <marc.devlieger@pandora.be> wrote in message
> news:GI8b9.92877$8o4.12569@afrodite.telenet-ops.be...
> > Hoi,
> >
> > Hoe kan ik h��l simpel een WAVFILE afspelen in een VB60 programma !!
> >
>
> Via de PlaySound() API functie:
>
> Public Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA"
(ByVal
> lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
>
>
> --
> SLE
>
>

Re: WAV file spelen in VB60

#7521

Author: Hugo Maes
Date: Fri, 06 Sep 2002 20:20

47 lines
2531 bytes

mdv wrote:
 
> Kunt ge me da nen keer duidelijker uitleggen AUB !

Ik ga er gemakkelijkheidshalve van uit dat je VB6/Win2K gebruikt met
alle recente servicepacks geinstalleerd.

- In de Components window "Microsoft Multimedia Control 6.0 (SP3)
aanvinken.

- De form openen waarin je je wave file wil afspelen.

- Dubbelklikken op de Multimedia Control in de Toolbar - de Multimedia
Control is toegevoegd aan de Form en het Project (MMControl1).

- Je zet in de Properties Window van deze control zowat alles op "false"
(dus ook niet zichtbaar).

- Dan voeg je de volgende code in waar je je wave file wil afspelen:

      With MMControl1
       .Notify = False
       .Wait = True
       .Shareable = False
       .DeviceType = "WaveAudio"
       .FileName = "MyWaveFile.wav"
       .Command = "Open"
       .Command = "Sound"
      End With

- Wil je der nog eentje afspelen, dan dit:

      With MMControl1
       .Command = "Close"
       .FileName = "MyWaveFileNogVanda.wav"
       .Command = "Open"
       .Command = "Sound"
      End With

- MyWaveFile kan een volledig pad inhouden, bvb "C:/My
Documents/MyShittySound/DirtySound.wav" - zoniet wordt de wave file op
App.Path gezocht.

Kortom, gebruik de MMControl in VB6. De API's van mijn voorganger zijn
echt voor gevorderden ;-)

mvg, HM

Re: WAV file spelen in VB60

#7526

Author: Pieter Philippaerts
Date: Sat, 07 Sep 2002 00:52

15 lines
1736 bytes

"mdv" <marc.devlieger@pandora.be> wrote in message
news:l_nb9.93870$8o4.12683@afrodite.telenet-ops.be...
> Kunt ge me da nen keer duidelijker uitleggen AUB !
>
> Alvast bedankt

Je kan de gemakkelijkere manier volgen die Hugo voorstelt, maar die heeft
als nadeel dat, als je je project wil verspreiden, je extra bestanden moet
mee leveren.
Indien je toch PlaySound wil gebruiken kan je er hier
[http://www.allapi.net/apilist/PlaySound.shtml] meer informatie over vinden
(inclusief een klein voorbeeldje).

Mvg,
Pieter Philippaerts

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads