Gambas/Text

Back to Gambas

The Key Code Program

With this simple miniprogram you can check out the keycode of a button you have pressed. You only need a Form to get the program going. Once you started the program and you use a button on your keyboard, the keycode is printed in the terminal window.

The Code

PUBLIC SUB Form_KeyRelease()
PRINT key.code
END

The Key Release Program

With this miniprogram you can check the arrow keys. When they are used and released a new information is shown.

You need a textbox to get the program going.

Once you started the program and you use an arrow key in the textbox, the content of the textbox will change.

The Code

PUBLIC SUB TextBox1_KeyRelease()
SELECT Key.code
 CASE Key.left
  Textbox1.Text ="Left"
 CASE Key.right
  Textbox1.Text ="Right"
 CASE Key.up
  Textbox1.Text ="Up"
 CASE Key.down
  Textbox1.Text ="Down"
END SELECT
END

Input Restrictions

If you want a textbox to accept only digits you should use the command STOP EVENT.

Example

You need a textbox on your form to get it going.

PUBLIC SUB MyTextBox_KeyPress()
  IF Instr("0123456789", Key.Text) = 0 THEN
   STOP EVENT
 ENDIF
END SUB

Example2

You can reach nearly the same with the following code:

PUBLIC SUB TextBox1_KeyPress()
   IF key.Code >= 48 AND key.Code <= 57 THEN 
   ELSE IF key.Code = key.BackSpace THEN 
   ELSE IF key.Code = key.Delete THEN 
   ELSE 
     STOP EVENT 
 ENDIF 
END
PUBLIC SUB Form_Open()
 ME.Text = "Only digits accepted !"
END