- Predefined and user defined KEY event number assignments to use with ON KEY(n):
- See the KEY n page for user defined key or key combination presses and F function softkey assignments.
- GOSUB with a linelabel or linenumber or a SUB procedure (without the CALL keyword) can be triggered in QB64.
Using ON KEY with GOSUB to execute code.
KEY(1) ON ON KEY(1) GOSUB trap PRINT "Press F1 to quit!" DO:LOOP 'never ending loop trap: PRINT "You pressed F1 like I told you to :)" END RETURN
Setting multiple ON KEY statements to send different values to a SUB procedure.
FOR n = 1 TO 10 KEY n, STR$(n) ' assigns soft key as a numerical string ON KEY(n) Funct n 'designate SUB procedure and parameter value passed KEY(n) ON ' turns each key event monitor on NEXT KEY ON 'displays F1 to F10 soft key assignments at bottom of screen DO LOOP UNTIL INKEY$ = CHR$(27) END SUB Funct (num%) CLS' clears the screen and refreshes bottom soft key list PRINT "You pressed F"; LTRIM$(STR$(num%)) END SUB