ScrollBar DBGrid Défilement

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:

---

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

Bonjour,

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

Code:

---

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