INTEGRER UN SCROLLING DANS UN TREEVIEW SOUS ACCESS

Messages postés
28
Date d'inscription
vendredi 23 avril 2004
Statut
Membre
Dernière intervention
2 décembre 2005
- - Dernière réponse : C1Bon
Messages postés
1
Date d'inscription
jeudi 26 juin 2008
Statut
Membre
Dernière intervention
26 juin 2008
- 26 juin 2008 à 16:24
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

Afficher la suite 
C1Bon
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
dipisoft
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.
cs_Tene
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