Detecter roulement roulette souris en VB express

Mazered Messages postés 144 Statut Membre -  
CdRomain Messages postés 9 Statut Membre -
Salut!

Je voudrais détécter quand la roulette de la souris roule. Pour se faire, j'ai déja trouvé une solution :

Private Sub Form1_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseWheel
        ''Code ici
End Sub


Sauf que cette solution ne me convient pas car elle ne permet pas de savoir dans quel sens tourne la souris.

Je travaille sur vb express et non pas sur des macros excel

Merci d'avance!
A+

PS : Ne me mettez pas de lien google svp.
A voir également:

3 réponses

Mazered Messages postés 144 Statut Membre 12
 
Merci:)
Je n'ai pas dit pas de lien j'ai dit pas de lien de recherche google!
a+
1
Polux31 Messages postés 7219 Statut Membre 1 204
 
Bonjour,

Tu ne veux pas de lien alors penches toi sur System.Windows.Forms.MouseEventArgs, tu trouveras ta réponse.

Bon courage
0
CdRomain Messages postés 9 Statut Membre 1
 
Vieux post mais ça peut toujours servir :
Private Sub Form1_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseWheel

        If e.Delta > 0 Then
            MessageBox.Show("up!")
        Else
            MessageBox.Show("down!")
        End If
    End Sub
0