INTEGRER UN SCROLLING DANS UN TREEVIEW SOUS ACCESS

Signaler
Messages postés
28
Date d'inscription
vendredi 23 avril 2004
Statut
Membre
Dernière intervention
2 décembre 2005
-
Messages postés
1
Date d'inscription
jeudi 26 juin 2008
Statut
Membre
Dernière intervention
26 juin 2008
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/30586-integrer-un-scrolling-dans-un-treeview-sous-access

Messages postés
1
Date d'inscription
jeudi 26 juin 2008
Statut
Membre
Dernière intervention
26 juin 2008

Super Code simple et efficace

Merci

Pascal
Messages postés
20
Date d'inscription
dimanche 17 janvier 2010
Statut
Membre
Dernière intervention
26 décembre 2016

Avec les constantes au lieu des valeurs en dur, c'est plus propre... ;)

Private Const WM_VSCROLL &H115 ' 277
Private Const SB_LINEUP = 0
Private Const SB_LINEDOWN = 1

Tant qu'on y est, autant éviter aussi le "Y > 9150"... on obtient un truc dans le genre :

If y > tvwGroupes.Height - 500 Then
Call SendMessage(tvwGroupes.hwnd, WM_VSCROLL, SB_LINEDOWN, 0) ' vers le bas
ElseIf y < 500 Then
Call SendMessage(tvwGroupes.hwnd, WM_VSCROLL, SB_LINEUP, 0) ' vers le haut
End If

Enfin, les commentaires "scroll haut" et "scroll vers le bas" sont invervés. ;)

Voilà... bon code sinon.

d@mien.
Messages postés
28
Date d'inscription
vendredi 23 avril 2004
Statut
Membre
Dernière intervention
2 décembre 2005

Merci pour ce petit bout de code...

J'en avait besoin sur Access 2000 avec le composant Microsoft TreeView...

il faut tout de même intégrer la ligne suivante pour déclarer la fonction API:

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long

Merci encore