[Button] Bouton Play Pause

Version imprimable

25/07/2007, 10h26
jontleman

[Button] Bouton Play Pause

Bonjour à vous,
J'aimerais faire un bouton "Play-Pause" comme dans certains lecteur multimédia, avec en plus un raccourci clavier.
En gros, il faudrait un bouton avec le texte PLAY (ou une image) et dès qu'on clique dessus le texte change (PAUSE ou autre image) et quand on clique à nouveau ça revient à PLAY et ainsi de suite.

Jusque là je vois plusieurs solutions pour le faire mais le problème est que:
- le code est différent si on clique PLAY ou si on clique PAUSE
- je souhaiterais que le raccourci clavier soit la même touche (P par exemple)

Auriez-vous quelques conseils pour que je me lance sur la bonne voie...

En vous remerciant!
8-)

Bon, pour la touche clavier je ne peux pas t'aider, j'ai pas ecore essayé,

sinon pour ton bouton tu peux faire un truc du genre:
Code:

1 2 3 4 5 6 7 8 9 Sub evennement bouton click Select case monbouton.text case "PLAY" 'le bouton est PLAY monbouton.text="PAUSE" 'ton code case "PAUSE" 'le bouton est PAUSE monbouton.text="PLAY" 'ton code

25/07/2007, 16h56
jontleman

