Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
CTRL+C fireing keypress PAGEUP/PAGEDOWN
Message
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00822938
Message ID:
00822940
Views:
18
Terry,

CTRL+C generates the same code as PAGE DOWN - 3. CTRL+R the same as PAGE UP - 18. You've to check nShiftAltCtrl value to make sure that CTRL wasn't pressed. Also, VFP has DO CASE ... ENDCASE statement to check for multiple exclusive conditions.
PROCEDUR Keypress(nKeyCode, nShiftAltCtrl)
	DO CASE
	CASE nKeyCode = 18 AND nShiftAltCtrl = 0
		SetFocusforPageKeys(THIS.NAME,VAL(THIS.PARENT.lblItemNo.CAPTION),-1)
	CASE nKeyCode = 3 AND nShiftAltCtrl = 0
		SetFocusforPageKeys(THIS.NAME,VAL(THIS.PARENT.lblItemNo.CAPTION),1)
	OTHERWISE
	ENDCASE
ENDPROC
CTRL+V pastes whatever is in the text clipboard. You'll have to figure out how "DEFINE CLASS SUBTEXTBOX" gets there.

>My project has a textbox with a Keypress event coded to fire procedures when either PAGE DOWN or PAGE UP are pressed. When I press CTRL+C (to copy textbox contents), the Keypress event fires as if the PAGE DOWN KEY.
>
>Also wierd: When I press CTRL+V, to paste, "DEFINE CLASS SUBTEXTBOX" the class definition header, appears in the field contents.
>
>
define class subTextBox as TextBox
>format="R"
>height=17
>specialeffect=1
>procedur KeyPress(nKeyCode, nShiftAltCtrl)
>if nKeyCode=18
>   SetFocusforPageKeys(this.name,val(this.parent.lblItemNo.Caption),-1)
>else
>if nKeyCode=3
>   SetFocusforPageKeys(this.name,val(this.parent.lblItemNo.Caption),1)
>else
>endif
>endif
>endproc
>enddefine
--sb--
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform