Cobol Foro
Registrarse
Temas de Hoy
Enlaces
Registrarse
Preguntas Frecuentes
Lista de Usuarios
Calendario
Cobol Foro
Navegación en el Foro
Retroceder   Cobol Foro Entornos de desarrollo y compiladores Cobol Cocina Casera Cocina PowerCOBOL
Actualizar esta página [PowerCOBOL] Control OCX ucBOX y ejemplo pwc5
Cocina PowerCOBOL Rutinas y ejemplos codificados por nuestros foreros.
 
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[PowerCOBOL] Ocx, Dll y ejemplo envío Mail desde PWC Josber Cocina PowerCOBOL 23 27 de septiembre de 2022 15:53
[Sintaxis] Ejemplo MFSort en Linux Kuk Micro Focus COBOL 0 11 de enero de 2017 14:32
[Herramienta] Ejemplo Agenda Dasije WinDev 0 23 de agosto de 2016 10:17
[Herramienta] Ejemplo controles Windev Dasije WinDev 4 25 de julio de 2016 12:32
[Aporte] Control mscomct2.ocx Socavi Software 1 14 de diciembre de 2015 01:46

Respuesta
Página 1 de 2 1 2

  #1
Antiguo 3 de agosto de 2022, 15:12
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
Tableta Control OCX ucBOX y ejemplo pwc5
5
Likes

Fito
JCantero
Josber
Kuk
Nitzer

 Inactivo Inactivo
Este es un Control de Usuario realizado en VB6 por Leandro Ascierto , lo converti y modifique a ocx para tener compatibilidad con PowerCobol , se pueden lograr hacer muchas y lograr una interfaz mas moderna.

link : http://leandroascierto.com/blog/836-2/
Se pueden crear varios controles button , label , checkbox , toggle botton , radio button , image tc
Eventos : Click , DobleClick , MouseOver , MouseLeave etc
Propiedades:BackColor , Border , ForeColor , FrontColor , Hotline , Picture
Metodos : PictureFromURL PictureFromPath
ocx: ElsisBoxUpgr.ocx registrarla

Soporta fuentes tipo icofonts : como Segoe MDL2 , IconsFont Awsome
Soporta imagenes de tipo png , jpg etc

Saludos....
Imágenes Adjuntas
 
Archivos Adjuntos
Tipo de Archivo: zip UCBOXOCX.zip (0)Descargas: 150
fastpho is offline   Responder Con Cita
  #2
Antiguo 3 de agosto de 2022, 16:06
Fito
Guardián del Foro
Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Issue reason: Por muchos agradecimientos de parte de los Foreros Guardián del Foro: Guardián del espíritu y clima del Foro - Issue reason: Por el Avatar Activista del Foro: Activista del Foro - Issue reason: Por aportar ideas 
Última Actividad 22.09.2026 04:22
Posts Posts: 458
Likes enviados Enviados: 269
Likes recibidos Recibidos: 243
Predeterminado
0
Likes

None...

Inactivo Inactivo
Muchas gracias. muy buen aporte

Saludos

Fito....
Fito is offline   Responder Con Cita
  #3
Antiguo 4 de agosto de 2022, 15:16
Joseg
El Foro es mi casa
Activista del Foro: Activista del Foro - Issue reason: Por participación activa Innovación: Por aportar innovaciones - Issue reason: Por aportar soluciones innovadoras en varias ocasiones 
Última Actividad 21.09.2026 18:39
Posts Posts: 402
Likes enviados Enviados: 130
Likes recibidos Recibidos: 179
Predeterminado
0
Likes

None...

Inactivo Inactivo
Muito bom!
Joseg is offline   Responder Con Cita
  #4
Antiguo 4 de agosto de 2022, 16:24
Paulo
Forero Senior
Última Actividad 21.09.2026 11:33
Posts Posts: 101
Likes enviados Enviados: 25
Likes recibidos Recibidos: 33
Predeterminado
0
Likes

None...

Inactivo Inactivo
Obrigado.
Bom trabalho
Paulo is offline   Responder Con Cita
  #5
Antiguo 4 de agosto de 2022, 16:25
Joseg
El Foro es mi casa
Activista del Foro: Activista del Foro - Issue reason: Por participación activa Innovación: Por aportar innovaciones - Issue reason: Por aportar soluciones innovadoras en varias ocasiones 
Última Actividad 21.09.2026 18:39
Posts Posts: 402
Likes enviados Enviados: 130
Likes recibidos Recibidos: 179
Predeterminado
0
Likes

None...

Inactivo Inactivo
Citación del post de fastpho Ver Mensaje
❞
Este es un Control de Usuario realizado en VB6 por Leandro Ascierto , lo converti y modifique a ocx para tener compatibilidad con PowerCobol , se pueden lograr hacer muchas y lograr una interfaz mas moderna.