effectivement, ça fonctionne bien avec select case (le raccourci aussi)
j'y avais pas pensé!
j'avais essayé avec 2 boucles mais ça ne fonctionnait pas, les 2 morceaux de codes s'exécutaient!
j'ai même fait 2 boutons, l'un disparaisant pour laisser apparaitre l'autre, pensant que ça serait plus simple mais j'ai pas réussi non plus (là encore j'ai peut-être pas pensé à un truc simple!)

en tout cas merci pour le coup de pouce :mrgreen:
26/07/2007, 12h06
jontleman

je n'arrive pas à appliquer ce principe de select case avec 2 images (un triange pour play, 2 traits verticaux pour pause, original!!)

comment dois-je m'y prendre?
faut-il utiliser la propriété BackgroundImage ou Image?
26/07/2007, 15h21
Poulain

je ne sais pas vraiment, je te dis ça ce soir.

C'est trés simple.

Avant tout tu dois ajouter les images de fond de ton bouton (triange et 2 traits verticaux) dans les ressources.
Pour cela dans ton explorateur de solution tu clic droit sur le nom de ton projet > Ajouter > Composant et dans le fanetre qui s'ouvre double clic sur Fichier de Ressource.
Un nouvel onglet va s'ouvrir, tu auras un menu déroulant appelé "Ajouter une ressource", déroule le et clic sur "Ajouter un fichier existant" puis tu peux selectioner tes images.

(il y a surement en moyen plus simpel d'ajouter une ressource mais c'est la seule que je connaisse)

Pour ce qui est du code il suffit de faire
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub evennement bouton click Select case monbouton.text case "PLAY" 'le bouton est PLAY monbouton.text = "PAUSE" monbouton.image = My.Ressource.monficherderessource.mesdeuxbarrepause 'ton code case "PAUSE" 'le bouton est PAUSE monbouton.text = "PLAY" monbouton.image = My.Ressource.monficherderessource.montriangleplay 'ton code

oui mais le problème c'est que j'ai enlevé le texte "PLAY" et "PAUSE" pour avoir juste l'image. Du coup ça peu pas marché.:pleure:
J'ai essayé un truc du style
Code:

1 2 3 4 5 6 7 8 Select case monbouton.image case My.Ressource.monficherderessource.montriangleplay'l'image PLAY monbouton.image = My.Ressource.monficherderessource.mesdeuxbarrepause ' code play case My.Ressource.monficherderessource.mesdeuxbarrepause'l'image PAUSE monbouton.text = "PLAY" monbouton.image = My.Ressource.monficherderessource.montriangleplay ' code pause
mais ça ne fonctionne pas, j'ai une erreur

Citation:

L'opérateur '=' n'est pas défini pour les types 'System.Drawing.Image' et 'System.Drawing.Bitmap'.

:piou:

26/07/2007, 22h08
Poulain

essai en remplaçant "=" par "is"
27/07/2007, 08h50
Momodedf

Le probleme c'est que le "=" n'apparait pas dans une structure case donc il faudrait plutot faire un if.

Sinon si tu veux vraiment garder les case tu peux créer une variable initialement à pause avec laquelle tu fais tes test du case et que tu modifie à chaque fois. C'est barbare mais ça fonctionne.
27/07/2007, 08h53
Poulain

Pardon, en fait, je me suis trompé, c'est un problème, au niveau des lignes ou tu dis, quelle image assigne.

d'un certaine manière, il veut une image et tu lui file un bitmap, alors ça va pas, cherche à faire une conversion.

Genre CType(My.ressources....tonimage, drawing.image)

enfin, je ne suis pas sur de ce que j'écris.

Non non je confirme les ligne où l'image est assignée sont correcte je les ai testé.

C'est dans le Select case monbouton.image
case My.Ressource.monficherderessource.montriangleplay <-- cette ligne renvoit l'erreur.

Sinon autre solution, tu peux utiliser la propriété AccessibleDescription de ton bouton.

Ca donnerait donc ça :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Select case monbouton.AccessibleDescription case "play" 'l'image PLAY monbouton.image = My.Ressource.monficherderessource.mesdeuxbarrepause monbouton.AccessibleDescription = "pause" ' code play case "pause" 'l'image PAUSE monbouton.AccessibleDescription = "play" monbouton.image = My.Ressource.monficherderessource.montriangleplay 'code pause case else 'on clic pour la premiere fois sur le bouton monbouton.AccessibleDescription = "play" monbouton.image = My.Ressource.monficherderessource.montriangleplay end select ' code pause

Je pense que t'as fait des erreurs, ça devrait plutot etre:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Select case monbouton.AccessibleDescription 
case "play"
'l'image PLAY 
monbouton.image = My.Ressource.monficherderessource.mesdeuxbarrepause monbouton.AccessibleDescription = "pause" ' code play 
case "pause" 
'l'image PAUSE monbouton.AccessibleDescription = "play"
monbouton.image = My.Ressource.monficherderessource.montriangleplay
 'code pause 
case else 'on clic pour la premiere fois sur le bouton monbouton.AccessibleDescription = "pause"
monbouton.image = My.Ressource.monficherderessource.montriangleplay
'code pause
end select

27/07/2007, 14h24
Momodedf

Heu non je ne vois pas où il y a une erreur.

J'ai moi même testé ce code il fonctionne à merveille.
27/07/2007, 17h13
jontleman

bien vu la propriété AccessibleDescription !! :king:

en fait je crois qu'il n'y a pas vraiment d'erreurs dans vos codes, ça dépend juste de ce qu'on veut faire au premier clic!
si on veut lancer la lecture (le plus logique) alors vos 2 codes sont faux...
car il faut mettre le même code que le case "play"

et ceci est vrai uniquement si par défaut la propriété AccessibleDescription est nulle
par contre si on met "play" par défaut, alors le case else n'est plus utile

enfin je pense, dite moi si je me trompe:roll:

D'après ce qui a été proposé ton analyse est exact. Si en effet tu cherches à mettre la lecture par défaut (le plus logique je pense), le Case Else est à enlever.

Sinon en effet si tu ne le définit par défaut les deux codes présents sont faux enfin on va non plus aller aux extrêmes ;) il faut juste mettre ça:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Select case monbouton.AccessibleDescription case "play" 'l'image PLAY monbouton.image = My.Ressource.monficherderessource.mesdeuxbarrepause monbouton.AccessibleDescription = "pause" ' code play case "pause" 'l'image PAUSE monbouton.AccessibleDescription = "play" ' code pause monbouton.image = My.Ressource.monficherderessource.montriangleplay 'code pause case else 'on clic pour la premiere fois sur le bouton monbouton.AccessibleDescription = "pause" monbouton.image = My.Ressource.monfichierderessource.mesdeuxbarrespause monbouton.AccessibleDescription = "pause" 'code pause end select
Voilà je pense que grâce à toutes ces aides tu vas pouvoir arriver à tes fins ;).

30/07/2007, 08h41
Momodedf

D'accord juste une différence d'apréciation ^^
Je pensais que tu voulais que ça soit sur pause par défaut (comme un magnétoscope normal quoi).

Ca m'a parru plus logique, mais apparement je suis le seul lol (suis-je autre ? :p).
13/08/2007, 14h10
jontleman

mon bouton fonctionne à merveille !!!

:merci: à tous