Detecter roulement roulette souris en VB express

Fermé
Mazered Messages postés 127 Date d'inscription dimanche 10 novembre 2013 Statut Membre Dernière intervention 6 janvier 2016 - Modifié par Mazered le 1/01/2014 à 18:54
CdRomain Messages postés 9 Date d'inscription lundi 7 avril 2014 Statut Membre Dernière intervention 30 août 2014 - 30 août 2014 à 11:33
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 127 Date d'inscription dimanche 10 novembre 2013 Statut Membre Dernière intervention 6 janvier 2016 12
1 janv. 2014 à 20:55
Merci:)
Je n'ai pas dit pas de lien j'ai dit pas de lien de recherche google!
a+
1
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
1 janv. 2014 à 20:47
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 Date d'inscription lundi 7 avril 2014 Statut Membre Dernière intervention 30 août 2014 1
30 août 2014 à 11:33
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