Discussion :

[arnofly]

Bonjour,

C'est pas la première fois que je me pose cette question. Est-ce possible avec un "Select case" par exemple ?

Case MouseHover
Case MouseDown
Case MouseUp
Case ...

Code :

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

1
2
3
4
    Private Sub Skin_PicBtnMinimized(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles PicBtnMinimized.MouseHover, PicBtnMinimized.MouseLeave, PicBtnMinimized.Click
' Le code....
    End Sub

Merci pour votre aide.

[smyley]

Je ne crois pas qu'il y en ai de simple. Par contre, plutôt que de te compliquer la vie, tu peux faire une fonction commune qui prend en plus un argument qui indique la provenance de l'event et l'utiliser dans 3 Sub différentes, ou carrément faire 3 Sub pour chacun des event.

[arnofly]

un argument qui indique la provenance de l'event

Slt,

Je crois que c'est ça ma question en fait car je ne sais pas comment faire...

Je m'en sort bien qd une sub à plusieurs arguments du m type avec des objets differents. Dans ce cas j'utiliser "Sender.name" dans un "Select case" pour cibler le bon objet par exemple. Là en revanche, il s'agit du m objet avec des argumenents differents. La seule chose qui change sur cet objet en fonction de l'argument est l'image qu'il doit afficher. Pour info, j'utilise un PictureBox en guise de bouton en fait.

Pour ce code effectivement j'utilise 3 Sub, mais comme j'aime bien me prendre la tête (c'est comme ça que j'apprends) je voulais trouver une méthode plus "pro".

En tous cas merci d'avoir jeté un oeil. On risque de se revoir bientot, car apres le déplacement de ma form sans bordure (marche super), faut que je crée un ascensseur pour une ListBox C'est qd m un peu long de faire Skin... mais c'est sympa.

[smyley]

(approximativement ... vb et moi ...)

Code vb :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub SetImage(ByVal Key As String)
  '...
End Sub
 
Private Sub Skin_PicBtnMinimized_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PicBtnMinimized.MouseHover
   SetImage("Image1")
End Sub
 
Private Sub Skin_PicBtnMinimized_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PicBtnMinimized.MouseLeave
   SetImage("Image2")
End Sub
 
etc