Gambas/Text

键码程序

使用这个简单的迷你程序，你可以检查你按下按钮的键码。你只需要一个表单来启动程序。一旦你启动了程序，你使用键盘上的按钮，键码就会打印在终端窗口中。

代码

PUBLIC SUB Form_KeyRelease()
PRINT key.code
END

键释放程序

使用这个迷你程序，你可以检查箭头键。当使用和释放时，会显示新的信息。

你需要一个文本框来启动程序。

一旦你启动了程序，你在文本框中使用箭头键，文本框的内容就会改变。

代码

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

输入限制

如果你想要一个文本框只接受数字，你应该使用命令 **STOP EVENT**。

示例

你需要在你的表单上有一个文本框来启动它。

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

示例 2

你可以用以下代码达到几乎相同的效果

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