Trasladar el foco a la ultima linea de un Listview

[dmosca]

Hola Foro

como se hace para trasladar el foco a la ultima linea de un listview?

[Kuk]

dmosca, debe ser algo así :


01 IDX-1 PIC S9(9) COMP-5.
01 lItem OBJECT REFERENCE POW-CLISTITEM.
PROCEDURE DIVISION.

MOVE "Count" OF CmListView1 TO IDX-1
MOVE "ListItems"(IDX-1) OF CmListView1 TO lItem

MOVE POW-TRUE TO "Selected" OF lItem

INVOKE lItem "EnsureVisible"



Lo he escrito en Notepad++ así que posiblemente no compile, pero la idea está ahí :D ;)

[dmosca]

Kuk buen dia

funciona ok, muchas gracias

[Kuk]

dmosca, ok.

Oye cuando encuentres soluciones, compártelo también para que sepamos si te hemos podido ayudar o no. Sobre todo que puede servir a alguien más ;)

[Jorgeanna]

otra forma para ubicarse en el ultimo registro incorporado.

move "Count" OF ListaItems to Ultimo
move Ultimo to "SelItemIndex" OF ListaItems
INVOKE "ListItems"(Ultimo) of ListaItems "EnsureVisible"