Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
  COBOL Foro > Programación e Informática > Controles y Componentes (DLL/OCX) > Controles y Componentes Gratuitos
Controles y Componentes Gratuitos Componentes Freeware, información y descarga.
Comunicados
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
Programadores Cobol para Madrid y Barcelona Kuk Ofertas de Empleo 0 22 de noviembre de 2017 07:31
[Compilador] Plugins de COBOL para Eclipse Kuk NetCOBOL for Linux 11 30 de enero de 2017 11:41
[Noticia] Un Framework WEB para COBOL Kuk COBOL - General 0 5 de enero de 2017 12:15
[Herramienta] Montar instalador Setup para Fujitsu COBOL Joseg PowerCOBOL (ActiveX, v4 - v11) 4 24 de abril de 2015 09:05
Respuesta
 
Herramientas

  #1
Antiguo 6 de julio de 2015, 00:12
IDENTIFICATION DIVISION
Rapinto
 Gran amigo del Foro y Guru de COBOL
Activista del Foro: Activista del Foro - Razón: ¡Gracias!  Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por ayudar mucho a los foreros  Guru de los Gurus: Por solidos y amplios conocimientos - Razón: Por saber demasiado! 
ENVIRONMENT DIVISION
Avatar de Rapinto
DATA DIVISION
febrero 2015
Porto
29.01.2018 19:23
PROCEDURE DIVISION
Posts: 246
Enviado: 19
Recibido: 225
Soluciones: 47
Reputación: 17
Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road
Predeterminado MessageBox para Cobol

Um pequeno OCX que eu fiz que pode substituir o "DisplayMessage" do Cobol.

Espero que ajude alguém.
Anexo uma imagem do resultado, o PPJ de exemplo e o OCX.

Saludos,
Rui Pinto
Miniatura de Adjuntos
Pulsar la imagen para la versión amplia
Nombre:  Exemplo1.jpg
Vistas: 195
Tamaño:  84,9 KB  
Archivos Adjuntos
Tipo de Archivo: zip MessageBox.zip (35,7 KB, 190 descargas Quién descargó)
Rapinto no ha iniciado sesión   Responder Con Cita
Han dicho Gracias: 6
Hrmcobol ( 6 de julio de 2015), Josber ( 6 de julio de 2015), Kuk ( 6 de julio de 2015), lfortuny ( 7 de abril de 2016), Socavi ( 9 de julio de 2015), Xavier ( 2 de febrero de 2016)
  #2
Antiguo 6 de julio de 2015, 15:33
IDENTIFICATION DIVISION
Hrmcobol
 Guardián del Foro
Guardián del Foro: Guardián del espíritu y clima del Foro - Razón: Por implicación en la vida del Foro 
ENVIRONMENT DIVISION
Avatar de Hrmcobol
DATA DIVISION
febrero 2015
Puerto Madryn
70 años
01.03.2022 01:59
PROCEDURE DIVISION
Posts: 327
Enviado: 107
Recibido: 118
Soluciones: 10
Reputación: 19
Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light
Predeterminado

Muy Bueno Rapintooooo!!!! Muchas Gracias.

Seria mucho pedir que se pueda manejar la cantidad de botones, por ejemplo un boton, dos botones y tres botones?, "Aceptar", "Si No", "Si No Cancelar".

Saludos

Hrmcobol no ha iniciado sesión   Responder Con Cita
  #3
Antiguo 6 de julio de 2015, 16:48
IDENTIFICATION DIVISION
Rapinto
 Gran amigo del Foro y Guru de COBOL
Activista del Foro: Activista del Foro - Razón: ¡Gracias!  Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por ayudar mucho a los foreros  Guru de los Gurus: Por solidos y amplios conocimientos - Razón: Por saber demasiado! 
ENVIRONMENT DIVISION
Avatar de Rapinto
DATA DIVISION
febrero 2015
Porto
29.01.2018 19:23
PROCEDURE DIVISION
Posts: 246
Enviado: 19
Recibido: 225
Soluciones: 47
Reputación: 17
Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road
Predeterminado

Hrmcobol,

Se vires no exemplo, os botões são colocados como no Cobol DisplayMessage.

Código COBOL:
  1. move zero to msgflags.
  2. add POW-DMOKCANCEL to msgflags.
  3. add POW-DMICONSTOP to msgflags.
  4. ***  botão Ok e Cancel + Icon Stop

Código:
Type Group
 The buttons to display.

POW-DMOK (The default):
A single OK button.

POW-DMOKCANCEL:
OK and Cancel buttons.

POW-DMABORTRETRYIGNORE:
Abort (Stop), Retry and Ignore buttons.

POW-DMYESNOCANCEL:
Yes, No and Cancel buttons.

POW-DMYESNO:
Yes and No buttons.

POW-DMRETRYCANCEL:
Retry and Cancel buttons.
 
Icon Group
 The icon to display.

POW-DMNOICON (The default):
No icon.

POW-DMICONSTOP:
Displays the stop icon.

POW-DMICONERROR:
Displays the error icon.

POW-DMICONQUESTION:
Displays the question mark icon.

POW-DMICONEXCLAMATION:
Displays the exclamation mark icon.

POW-DMICONWARNING:
Displays the warning icon.

POW-DMICONINFORMATION:
Displays the information icon.

Note that currently:
stop icon = error icon
exclamation icon = warning icon
 
Default Button Group
 The button used when the ENTER key is pressed.

POW-DMDEFBUTTON1: (The default)
The first button is the default.

POW-DMDEFBUTTON2:
The second button is the default.

POW-DMDEFBUTTON3:
The third button is the default.
Qualquer dúvida estou a disposição.

Un Saludo,
Rui
Rapinto no ha iniciado sesión   Responder Con Cita
  #4
Antiguo 8 de julio de 2015, 22:33
IDENTIFICATION DIVISION
Hrmcobol
 Guardián del Foro
Guardián del Foro: Guardián del espíritu y clima del Foro - Razón: Por implicación en la vida del Foro 
ENVIRONMENT DIVISION
Avatar de Hrmcobol
DATA DIVISION
febrero 2015
Puerto Madryn
70 años
01.03.2022 01:59
PROCEDURE DIVISION
Posts: 327
Enviado: 107
Recibido: 118
Soluciones: 10
Reputación: 19
Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light
Predeterminado

Perdón, MIRE pero no LEÍ.

Saludos y Gracias Nuevamente !!
Hrmcobol no ha iniciado sesión   Responder Con Cita
Respuesta


Usuarios activos actualmente viendo este tema: 1 (0 miembros y 1 visitantes)
 
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



La franja horaria es GMT +1. Ahora son las 14:19.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2022, Jelsoft Enterprises Ltd.