Ver Mensaje Individual
  #6
Antiguo 4 de agosto de 2022, 17:22
fastpho
El Foro es mi casa
Innovación: Por aportar innovaciones - Issue reason: SQLite + OO Cobol class Concurso: Primer puesto: Ganador/a del Primer puesto en un concurso - Issue reason: Acceso a datos Cobol vía web 
Última Actividad 21.08.2026 18:08
Posts Posts: 365
Likes enviados Enviados: 252
Likes recibidos Recibidos: 243

Hola @Joseg , los valores son unicode convertidos a decimal
es decir el valor E700(unicode)(hex) su valor dec es 59136 tipo long para la ocx

Código COBOL:
  1.      IF "IconCharCode" OF BOX-CHECK5 = 59193 THEN *>HEX E739
  2.          MOVE 59194 TO "IconCharCode" OF BOX-CHECK5  *>HEX E73A
  3.      ELSE
  4.          MOVE 59193 TO "IconCharCode" OF BOX-CHECK5  *>HEX E739
  5.      END-IF.

En este link estan los valores del fuente Segoe MDL2 Assets icons
Segoe MDL2 Assets icons - Windows apps | Microsoft Docs

Saludos ....
fastpho is offline   Responder Con Cita