link : http://leandroascierto.com/blog/836-2/
Se pueden crear varios controles button , label , checkbox , toggle botton , radio button , image tc
Eventos : Click , DobleClick , MouseOver , MouseLeave etc
Propiedades:BackColor , Border , ForeColor , FrontColor , Hotline , Picture
Metodos : PictureFromURL PictureFromPath
ocx: ElsisBoxUpgr.ocx registrarla

Soporta fuentes tipo icofonts : como Segoe MDL2 , IconsFont Awsome
Soporta imagenes de tipo png , jpg etc

Saludos....
Olá,

Como saber este número:
60619

Código COBOL:
  1. MOVE 60619 TO "IconCharCode" OF BOX-CHECK1(1)

Quais seriam os números para o exemplo:
CheckBox ON/OFF

Gracias
José
Joseg is offline   Responder Con Cita
  #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
Predeterminado
1
Likes

Joseg

 Inactivo Inactivo
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
  #7
Antiguo 4 de agosto de 2022, 18:35
Joseg
El Foro es mi casa
Activista del Foro: Activista del Foro - Issue reason: Por participación activa Innovación: Por aportar innovaciones - Issue reason: Por aportar soluciones innovadoras en varias ocasiones 
Última Actividad 21.09.2026 18:39
Posts Posts: 402
Likes enviados Enviados: 130
Likes recibidos Recibidos: 179
Predeterminado
0
Likes

None...

Inactivo Inactivo
Citación del post de fastpho Ver Mensaje
❞
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 ....

Existe alguma possibilidade da janela ser Moveable:
Indicates whether the form is moveable when the title bar is dragged or the system menu Move function is selected. This corresponds to the Moveable property.


"Style" sem "TitleBar" penso que não há alternativa, mas se houvesse seria interessante, as janelas ficavam mais "modernas" !!!

Gracias.
Joseg is offline   Responder Con Cita
  #8
Antiguo 4 de agosto de 2022, 20:08
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
Predeterminado
1
Likes

Joseg

 Inactivo Inactivo
@Joseg Se puede mover , arrastrar y soltar el formulario perfectamente desde Box-LBLTITULO = Titulo con la siguientes lineas
Declarar en el WORKING-STORAGE
Código COBOL:
  1. *-----RUTINAS PARA MOVER LA FORM SIN TITULO
  2.  01 GLOBAL-DATA GLOBAL.
  3.     02  G-DRAG-START    PIC  1(1)  BIT.
  4.         88  G-IS-DRAG-START VALUE B"1".
  5.  01 tempx               PIC S9(9) COMP-5 IS GLOBAL.
  6.  01 tempy               PIC S9(9) COMP-5 IS GLOBAL.
  7.  01 new-tempx           PIC S9(9) COMP-5 IS GLOBAL.
  8.  01 new-tempy           PIC S9(9) COMP-5 IS GLOBAL.
  9.  01 ScreenLeft          PIC S9(9) COMP-5 IS GLOBAL.
  10.  01 ScreenTop           PIC S9(9) COMP-5 IS GLOBAL.
  11.  01 ScreenWidth         PIC S9(9) COMP-5 IS GLOBAL.
  12.  01 ScreenHeight        PIC S9(9) COMP-5 IS GLOBAL.
  13.  01 ScreenScale         PIC S9(4) COMP-5 IS GLOBAL. 
  14.  01 W-BUTTON            PIC S9(4) COMP-5 IS GLOBAL.
  15.  01 W-BOOL  REDEFINES W-BUTTON IS GLOBAL.
  16.    02  FILLER           PIC  1(5)  BIT.
  17.    02  W-BUTTON-CENTER  PIC  1(1)  BIT.
  18.    02  W-BUTTON-RIGHT   PIC  1(1)  BIT.
  19. *      88  W-IS-BUTTON-RIGHT  VALUE B"0".
  20.    02  W-BUTTON-LEFT    PIC  1(1)  BIT.
  21.        88  W-IS-BUTTON-LEFT  VALUE B"1".
  22.    02  FILLER           PIC  1(8)  BIT.   
  23. *------------------------------------------------------
En el Evento Box-LBLTITULO-MouseUp
Código COBOL:
  1.  ENVIRONMENT     DIVISION.
  2.  DATA            DIVISION.
  3.  WORKING-STORAGE SECTION.
  4.  LINKAGE         SECTION.
  5.  01  POW-BUTTON  PIC S9(4) COMP-5.
  6.  01  POW-SHIFT   PIC S9(4) COMP-5.
  7.  01  POW-X       COMP-1.
  8.  01  POW-Y       COMP-1.
  9.  PROCEDURE       DIVISION USING POW-BUTTON POW-SHIFT POW-X POW-Y.
  10.        IF G-IS-DRAG-START THEN
  11.           MOVE B"0"   TO G-DRAG-START          
  12.           move 0 to "MousePointer" OF pow-self
  13.        end-if.  
