Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
Retroceder   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.
Noticias y Avisos
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 08:31
[Compilador] Plugins de COBOL para Eclipse Kuk NetCOBOL for Linux 11 30 de enero de 2017 12:41
[Noticia] Un Framework WEB para COBOL Kuk COBOL - General 0 5 de enero de 2017 13:15
[Herramienta] Montar instalador Setup para Fujitsu COBOL Joseg PowerCOBOL (ActiveX, v4 - v11) 4 24 de abril de 2015 10:05
Respuesta
 
Herramientas

  #1
Antiguo 6 de julio de 2015, 01:12
IDENTIFICATION DIVISION
Rapinto
Gran amigo del Foro y Guru de COBOL
ENVIRONMENT DIVISION
Avatar de Rapinto
DATA DIVISION
Forero desde (Registrado)febrero 2015
Portugal
UbicaciónPorto
Última Actividad29.01.2018 20:23
PROCEDURE DIVISION
PostsPosts: 246
Ha dicho GraciasEnviado: 19
Ha recibido agradecimientosRecibido: 215
Mejores respuestasSoluiones: 47
Medallas recibidas: 2Medallas: 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! 
ReputaciónReputación: 13
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
Imágenes Adjuntas
Tipo de Archivo: jpg Exemplo1.jpg (84,9 KB, 49 descargas)
Archivos Adjuntos
Tipo de Archivo: zip MessageBox.zip (35,7 KB, 44 descargas)
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 ( 3 de febrero de 2016)
  #2
Antiguo 6 de julio de 2015, 16:33
IDENTIFICATION DIVISION
Hrmcobol
Guardián del Foro
ENVIRONMENT DIVISION
Avatar de Hrmcobol
DATA DIVISION
Forero desde (Registrado)febrero 2015
Argentina
UbicaciónPuerto Madryn
Edad67 años
Última Actividad02.11.2019 01:14
PROCEDURE DIVISION
PostsPosts: 261
Ha dicho GraciasEnviado: 92
Ha recibido agradecimientosRecibido: 83
Mejores respuestasSoluiones: 8
Medallas recibidas: 1Medallas: Guardián del Foro: Guardián del espíritu y clima del Foro - Razón: Por implicación en la vida del Foro 
ReputaciónReputación: 12
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, 17:48
IDENTIFICATION DIVISION
Rapinto
Gran amigo del Foro y Guru de COBOL
ENVIRONMENT DIVISION
Avatar de Rapinto
DATA DIVISION
Forero desde (Registrado)febrero 2015
Portugal
UbicaciónPorto
Última Actividad29.01.2018 20:23
PROCEDURE DIVISION
PostsPosts: 246
Ha dicho GraciasEnviado: 19
Ha recibido agradecimientosRecibido: 215
Mejores respuestasSoluiones: 47
Medallas recibidas: 2Medallas: 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! 
ReputaciónReputación: 13
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, 23:33
IDENTIFICATION DIVISION
Hrmcobol
Guardián del Foro
ENVIRONMENT DIVISION
Avatar de Hrmcobol
DATA DIVISION
Forero desde (Registrado)febrero 2015
Argentina
UbicaciónPuerto Madryn
Edad67 años
Última Actividad02.11.2019 01:14
PROCEDURE DIVISION
PostsPosts: 261
Ha dicho GraciasEnviado: 92
Ha recibido agradecimientosRecibido: 83
Mejores respuestasSoluiones: 8
Medallas recibidas: 1Medallas: Guardián del Foro: Guardián del espíritu y clima del Foro - Razón: Por implicación en la vida del Foro 
ReputaciónReputación: 12
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 09:15.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2019, Jelsoft Enterprises Ltd.