Ver Mensaje Individual
  #7
Antiguo 16 de enero de 2023, 13:38
Kuk
Administrador
Última Actividad 19.09.2026 20:11
Posts Posts: 2.500
Likes enviados Enviados: 1037
Likes recibidos Recibidos: 1207

@Josber, también tienes la siguiente opción que se me acaba de ocurrir y me parece que es lo que estabas buscando exactamente:

Código COBOL:
  1.  ENVIRONMENT     DIVISION.
  2.  DATA            DIVISION.
  3.  WORKING-STORAGE SECTION.
  4.  01  miTextBox OBJECT REFERENCE AMixed-DCmTextbox-Main-with-DCfGroupItem-Main.
  5.  PROCEDURE       DIVISION.
  6.      
  7.      move CmText1 to miTextBox
  8.      
  9.      move "Hola Josber" to "Text" OF miTextBox
  10.          

Para ver qué clase debes indicar en OBJECT REFERENCE, tienes que mirar en la carpeta DEBUG el fichero MainForm.prc y dentro buscar el nombre del control, por ejemplo CmText1 y luego copiar y usar la clase en tu código. Quiere decir que todos los CmText tendrán esta clase en referencia. Podrías hasta hacer un OCCURS tipo:

Código COBOL:
  1.  01  campoDeTexto.
  2.      05  misTextBox OCCURS 100 OBJECT REFERENCE AMixed-DCmTextbox-Main-with-DCfGroupItem-Main.



NORMAS DEL FORO - para garantizar el buen funcionamiento del Foro.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale haciendo clic en su Nick
Kuk is offline   Responder Con Cita