listebox et roulette de la sourie

listebox et roulette de la sourie - VB/VBA/VBS - Programmation

Marsh Posté le 18-05-2005 à 02:50:02    

salut.
 
j'aimmerai activer la molette de ma sourie dans une listbox pour faire defiler de haut en bas.
est ce possible ???.
bien entendu les donnees depasse la taille de la listebox et la barre de defillement verticale apparait.
merci !!!.

Reply

Marsh Posté le 18-05-2005 à 02:50:02   

Reply

Marsh Posté le 19-05-2005 à 07:10:12    

Salut
Je n'ai qu'un exemple à te proposer sur mon site
 
http://perso.wanadoo.fr/nantouillet/Molette.xls
 

Reply

Marsh Posté le 19-05-2005 à 14:05:05    

merci je viens donc de rajouter ceci a mon code. mais ca ne marche pas
 
Public Sub Controle_ActualiseWheel(Control As MSForms.Control, ByVal sens As Integer)
Dim Index As Long
  'le contrôle doit avoir une propriété ListIndex !
  Index = Control.ListIndex
  Select Case sens
    Case 1
      If Index < Control.ListCount - 1 Then Index = Index + 1
    Case -1
      If Index > 0 Then Index = Index - 1
  End Select
  Control.ListIndex = Index
End Sub

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed