VerticalScrollPosition y HorizontalScrollPosition

Extendiendo el "Post" anterior podemos añadir el mensaje 276 para el control del desplazamiento horizontal. Para disponer de un control detallado de los posibles desplazamientos, las constantes que podríamos utilizar son:

// Mensajes de scroll. WM_HSCROLL 276 //Scroll Horizontal WM_VSCROLL 277 //Scroll Vertical // El parámetro LowWord determina como desplazarnos. CONTANT integer SB_LINEUP = 0 //Subir una línea. CONTANT integer SB_LINELEFT = 0 //Una posición a la izq. CONTANT integer SB_LINEDOWN = 1 //Bajar una línea CONTANT integer SB_LINERIGHT = 1 //Una posición a la dcha. CONTANT integer SB_PAGEUP = 2 //Subir una página. CONTANT integer SB_PAGELEFT = 2 //Una página a la izq. CONTANT integer SB_PAGEDOWN = 3 //Bajar una página. CONTANT integer SB_PAGERIGTH = 3 //Una posición a la dcha. CONTANT integer SB_PAGETOP = 6 //Ir arriba. CONTANT integer SB_LEFT = 6 //Ir a la izq. CONTANT integer SB_PAGEBOTTOM = 7 //Ir abajo. CONTANT integer SB_RIGHT = 7 //Ir a la dcha. CONTANT integer SB_ENDSCROLL = 8 //Ir al final.

De todos modos, al final he optado por otra solución en la que utilizo describe y modify sobre VerticalScrollPosition, HorizontalScrollPosition y Horizontal2ScrollPosition, ya que en mi caso, me interesa desplazarme a una posición en la que se visualiza un objeto en concreto, y me permitiría el control horizontal de las dos áreas visibles del dw si esta activado el atributo HSplitScroll. Así que la parte del código que controla el error queda del siguiente modo (tras controlar el error y notificarlo):

dw_x.setColumn(ls_campo) dw_x.modify("datawindow.VerticalScrollPosition = " & + dw_x.describe(ls_campo + ".y")) dw_1.setFocus()
¿Qué tal se portaron los Reyes?