shift + F5
Posted: Thu Dec 01, 2005 11:05 amTHAT I CAN CALL A FUNCTION
WITH COMBINATION OF KEYS ( shift + F5 )
JOHN
WITH COMBINATION OF KEYS ( shift + F5 )
JOHN
- Code: Select all Expand view
#include "Fivewin.ch"
FUNCTION MAIN()
LOCAL oDlg
LOCAL cVar := SPACE( 30 )
SETKEY( VK_F2, { || If( GetKeyState( VK_CONTROL ), MsgInfo( "Hello!" ), ) } )
SETKEY( VK_F3, { || If( GetKeyState( VK_SHIFT ), MsgInfo( "Hello!" ), ) } )
DEFINE DIALOG oDlg
@ 1, 1 GET cVar OF oDlg
@ 3, 1 BUTTON "&Close" OF oDlg ACTION oDlg:End()
ACTIVATE DIALOG oDlg;
CENTER
RETURN NIL
EMG