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