NewsForumsCodeLogsGallerySpecsSearch

Code archives/User Input/Trapping the ENTER keypress

This code has been declared by its author to be Public Domain code.

Download source code

Trapping the ENTER keypress by UUICEO2007
Use the following code to trap the users enter key (great for text field enter key press traps) 
dType = False
win = CreateWindow("test",0,500,400,400,0) 
tbox = CreateTextArea(0,0,200,100,win)
gbox = CreateTextField(0,102,200,20,win)
HotKeyEvent 28,0,$028,0,0,0,0,win 
Repeat
id = WaitEvent()
	Select id
		Case $028
			If (Not dType) id = 0:Goto badreturnkeypress
			Stop
		Case 260; ENTER Key press ID when in a text field
			If (Not dType) id = 0:Goto badreturnkeypress
			Stop
		Case $401
			dType = False
			If (Not dType) And EventSource() = tbox dType = True:Stop
			If (Not dType) And EventSource() = gbox dType = True
		Case $803
			Exit
.badreturnkeypress
	End Select
Forever 

End

Comments

Jammer4292014
damn fine code


Code Archives Forum