Cobol Foro
Página 1 de 3 1 23
Mostrar 40 mensajes desde este tema en una página

Cobol Foro (https://www.cobolforo.es/index.php)
-   Cocina PowerCOBOL (https://www.cobolforo.es/forumdisplay.php?f=24)
-   -   [PowerCOBOL] Manejo de control CmListView (Grid) (https://www.cobolforo.es/showthread.php?t=31)

Josber 12 de febrero de 2015 09:49
Manejo de control CmListView (Grid)
 
Me gustaría empezar una nueva sección y, si éste foro continua y se hace grande, hacerla como un nuevo subforo más adelante. La sección sería nuestras aportaciones, trucos, rutinas, ejemplos, etc.

Para empezar aporto ésta mía en la que pongo un ejemplo del manejo del control de PWC listview, que aunque es un control "muy flojo", se pueden hacer más cosas de lo que parece, como mover columnas de sitio, poner una rejilla, marcar una linea entera, checkbox ...

Como norma, me gustaría, que se pusiera que incluye y la versión del compilador, así como alguna imágen, (si es posible)

Incluye: ppj, exe y librerías e iconos completas
Versión compilador: PWC 9, aunque en la versión 7 también funciona

http://s2.subirimagenes.com/otros/pr...277365grid.jpg

Descarga
Descargar Ejemplo de ListView

Un saludo a todos y espero más ideas, trucos, ejemplos, etc. ;)

Josber 2 de marzo de 2015 11:45
1 Archivos Adjunto(s)
Pues después del post que puso Rui sobre el traspaso a Excel de un ListView, y siguiendo su consejo, he añadido el código al programa, para que podais ver la facilidad con la que se puede pasar un ListView a Excel através de COM.

Además, he añadido un .ocx llamado AniGIF.ocx, que permite añadir un GIF animado a un Form, en el botón "Acerca de ..." podeis verlo, recordar que hay que registrar el ocx en Windows.

Podeis descargarlo todo desde el siguiente enlace:

Código:
https://mega.co.nz/#!b4E1iarb!Qa3iFtvHhctQgVqZQa87sR6MJH4a6gX0E2IwNwK6nVc
Un saludo.-

Juanes 5 de julio de 2016 05:12
Josber, excelente aporte. Por favor me puede decir, como define el checkbox dentro del CmListView?
gracias.

Josber 5 de julio de 2016 08:02
Cita:
Citación del post de Juanes (Mensaje 2131)
Josber, excelente aporte. Por favor me puede decir, como define el checkbox dentro del CmListView?
gracias.
Código COBOL:
  1.     *>
  2.     *> Variables para poner el checkbox en el ListView
  3.     *>
  4.  01  WS-HANDLE              PIC S9(09)  COMP-5 VALUE 0.
  5.  01  LVM-SETEXTENDEDLISTVIEWSTYLE PIC S9(09)    COMP-5 VALUE 4150.
  6.  01  LVS-EX-CHECKBOXES            PIC S9(09)    COMP-5 VALUE 05.
  7.     *>
  8.     *> Variables para Drag'n'Drop de columnas
  9.     *>
  10.  01  WS-DRAG                      PIC S9(09) COMP-5.
  11.  01  LVS-EX-HEADERDRAGDROP        PIC S9(09) COMP-5 VALUE 16.
  12.     *>
  13.     *> Variables para colorear linea entera
  14.     *>
  15.  01  WS-LINHA-INTEIRA             PIC S9(09) COMP-5.
  16.  01  LVS-EX-FULLROWSELECT         PIC S9(09) COMP-5 VALUE 32.

Y en la PROCEDURE ...

Código COBOL:
  1. *
  2. *
  3. * Poner el "checkbox" en el ListView
  4. *
  5.      MOVE "hWnd" OF VIEW2 TO WS-HANDLE.
  6.      CALL "SendMessageA" WITH STDCALL USING BY VALUE WS-HANDLE 
  7.                                             BY VALUE LVM-SETEXTENDEDLISTVIEWSTYLE
  8.                                             BY VALUE LVS-EX-CHECKBOXES
  9.                                             BY VALUE LVS-EX-CHECKBOXES
  10.      CANCEL "SendMessageA".
  11. *    
  12.      CALL "SendMessageA" WITH STDCALL USING BY VALUE WS-HANDLE 
  13.                           BY VALUE 4150 
  14.                           BY VALUE 64 
  15.                           BY VALUE 64 *> COLUMNA 1, TIPO HiperLink
  16.      CANCEL "SendMessageA".
  17. *    
  18.      MOVE 32 TO WS-LINHA-INTEIRA.   *> SELECCIONAR LA LÍNEA ENTERA
  19.      CALL "SendMessageA" WITH STDCALL USING BY VALUE WS-HANDLE 
  20.                                             BY VALUE LVM-SETEXTENDEDLISTVIEWSTYLE
  21.                                             BY VALUE LVS-EX-FULLROWSELECT
  22.                                             BY VALUE WS-LINHA-INTEIRA
  23.      CANCEL "SendMessageA".
  24. *                                           
  25.      MOVE 16 TO WS-DRAG.    *> ARRASTRAR Y CAMBIAR UNA COLUMNA DE SITIO
  26.      CALL "SendMessageA" WITH STDCALL USING BY VALUE WS-HANDLE 
  27.                                             BY VALUE LVM-SETEXTENDEDLISTVIEWSTYLE
  28.                                             BY VALUE LVS-EX-HEADERDRAGDROP
  29.                                             BY VALUE WS-DRAG
  30.      CANCEL "SendMessageA".
  31. *
  32.      IF POW-CHECK OF CHECK2 = POW-ON
  33.         CALL "SendMessageA" WITH STDCALL USING BY VALUE WS-HANDLE 
  34.                              BY VALUE LVM-SETEXTENDEDLISTVIEWSTYLE
  35.                              BY VALUE 1 
  36.                              BY VALUE 1 *> GRIDLINES - 1 = Si - 0 = No
  37.         CANCEL "SendMessageA"
  38.      ELSE
  39.         CALL "SendMessageA" WITH STDCALL USING BY VALUE WS-HANDLE 
  40.                              BY VALUE LVM-SETEXTENDEDLISTVIEWSTYLE 
  41.                              BY VALUE 1 
  42.                              BY VALUE 0 *> GRIDLINES - 1 = Si - 0 = No
  43.         CANCEL "SendMessageA"
  44.      END-IF.

Un saludo.-

hugoluis 5 de agosto de 2018 03:51
Hola Buenas
Puede ser que no este disponible
el archivo de Tabla Manejo de control CmListView (Grid)
Gracias

Kuk 5 de agosto de 2018 10:49
hugoluis, ¿estás preguntando si PowerCOBOL puede venir sin el control CmListView? Si es eso, la respuesta es NO. Todas las versiones ActiveX de PowerCOBOL, que yo sepa, traen el ListView.

hugoluis 5 de agosto de 2018 13:55
Hola Buen día Kuk
Hay un ejemplo de Josber viejo (12/2/2015) que ya no esta disponible en el link que se publica
Quería saber si esta disponible en otro lugar
Gracias

Kuk 5 de agosto de 2018 21:08
hugoluis, cuál es el post en el que hay un enlace sin funcionar? Pon el enlace hacía dicho post ;)

hugoluis 6 de agosto de 2018 00:04
Cita:
Citación del post de Kuk (Mensaje 4421)
hugoluis, cuál es el post en el que hay un enlace sin funcionar? Pon el enlace hacía dicho post ;)
Descarga
MEGA

Josber 6 de agosto de 2018 13:03
Cita:
Citación del post de hugoluis (Mensaje 4422)
Descarga
MEGA

¡¡Uff!! a ver si encuentro el proyecto y lo vuelvo a subir.

Un saludo.-


La franja horaria es GMT +2. Ahora son las 03:22.
Página 1 de 3 1 23
Mostrar 40 mensajes desde este tema en una página

Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.