En el Evento Box-LBLTITULO-MouseDown
Código COBOL:
  1.  ENVIRONMENT     DIVISION.
  2.  DATA            DIVISION.
  3.  WORKING-STORAGE SECTION.
  4.  LINKAGE         SECTION.
  5.  01  POW-BUTTON  PIC S9(4) COMP-5.
  6.  01  POW-SHIFT   PIC S9(4) COMP-5.
  7.  01  POW-X       COMP-1.
  8.  01  POW-Y       COMP-1.
  9.  PROCEDURE       DIVISION USING POW-BUTTON POW-SHIFT POW-X POW-Y.
  10.               
  11.        move POW-BUTTON to W-BUTTON.
  12.        move pow-x      to tempx.
  13.        move pow-y      to tempy.
  14.        IF W-IS-BUTTON-LEFT THEN
  15.            MOVE B"1" TO G-DRAG-START
  16.        end-if.        
En el Evento Box-LBLTITULO-MouseMove
Código COBOL:
  1.  ENVIRONMENT     DIVISION.
  2.  DATA            DIVISION.
  3.  WORKING-STORAGE SECTION.
  4.  LINKAGE         SECTION.
  5.  01  POW-BUTTON  PIC S9(4) COMP-5.
  6.  01  POW-SHIFT   PIC S9(4) COMP-5.
  7.  01  POW-X       COMP-1.
  8.  01  POW-Y       COMP-1.
  9.  PROCEDURE       DIVISION USING POW-BUTTON POW-SHIFT POW-X POW-Y.
  10.  
  11.      IF G-IS-DRAG-START THEN
  12.        compute new-tempy =  "Top" OF pow-self  +  pow-y - tempy
  13.        compute new-tempx =  "Left" OF pow-self +  pow-x - tempx
  14.        move new-tempy to "Top" OF pow-self
  15.        move new-tempx to "Left" OF pow-self
  16.        MOVE 2  TO "MousePointer"  OF POW-SELF
  17.      END-IF.
Estas rutinas tambien las podes colocar en los eventos MouseDown - MouseUp - MouseMove del formulario para mover y soltar
desde el formulario
Saludos ........
fastpho is offline   Responder Con Cita
  #9
Antiguo 5 de agosto de 2022, 13:49
Joseg
El Foro es mi casa
Activista del Foro: Activista del Foro - Issue reason: Por participación activa Innovación: Por aportar innovaciones - Issue reason: Por aportar soluciones innovadoras en varias ocasiones 
Última Actividad 21.09.2026 18:39
Posts Posts: 402
Likes enviados Enviados: 130
Likes recibidos Recibidos: 179
Predeterminado
0
Likes

None...

Inactivo Inactivo
Citación del post de fastpho Ver Mensaje
❞
@Joseg Se puede mover , arrastrar y soltar el formulario perfectamente desde Box-LBLTITULO = Titulo con la siguientes lineas
Declarar en el WORKING-STORAGE
Código COBOL:
  1. *-----RUTINAS PARA MOVER LA FORM SIN TITULO
  2.  01 GLOBAL-DATA GLOBAL.
  3.     02  G-DRAG-START    PIC  1(1)  BIT.
  4.         88  G-IS-DRAG-START VALUE B"1".
  5.  01 tempx               PIC S9(9) COMP-5 IS GLOBAL.
  6.  01 tempy               PIC S9(9) COMP-5 IS GLOBAL.
  7.  01 new-tempx           PIC S9(9) COMP-5 IS GLOBAL.
  8.  01 new-tempy           PIC S9(9) COMP-5 IS GLOBAL.
  9.  01 ScreenLeft          PIC S9(9) COMP-5 IS GLOBAL.
  10.  01 ScreenTop           PIC S9(9) COMP-5 IS GLOBAL.
  11.  01 ScreenWidth         PIC S9(9) COMP-5 IS GLOBAL.
  12.  01 ScreenHeight        PIC S9(9) COMP-5 IS GLOBAL.
  13.  01 ScreenScale         PIC S9(4) COMP-5 IS GLOBAL. 
  14.  01 W-BUTTON            PIC S9(4) COMP-5 IS GLOBAL.
  15.  01 W-BOOL  REDEFINES W-BUTTON IS GLOBAL.
  16.    02  FILLER           PIC  1(5)  BIT.
  17.    02  W-BUTTON-CENTER  PIC  1(1)  BIT.
  18.    02  W-BUTTON-RIGHT   PIC  1(1)  BIT.
  19. *      88  W-IS-BUTTON-RIGHT  VALUE B"0".
  20.    02  W-BUTTON-LEFT    PIC  1(1)  BIT.
  21.        88  W-IS-BUTTON-LEFT  VALUE B"1".
  22.    02  FILLER           PIC  1(8)  BIT.   
  23. *------------------------------------------------------
