Discussion :

[jontleman]

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!

[Poulain]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[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?

[Poulain]

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

[Momodedf]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jontleman]

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é.
J'ai essayé un truc du style

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[Poulain]

essai en remplaçant "=" par "is"

[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.

[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.

[Momodedf]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Poulain]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Momodedf]

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

J'ai moi même testé ce code il fonctionne à merveille.

[jontleman]

bien vu la propriété AccessibleDescription !!

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

[D4rkTiger]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 .

[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).

[jontleman]

mon bouton fonctionne à merveille !!!

à tous