Power Builder - teclas de cursor

 
Vista:

teclas de cursor

Publicado por Marce (119 intervenciones) el 11/08/2004 23:52:28
Hola gente sabia!
mi problema:
tengo una dw tabular y quisiera poder desplazarme por ella con las teclas de cursor cual planilla de excel. Como hago esto?
Gracias
Marce
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:teclas de cursor

Publicado por Oscar (1178 intervenciones) el 12/08/2004 05:23:05
Este script se brindó hace algún tiempo. Adaptándolo a tu caso, sería:

1. Declarar en global external function:
subroutine keybd_event(char VK, char Scan, ulong Flags, ulong ExtraInfo) library "user32.dll"

2. Declarar un evento de usuario en el control DW:
Event Name: ue_key id:
Event ID: pbm_dwnkey

3. En este evento ue_key, pegas:
//--------------------------------
choose case key
// Tecla <----
case keyLeftArrow!
keybd_event(char(16), char(42), 0, 0)
keybd_event(char(9), char(15), 0, 0)
keybd_event(char(9), char(15), 2, 0)
keybd_event(char(16), char(42), 2, 0)

// Tecla ---->
case keyRightArrow!
keybd_event(char(9), char(15), 0, 0)
keybd_event(char(9), char(15), 2, 0)

// Poner cualquier tecla(s) que se quiere ignorar
case keyPageUp!, keyPageDown!, keyHome!, keyEnd!
// no hacer nada

case else
return // proceso por defecto
end choose

message.Processed = True
return 1
//-------Fin------------

Eso es todo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:teclas de cursor

Publicado por Marce (119 intervenciones) el 13/08/2004 00:28:09
Gracias, voy a probarlo
Marce
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar