INTEGRER UN SCROLLING DANS UN TREEVIEW SOUS ACCESS
cs_Tene
Messages postés
28
Date d'inscription
vendredi 23 avril 2004
Statut
Membre
Dernière intervention
2 décembre 2005
-
6 avril 2005 à 17:29
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
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
https://codes-sources.commentcamarche.net/source/30586-integrer-un-scrolling-dans-un-treeview-sous-access
26 juin 2008 à 16:24
Merci
Pascal
6 oct. 2006 à 15:03
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.
6 avril 2005 à 17:29
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