OVH Cloud OVH Cloud

Handles Panel1.MouseWheel

3 réponses
Avatar
ACH
Bonjour,

Je veux dessiner dans une zone client d'une TabPage d'un=20
TabControl dans un Form.
J'utilise un control "Panel". J'ai aussi essay=E9=20
un "PictureBox". Des deux, seul le Panel permet de traiter=20
le Drag and Drop. C'est lui que j'ai donc adopt=E9.

Je veux aussi g=E9rer la roulette de la souris mais l=E0 cela=20
ne fonctionne pas. Je ne re=E7ois jamais l'=E9v=E9nement et le=20
handler correspondant n'est donc pas activ=E9. Comment=20
faire ?=20

D=E9claration du hanndler :
Private Sub Panel1_MouseWheel(ByVal sender As Object,=20
ByVal e As System.Windows.Forms.MouseEventArgs) Handles=20
Panel1.MouseWheel

End Sub

Merci de votre aide.
Alain

3 réponses

Avatar
Ait Abdelhalim Abdelhalim
Select Case e.Button
Case MouseButtons.Left
Case MouseButtons.Right
Case MouseButtons.Middle
End Select

Il Faut que le controle ait le focus

"ACH" a écrit dans le message de
news:1d9e01c48d06$43903160$
Bonjour,

Je veux dessiner dans une zone client d'une TabPage d'un
TabControl dans un Form.
J'utilise un control "Panel". J'ai aussi essayé
un "PictureBox". Des deux, seul le Panel permet de traiter
le Drag and Drop. C'est lui que j'ai donc adopté.

Je veux aussi gérer la roulette de la souris mais là cela
ne fonctionne pas. Je ne reçois jamais l'événement et le
handler correspondant n'est donc pas activé. Comment
faire ?

Déclaration du hanndler :
Private Sub Panel1_MouseWheel(ByVal sender As Object,
ByVal e As System.Windows.Forms.MouseEventArgs) Handles
Panel1.MouseWheel

End Sub

Merci de votre aide.
Alain
Avatar
ACH
Oui, Oui. Merci beaucoup.
Ca marche. Ok
Mais comment alors retirer le focus lorsque le curseur
sort du control ?
Voici mon code pour le focus :

Private Sub Panel1_MouseHover(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Panel1.MouseHover
Panel1.Focus()
End Sub

Private Sub Panel1_MouseLeave(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Panel1.MouseLeave
'Panel1.Focus()
?????
End Sub

Merci beaucoup
Alain
-----Message d'origine-----

Select Case e.Button
Case MouseButtons.Left
Case MouseButtons.Right
Case MouseButtons.Middle
End Select

Il Faut que le controle ait le focus

"ACH" a écrit dans


le message de
news:1d9e01c48d06$43903160$
Bonjour,

Je veux dessiner dans une zone client d'une TabPage d'un
TabControl dans un Form.
J'utilise un control "Panel". J'ai aussi essayé
un "PictureBox". Des deux, seul le Panel permet de traiter
le Drag and Drop. C'est lui que j'ai donc adopté.

Je veux aussi gérer la roulette de la souris mais là cela
ne fonctionne pas. Je ne reçois jamais l'événement et le
handler correspondant n'est donc pas activé. Comment
faire ?

Déclaration du hanndler :
Private Sub Panel1_MouseWheel(ByVal sender As Object,
ByVal e As System.Windows.Forms.MouseEventArgs) Handles
Panel1.MouseWheel

End Sub

Merci de votre aide.
Alain


.



Avatar
ACH
J'ai trouvé : il suffit de le donner à un autre !

-----Message d'origine-----
Oui, Oui. Merci beaucoup.
Ca marche. Ok
Mais comment alors retirer le focus lorsque le curseur
sort du control ?
Voici mon code pour le focus :

Private Sub Panel1_MouseHover(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Panel1.MouseHover
Panel1.Focus()
End Sub

Private Sub Panel1_MouseLeave(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Panel1.MouseLeave
'Panel1.Focus()
?????
End Sub

Merci beaucoup
Alain
-----Message d'origine-----

Select Case e.Button
Case MouseButtons.Left
Case MouseButtons.Right
Case MouseButtons.Middle
End Select

Il Faut que le controle ait le focus

"ACH" a écrit dans


le message de
news:1d9e01c48d06$43903160$
Bonjour,

Je veux dessiner dans une zone client d'une TabPage d'un
TabControl dans un Form.
J'utilise un control "Panel". J'ai aussi essayé
un "PictureBox". Des deux, seul le Panel permet de




traiter
le Drag and Drop. C'est lui que j'ai donc adopté.

Je veux aussi gérer la roulette de la souris mais là cela
ne fonctionne pas. Je ne reçois jamais l'événement et le
handler correspondant n'est donc pas activé. Comment
faire ?

Déclaration du hanndler :
Private Sub Panel1_MouseWheel(ByVal sender As Object,
ByVal e As System.Windows.Forms.MouseEventArgs) Handles
Panel1.MouseWheel

End Sub

Merci de votre aide.
Alain


.



.