En el Evento Box-LBLTITULO-MouseUp
Código COBOL:
  1.  ENVIRONMENT     DIVISION.
  2.  DATA            DIVISION.
  3.  WORKING-STORAGE SECTION.
  4.  LINKAGE         SECTION.
  5.  01  POW-BUTTON  PIC S9(4) COMP-5.
  6.  01  POW-SHIFT   PIC S9(4) COMP-5.
  7.  01  POW-X       COMP-1.
  8.  01  POW-Y       COMP-1.
  9.  PROCEDURE       DIVISION USING POW-BUTTON POW-SHIFT POW-X POW-Y.
  10.        IF G-IS-DRAG-START THEN
  11.           MOVE B"0"   TO G-DRAG-START          
  12.           move 0 to "MousePointer" OF pow-self
  13.        end-if.  
En el Evento Box-LBLTITULO-MouseDown
Código COBOL:
  1.  ENVIRONMENT     DIVISION.
  2.  DATA            DIVISION.
  3.  WORKING-STORAGE SECTION.
  4.  LINKAGE         SECTION.
  5.  01  POW-BUTTON  PIC S9(4) COMP-5.
  6.  01  POW-SHIFT   PIC S9(4) COMP-5.
  7.  01  POW-X       COMP-1.
  8.  01  POW-Y       COMP-1.
  9.  PROCEDURE       DIVISION USING POW-BUTTON POW-SHIFT POW-X POW-Y.
  10.               
  11.        move POW-BUTTON to W-BUTTON.
  12.        move pow-x      to tempx.
  13.        move pow-y      to tempy.
  14.        IF W-IS-BUTTON-LEFT THEN
  15.            MOVE B"1" TO G-DRAG-START
  16.        end-if.        
En el Evento Box-LBLTITULO-MouseMove
Código COBOL:
  1.  ENVIRONMENT     DIVISION.
  2.  DATA            DIVISION.
  3.  WORKING-STORAGE SECTION.
  4.  LINKAGE         SECTION.
  5.  01  POW-BUTTON  PIC S9(4) COMP-5.
  6.  01  POW-SHIFT   PIC S9(4) COMP-5.
  7.  01  POW-X       COMP-1.
  8.  01  POW-Y       COMP-1.
  9.  PROCEDURE       DIVISION USING POW-BUTTON POW-SHIFT POW-X POW-Y.
  10.  
  11.      IF G-IS-DRAG-START THEN
  12.        compute new-tempy =  "Top" OF pow-self  +  pow-y - tempy
  13.        compute new-tempx =  "Left" OF pow-self +  pow-x - tempx
  14.        move new-tempy to "Top" OF pow-self
  15.        move new-tempx to "Left" OF pow-self
  16.        MOVE 2  TO "MousePointer"  OF POW-SELF
  17.      END-IF.
Estas rutinas tambien las podes colocar en los eventos MouseDown - MouseUp - MouseMove del formulario para mover y soltar
desde el formulario
Saludos ........
Perfeito

Todos os OCX deste site: http://leandroascierto.com/blog/category/ocx/
são muito interessantes !!!!
Joseg is offline   Responder Con Cita
  #10
Antiguo 8 de agosto de 2022, 10:15
Nitzer
Guru de COBOL
Activista del Foro: Activista del Foro - Issue reason: Por Videoconferencia-Webinar Guru de los Gurus: Por solidos y amplios conocimientos - Issue reason: Por aportar conocimientos excepcionales 
Última Actividad 05.08.2026 17:33
Posts Posts: 200
Likes enviados Enviados: 70
Likes recibidos Recibidos: 157
Predeterminado
1
Likes

fastpho

 Inactivo Inactivo
Felicidades por el trabajo, impresionante aporte.
Nitzer is offline   Responder Con Cita
Respuesta
Página 1 de 2 1 2

« Tema Anterior | Próximo Tema »

Herramientas

Derechos de Publicación
No puedes publicar nuevos temas
No puedes publicar posts/responder
No puedes adjuntar archivos
No puedes editar tus posts
BB code is habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 01:15.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.

Top
 Archivo - Cobol Foro
Webdesign by: vbdesigns.de
Contactar con Nosotros - Cobol Foro
Top