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
21/02/2006 06:54:46
Erick Miranda
Formata Data Business - Grupo Linx
Contagem, Brésil
 
 
À
21/02/2006 04:40:49
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:
01097683
Vues:
20
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
Erick
Força Sempre!
Strength Always!
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform