Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
Retroceder   COBOL Foro > IDE-s y compiladores COBOL > Fujitsu COBOL > PowerCOBOL (ActiveX, v4 - v11)
PowerCOBOL (ActiveX, v4 - v11) Versiones del IDE basadas en ActiveX
Noticias y Avisos
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Sintaxis] Control de teclas pulsadas Begoguay PowerCOBOL (ActiveX, v4 - v11) 7 29 de mayo de 2019 20:20
[Información] Teclas de Funcion F13 - F24 jotica PowerCOBOL (ActiveX, v4 - v11) 6 8 de mayo de 2017 11:48
[Sintaxis] Detectar teclas de flechas (Sheet) Eslopes PowerCOBOL V3L10 (Win32) 16 9 de junio de 2016 15:37
Respuesta
 
Herramientas

  #1
Antiguo 28 de abril de 2020, 21:11
IDENTIFICATION DIVISION
Josber
Super Moderador
Activista del Foro: Activista del Foro - Razón: Por aportar manuales y enriquecer   Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por muchos agradecimientos 
ENVIRONMENT DIVISION
Avatar de Josber
DATA DIVISION
Forero desde (Registrado)febrero 2015
España
Ubicación Alicante
Última Actividad28.05.2020 20:27
PROCEDURE DIVISION
PostsPosts: 521
Ha dicho GraciasEnviado: 225
Ha recibido agradecimientosRecibido: 241
Mejores respuestasSoluiones: 34
ReputaciónReputación: 23
Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road
Predeterminado Teclas de desplazamiento

¿Hay alguna manera de 'detectar' las teclas de desplazamiento, (arriba, abajo, derecha, izquierda)?, porque dentro de un control, en el evento KeyPress, he puesto el código adjunto pero, pasa de mi ..

Código COBOL:
  1.  
  2.      EVALUATE POW-ARG-KEYASCII
  3.               WHEN POW-KEY-DOWN
  4.                     DISPLAY "ABAJO"
  5.               WHEN POW-KEY-UP
  6.                     DISPLAY "ARRIBA"
  7.      END-EVALUATE.

Mil gracias.-
Josber no ha iniciado sesión   Responder Con Cita
Mejores respuestas Soluciones: 1
  #2
Antiguo 29 de abril de 2020, 08:43
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)diciembre 2014
España
Ubicación Madrid
Edad35 años
Última Actividad28.05.2020 21:24
PROCEDURE DIVISION
PostsPosts: 1.559
Ha dicho GraciasEnviado: 408
Ha recibido agradecimientosRecibido: 627
Mejores respuestasSoluiones: 91
ReputaciónReputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado

@Josber, tienes que pasar por el evento PreKeyDown del propio Form


NORMAS DEL FORO - obligatorias de conocer para TODOS.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale Pinchando en su Nick
Kuk no ha iniciado sesión   Responder Con Cita
  #3
Antiguo 29 de abril de 2020, 12:16
IDENTIFICATION DIVISION
Josber
Super Moderador
Activista del Foro: Activista del Foro - Razón: Por aportar manuales y enriquecer   Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por muchos agradecimientos 
ENVIRONMENT DIVISION
Avatar de Josber
DATA DIVISION
Forero desde (Registrado)febrero 2015
España
Ubicación Alicante
Última Actividad28.05.2020 20:27
PROCEDURE DIVISION
PostsPosts: 521
Ha dicho GraciasEnviado: 225
Ha recibido agradecimientosRecibido: 241
Mejores respuestasSoluiones: 34
ReputaciónReputación: 23
Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road
Predeterminado

Cita del post de Kuk Ver Mensaje
tienes que pasar por el evento PreKeyDown del propio Form
Esa solución ya me la imaginaba pero, el control de las teclas, lo quiero tener en uin componente en especial, (componente SPREAD, parecido al ListView), no en el form en general

Saludos.-
Josber no ha iniciado sesión   Responder Con Cita
  #4
Antiguo 29 de abril de 2020, 12:42
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)diciembre 2014
España
Ubicación Madrid
Edad35 años
Última Actividad28.05.2020 21:24
PROCEDURE DIVISION
PostsPosts: 1.559
Ha dicho GraciasEnviado: 408
Ha recibido agradecimientosRecibido: 627
Mejores respuestasSoluiones: 91
ReputaciónReputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado
1 usuarios han marcado este post como "Solución"

@Josber, en el evento indicado debes añadir un control del componente activo.

Ejemplo PreKeyDown:

Código COBOL:
  1.  ENVIRONMENT     DIVISION.
  2.  DATA            DIVISION.
  3.  WORKING-STORAGE SECTION.
  4.  LINKAGE         SECTION.
  5.  01  POW-ARG-KEYCODE PIC S9(4) COMP-5.
  6.  01  POW-ARG-SHIFT   PIC S9(4) COMP-5.
  7.  PROCEDURE       DIVISION USING POW-ARG-KEYCODE POW-ARG-SHIFT.
  8.      
  9.      IF  "ActiveControl" OF POW-SELF = CmText1
  10.          EVALUATE POW-ARG-KEYCODE
  11.  
  12.              WHEN POW-KEY-UP
  13.                  DISPLAY "Arriba"
  14.              
  15.              WHEN POW-KEY-DOWN
  16.                  DISPLAY "Abajo"
  17.                  
  18.              WHEN POW-KEY-LEFT
  19.                  DISPLAY "Izquierda"
  20.                  
  21.              WHEN POW-KEY-RIGHT
  22.                  DISPLAY "Derecha"
  23.              
  24.          END-EVALUATE
  25.      END-IF


NORMAS DEL FORO - obligatorias de conocer para TODOS.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale Pinchando en su Nick
Kuk no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Josber (29 de abril de 2020)
  #5
Antiguo 30 de abril de 2020, 18:54
IDENTIFICATION DIVISION
Begoguay
Novato Junior
ENVIRONMENT DIVISION
Avatar de Begoguay
DATA DIVISION
Forero desde (Registrado)febrero 2015
España
Ubicación Valladolid
Última Actividad22.05.2020 17:01
PROCEDURE DIVISION
PostsPosts: 47
Ha dicho GraciasEnviado: 64
Ha recibido agradecimientosRecibido: 4
Mejores respuestasSoluiones: 1
ReputaciónReputación: 0
Begoguay is on a distinguished road
Predeterminado

Hola.

Yo lo hago en el evento KeyUp del control, en lugar de en el evento PreKeyDown del formulario y me funciona perfectamente.

Un saludo.
Begoguay no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Kuk ( 1 de mayo de 2020)
  #6
Antiguo 30 de abril de 2020, 20:25
IDENTIFICATION DIVISION
Josber
Super Moderador
Activista del Foro: Activista del Foro - Razón: Por aportar manuales y enriquecer   Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por muchos agradecimientos 
ENVIRONMENT DIVISION
Avatar de Josber
DATA DIVISION
Forero desde (Registrado)febrero 2015
España
Ubicación Alicante
Última Actividad28.05.2020 20:27
PROCEDURE DIVISION
PostsPosts: 521
Ha dicho GraciasEnviado: 225
Ha recibido agradecimientosRecibido: 241
Mejores respuestasSoluiones: 34
ReputaciónReputación: 23
Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road
Predeterminado

Cita del post de Begoguay Ver Mensaje
Yo lo hago en el evento KeyUp del control
¿Y te funciona con las teclas del cursor (Arriba, Abajo, Derecha ...)?, porque a mi no me funciona con esas teclas.

Un saludo.-
Josber no ha iniciado sesión   Responder Con Cita
  #7
Antiguo 1 de mayo de 2020, 13:09
IDENTIFICATION DIVISION
Begoguay
Novato Junior
ENVIRONMENT DIVISION
Avatar de Begoguay
DATA DIVISION
Forero desde (Registrado)febrero 2015
España
Ubicación Valladolid
Última Actividad22.05.2020 17:01
PROCEDURE DIVISION
PostsPosts: 47
Ha dicho GraciasEnviado: 64
Ha recibido agradecimientosRecibido: 4
Mejores respuestasSoluiones: 1
ReputaciónReputación: 0
Begoguay is on a distinguished road
Predeterminado

Cita del post de Josber Ver Mensaje
¿Y te funciona con las teclas del cursor (Arriba, Abajo, Derecha ...)?, porque a mi no me funciona con esas teclas.
Pues yo lo pruebo en el control Table, y si lo hago en el KeyDown, no me hace lo que yo quiero, pero con el KeyUp si.
Begoguay no ha iniciado sesión   Responder Con Cita
Respuesta

Tags
keypress , prekeydown , teclas de flecha


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 05:54.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2020, Jelsoft Enterprises Ltd.