Cobol Foro - [Sintaxis] Valor SHIFT+TAB

Cita:

Citación del post de Recato53 (Mensaje 107)

Es sobre un textBox control.

En el evento KeyDown tienes el siguiente codigo generado:

Código COBOL:

 ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 LINKAGE         SECTION.
 01  POW-ARG-KEYCODE PIC S9(4) COMP-5.
 01  POW-ARG-SHIFT   PIC S9(4) COMP-5.
 PROCEDURE       DIVISION USING POW-ARG-KEYCODE POW-ARG-SHIFT.

El campo POW-ARG-KEYCODE te indica la tecla pulsada, el campo POW-ARG-SHIFT indica si estan pulsados SHIFT, CTRL y ALT:

Código:

2.     KeyCode: The key code that was pressed. See Key Code Constants for details of key codes.



3.     ShiftState: Bit mask settings indicate the state of each of the shift keys - Shift, Ctrl and ALT. Numbering the bits 1 to 8, from least significant to most significant, the bit mapping is:

1 - Shift key       (POW-SHIFTSTATE-SHIFT)

2 - Ctrl key         (POW-SHIFTSTATE-CTRL)

3 - Alt key          (POW-SHIFTSTATE-ALT)

For example if the parameter has a value of 6 (binary 00000110), this indicates that the Ctl and Alt keys are depressed.