Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
KeyPress Event
Message
From
23/02/1998 04:57:16
Cetin Basoz
Engineerica Inc.
Izmir, Turkey
 
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Title:
Miscellaneous
Thread ID:
00080369
Message ID:
00080387
Views:
30
>I've been trying to find a sample if a form's .KeyPress event in action without success.
>
>What I'm trying to do is allow my base form class top process next previous etc by using the keyboard as well as using the toolbar. I've got it working well, except that the key values seem to be duplicated with other key's values. There must be a way. My code in the KeyPress event is...
>
>do case
>	case nKeyCode = 19 	&& Ctrl S
>		oToolbar.tbSearch.Click
>	case nKeyCode = 2	&& Ctrl Right
>		oToolBar.tbNext.Click
>	case nKeyCode = 26	&& Ctrl Left
>		oToolBar.tbPrev.Click
>	case nKeyCode = 29	&& Ctrl Home
>		oToolBar.tbFirst.Click
>	case nKeyCode = 23	&& Ctrl End
>		oToolBar.tbLast.Click
>endcase
>
>
>Three questions.
>
>1.How do I determine that the Ctrl key is pressed so I don't process other keys (eg; 19 is Ctrl-s and Alt-r)
>
>2. How do I determine the difference between Ctrl-Right and Ctrl-b, both of which return a keycode of 2.
>
>3. How do I ensure that the keys I want to use are removed from the buffer and don't get passed to the control - and those that I don't want to use are passed to the control.
>
>The help and manuals are no help on this. There seems to also be no reference to this in UT's extensive knowledge base - ie; I'm dumb and can't see something everyone else takes as obvious :)
>
>Steve
Sorry Steve,
before writing suggestion about your case pressed send.
In your toolbar implementation instead of keypress use "on key label". It takes precedence over keypress, absorb the value and differ between Ctrl+Rigtharrow, Ctrl+b etc.
* Form init
push key clear
on key label "Ctrl+S"           oToolbar.tbSearch.Click
on key label "Ctrl+RightArrow"	oToolBar.tbNext.Click
on key label "Ctrl+LeftArrow"	oToolBar.tbPrev.Click
on key label "Ctrl+Home"	oToolBar.tbFirst.Click
on key label "Ctrl+End"		oToolBar.tbLast.Click
Cetin
Çetin Basöz

The way to Go
Flutter - For mobile, web and desktop.
World's most advanced open source relational database.
.Net for foxheads - Blog (main)
FoxSharp - Blog (mirror)
Welcome to FoxyClasses

LinqPad - C#,VB,F#,SQL,eSQL ... scratchpad
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform