Page 1 sur 1
Lecteur Multimédia Bouton pause ?
Publié : jeu. 10/mars/2011 18:40
par Vlad
Je me fabrique un lecteur de musique minimaliste.
Pour programmer le bouton Play : Playsound
Pour programmer le bouton Stop : StopSound
Mais pour programmer le bouton Pause ?
Si quelqu'un peut m'aider, je ne vois pas comment y parvenir ?
Est-ce possible en PureBasic ?
MERCI infiniment
Re: Lecteur Multimédia Bouton pause ?
Publié : jeu. 10/mars/2011 22:52
par falsam
la bibliothéque
Movie propose des commandes simples.
Code : Tout sélectionner
Enumeration
#MainForm
#Play
#Pause
#Sound
EndEnumeration
If InitMovie() = 0
MessageRequester("Oops", "Soucis durant la phase d'initialisation", 0)
End
EndIf
MovieName$ = OpenFileRequester("Choose the movie to play", "", "Mp3|*.mp3", 0)
If MovieName$
If LoadMovie(#Sound, MovieName$)
OpenWindow(#Mainform, 100, 100, 600, 500, "Joue avec moi")
ButtonGadget(#Play,20,400,100,20,"Play")
ButtonGadget(#Pause,120,400,100,20,"Pause")
PlayMovie(#Sound, WindowID(0))
Repeat
Select WaitWindowEvent()
Case #PB_Event_Gadget
Select EventGadget()
Case #Play
PlayMovie(#Sound, WindowID(#MainForm))
Case #Pause
PauseMovie(#Sound)
EndSelect
Case #PB_Event_CloseWindow
End
EndSelect
ForEver
Else
MessageRequester("Erreur", "Impossible de charger votre morceau de musique...", 0)
EndIf
EndIf