Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
I need an mp3 player, a free one would be appreciate !!!
Message
De
24/02/2006 11:42:24
 
 
À
21/02/2006 06:54:46
Erick Miranda
Formata Data Business - Grupo Linx
Contagem, Brésil
Information générale
Forum:
Visual FoxPro
Catégorie:
Contrôles ActiveX en VFP
Versions des environnements
Visual FoxPro:
VFP 8
Divers
Thread ID:
01097476
Message ID:
01098941
Vues:
20
Hi Erick , thank you for your example but there must be some misunderstanding (as Phil Collins sang with Genesis) :-)
I have to make two difference sources at the same time ...
Thank you anyway
Alessio

>Hi Alessio,
>You can to adapt it for your needs. See below sample about how it play same music more time (event timer):
>
>*!* Make sure that there is a media file loaded
>cCmd = ("STATUS FoxMedia READY")
>IF THISFORM.doMCI(cCmd) = "true" THEN
>
>	*!* Need to get the total length of the clip and the current position
>	nMediaLength = VAL(THISFORM.doMCI("STATUS FoxMedia length"))
>	nMediaPosition = VAL(THISFORM.doMCI("STATUS FoxMedia position"))
>
>
>	*- Play again
>	IF nMediaLength = nMediaPosition
>		thisForm.cmdPlay.Click()
>	ENDIF
>        *-
>
>	*!* Since the gauge control only allows a MAX setting up to 32,000
>	*!* we need to proportionally reduce the length and position values
>	*!* to be below 32000.
>*	DO WHILE !BETWEEN(nMediaLength,0,32000)
>*	nMediaLength = nMediaLength/2
>*		nMediaPosition = nMediaPosition/2
>*	ENDDO
>	*!* Now we can set the proper gauge properties.
>	THISFORM.olePosition.Max = nMediaLength
>	THISFORM.olePosition.value = nMediaPosition
>ENDIF
>
>P.S.: If you want distinct music, you can to fill a DBF with other musics and set the control with next music in each time.
>Good Luck!
>
>
>>I tried the control and it's ok but the fact is that it can be run just once,
>>while I'd need to run more than one time at once...
>>Thank you anyway Erick
>
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform