Comment faire défiler l'ascenseur horizontable d'une table

Source : CodeWinDev.com.free.fr

Le principe consiste à envoyer un message windows à la table pour déclencher l'évènement associé.

//WM_HSCROLL est la constante Windows qui gére les ascenseurs
WM_HSCROLL est un entier   = 0x0114
ehandle est un entier
eNumMessage est un entier 
//Envoi du message
ehandle = Handle(Table)
eNumMessage = 7 
SendMessage(ehandle,WM_HSCROLL,eNumMessage,0)

Voici les différentes valeurs que eNumMessage peut prendre pour WM_HSCROLL (horizontal) et WM_VSCROLL (vertical)

//SB_LINEUP           0
//SB_LINELEFT         0
//SB_LINEDOWN         1
//SB_LINERIGHT        1
//SB_PAGEUP           2
//SB_PAGELEFT         2
//SB_PAGEDOWN         3
//SB_PAGERIGHT        3
//SB_THUMBPOSITION    4
//SB_THUMBTRACK       5
//SB_TOP              6
//SB_LEFT             6
//SB_BOTTOM           7
//SB_RIGHT            7
//SB_ENDSCROLL        8