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