Cobol Foro - [Sintaxis] Trasladar el foco a la ultima linea de un Listview

Cobol Foro (https://www.cobolforo.es/index.php)

- PowerCOBOL (ActiveX, v4 - v11) (https://www.cobolforo.es/forumdisplay.php?f=9)

- - [Sintaxis] Trasladar el foco a la ultima linea de un Listview (https://www.cobolforo.es/showthread.php?t=1033)

dmosca

9 de agosto de 2019 03:18

Trasladar el foco a la ultima linea de un Listview

Hola Foro

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

Kuk	9 de agosto de 2019 16:17

dmosca, debe ser algo así :

Código COBOL:

 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

9 de agosto de 2019 16:34

Kuk buen dia

funciona ok, muchas gracias

Kuk	9 de agosto de 2019 16:47

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

10 de agosto de 2019 15:47

otra forma para ubicarse en el ultimo registro incorporado.

Código COBOL:

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

La franja horaria es GMT +2. Ahora son las 02:05.