Selectionner des Picturebox avec appui sur touche Controle [Résolu]

Messages postés
8
Date d'inscription
samedi 19 mars 2005
Statut
Membre
Dernière intervention
13 décembre 2017
- - Dernière réponse : Whismeril
Messages postés
13650
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
25 août 2019
- 13 déc. 2017 à 17:45
Bonjour à tous,
J'ai par exemple 5 PictureBox sur une feuille.
Je veux en sélectionner 2 en cliquant dessus avec la souris si la touche contrôle est enfoncée au moment ou je clique mais il n'y a pas de gestion du clavier avec un PictureBox.
Est ce que quelqu'un aurait une solution à me proposer ?
Merci de votre aide
Afficher la suite 

2 réponses

Messages postés
13650
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
25 août 2019
298
0
Merci
Bonjour

mais il n'y a pas de gestion du clavier avec un PictureBox
ça n'est pas la gestion de clavier qui va t'être utile, c'est la gestion du click.

	   Private Sub pictureBox1_Click(ByVal sender As Object, ByVal e As EventArgs)
			Dim toto As Boolean = System.Windows.Input.Keyboard.IsKeyDown(System.Windows.Input.Key.LeftCtrl)
	   End Sub

Quand j'étais petit, la mer Morte n'était que malade.
George Burns
nHoffmann
Messages postés
8
Date d'inscription
samedi 19 mars 2005
Statut
Membre
Dernière intervention
13 décembre 2017
-
Ce n'est pas la réponse à ma question.
Whismeril
Messages postés
13650
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
25 août 2019
298 -
C'est sûr, je me suis amusé à démarrer mon pc de développement, pour tester ce code et ensuite poster une réponse, sans que cela n'ait aucun lien avec ta demande.
Commenter la réponse de Whismeril
Messages postés
8
Date d'inscription
samedi 19 mars 2005
Statut
Membre
Dernière intervention
13 décembre 2017
0
Merci
En fait la solution était très simple

 Private Sub pict_MouseUp(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Pict.MouseUp
If e.Button = MouseButtons.Left Then
If My.Computer.Keyboard.CtrlKeyDown Then
....
End if
End if
End Sub


--
Whismeril
Messages postés
13650
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
25 août 2019
298 -
Ce qui revient au même que ce que je t’ai proposé y’a un moi....
nHoffmann
Messages postés
8
Date d'inscription
samedi 19 mars 2005
Statut
Membre
Dernière intervention
13 décembre 2017
-
Pas vraiment.
Cette solution a l'avantage de fonctionner même si le focus n'est pas sur le control et même si la feuille n'est pas active au moment du clic.
Whismeril
Messages postés
13650
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
25 août 2019
298 -
A cette nuance près, je te l'accorde, cependant on est loin de
Ce n'est pas la réponse à ma question.
Commenter la réponse de nHoffmann