ROULETTE DE LA SOURIS
scromania
Messages postés
452
Date d'inscription
dimanche 20 août 2006
Statut
Membre
Dernière intervention
11 janvier 2013
-
21 juil. 2009 à 07:29
cs_plano Messages postés 19 Date d'inscription jeudi 15 mai 2008 Statut Membre Dernière intervention 6 février 2012 - 29 juil. 2009 à 21:15
cs_plano Messages postés 19 Date d'inscription jeudi 15 mai 2008 Statut Membre Dernière intervention 6 février 2012 - 29 juil. 2009 à 21:15
2 réponses
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
47
21 juil. 2009 à 07:49
21 juil. 2009 à 07:49
salut,
le fonctionnement VB6 ici : Mod_SClassWheel.bas
http://www.vbfrance.com/codes/VACANCES-MR-MULOT-TUTORIAL_34236.aspx
plus simple encore à mettre en place en dotnet
++
[hr]
le fonctionnement VB6 ici : Mod_SClassWheel.bas
http://www.vbfrance.com/codes/VACANCES-MR-MULOT-TUTORIAL_34236.aspx
plus simple encore à mettre en place en dotnet
++
[hr]
cs_plano
Messages postés
19
Date d'inscription
jeudi 15 mai 2008
Statut
Membre
Dernière intervention
6 février 2012
29 juil. 2009 à 21:15
29 juil. 2009 à 21:15
Salut scromania!
Dans une form1, met une textbox1 et essai ce code :
Dim compte As Integer
Private Sub Form1_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseWheel
If e.Delta = 120 Then
compte = compte + 1
End If
If e.Delta = -120 Then
compte = compte - 1
End If
TextBox1.Text = compte
End Sub
Dans une form1, met une textbox1 et essai ce code :
Dim compte As Integer
Private Sub Form1_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseWheel
If e.Delta = 120 Then
compte = compte + 1
End If
If e.Delta = -120 Then
compte = compte - 1
End If
TextBox1.Text = compte
End Sub
