Discussion :

[frto0]

Bonjour,

J'ai un problème avec la ScroolBar vertical d'un DBGrid, lorsqu'on maintien le curseur un certain moment dans la ScroolBar, l'acenseur se déplace jusqu'au curseur même si on relâche la souris.

Hors je souhaiterai arréter le défilement quand on relâche la souris, j'ai tenté

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
   If Not VerifKB(1) Then 'bouton gauche souris enfoncé
        'on bloque le srool bar si pas d'appuie souris
        DataGrid1.Scroll 0, 0
    End If

mais pas mieux.

Pour info mon applil tourne sous Windows XP Embedded (PC Industriel) et que sur mon PC sous XP Pro je n'arrive pas à reproduire le phénomène.

Merci

FRED

[frto0]

Bonjour,

Pour info j'ai trouve une solution qui annule le phénomène:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Private Sub DataGrid1_Scroll(Cancel As Integer)
  If Not VerifKB(1) Then ' bouton gauche souris enfoncé
    Cancel = True
  End If
End Sub

par contre on ne peut plus faire de glisser de l'ascenseur mais bon!


FRED