Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
F10 key not working
Message
From
27/11/2002 06:06:51
 
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Miscellaneous
Thread ID:
00726405
Message ID:
00727470
Views:
12
Hi Timothy,

There were other threads about F2 in which F10 was mentioned also. An entrance to those threads:
KeyPress bug? Thread #640867 Message #640867

One of those message was the base of the solution that I used for the F2 problem that I some time ago had.
* INIT Method:
set function f2 to Chr(85) && redirects F2 to shift-f2

* KEYPRESS Method:
LPARAMETERS nKeyCode, nShiftAltCtrl

if InList(nKeycode,-1,85) && f2 or shift-F2 pressed 
	*
	wait window "Hi, why did you press F2?" nowait
	nodefault
endif

* DESTROY Method:
set function f2 to
>Since forever, I've designated the F10 key as to abort all changes on a form. Now all of a sudden, it has no function at all(nkeycode being equal to -9) and I can't figure out what I did to cause this. my code in keypress was following
>
>LPARAMETERS nKeyCode, nShiftAltCtrl
>*do quickmsg with str(nkeycode)
>*on key label F7 do quiktask
>*on key label F11 do remarks2
>
>
>ON KEY LABEL F1
>
>if nkeycode=-9 && abort
>*do quickmsg with 'F10'
>release thisform
>endi
>
>if nkeycode=-4 &&F5 credcard
> *ACTI SCREEN
> do quikcred0
>endi
>
>if nkeycode=138 && cntl+F12
>do credharry
>endi
>
>if nkeycode=-7
> do form invoices
>endi
>
>if nkeycode=-6
> do prntscrn
>endi
>if nkeycode=140 && alt+F12
>do credharry && for harry only
>endi
>
>if nkeycode=-8
>do mord0
>endi
>
>if nkeycode=27
>thisform.txtremarks.setfocus
>endi
Groet,
Peter de Valença

Constructive frustration is the breeding ground of genius.
If there’s no willingness to moderate for the sake of good debate, then I have no willingness to debate at all.
Let's develop superb standards that will end the holy wars.
"There are three types of people: Alphas and Betas", said the beta decisively.
If you find this message rude or offensive or stupid, please take a step away from the keyboard and try to think calmly about an eventual a possible alternative explanation of my message.
Previous
Reply
Map
View

Click here to load this message in the networking platform