Ver Mensaje Individual
  #5
Antiguo 16 de enero de 2023, 11:50
Josber
Moderador Global
Activista del Foro: Activista del Foro - Issue reason: Por aportar manuales y enriquecer  Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Issue reason: Por muchos agradecimientos 
Última Actividad 20.09.2026 12:17
Posts Posts: 883
Likes enviados Enviados: 418
Likes recibidos Recibidos: 492

Gracias @Kuk, que mal, no me sirve porque, lo que he puesto es un ejemplo 'al vuelo', realmente lo necesito con otras propiedades, como sería usar el hwnd, color, foco, etc. Imagínate que son varios controles ListView, y que dependiendo de unos parámetros externos, necesite poner un checkbox en ciertos ListView, para ello, necesito saber el hwnd de ese control en concreto

Éste, sería el código que funciona perfectamente

Código COBOL:
  1.      MOVE "hWnd" OF VIEW2 TO WS-HANDLE.
  2.      CALL "SendMessageA" WITH STDCALL USING BY VALUE WS-HANDLE
  3.                                             BY VALUE LVM-SETEXTENDEDLISTVIEWSTYLE
  4.                                             BY VALUE LVS-EX-CHECKBOXES
  5.             .
  6.             .
  7.             .

y éste el que quiero usar, pero que no funciona

Código COBOL:
  1.      EVALUATE OPC
  2.                      WHEN 1
  3.                                MOVE "View1" TO CONTROL_NAME
  4.                      WHEN 2
  5.                                MOVE "View2" TO CONTROL_NAME
  6.             .
  7.             .
  8.             .
  9.      END-EVALUATE.
  10.  
  11.  
  12.      MOVE "hWnd" OF CONTROL_NAME TO WS-HANDLE.
  13.      CALL "SendMessageA" WITH STDCALL USING BY VALUE WS-HANDLE
  14.                                             BY VALUE LVM-SETEXTENDEDLISTVIEWSTYLE
  15.                                             BY VALUE LVS-EX-CHECKBOXES
  16.             .
  17.             .
  18.             .

El tema está en que son muchos controles y esto ahorraría escribir mucho, ya no para el ListView, sino para otros controles que he de usar que no tienen nada que ver con un ListView.

Muchas gracias.-
Josber is offline   Responder Con Cita