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í

[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"