Using Keypress

Post

Posted
Rating:
#1 (In Topic #312)
cage
Avatar
Regular
cage is in the usergroup ‘Regular’
This is a little routine to use the Sub Form_KeyPress to determine whether a
key was a numeric number or not.  Might be a good routine to place into a
calculator program or a program where you can use keyboard numbers
entered.

Code (gambas)

  1. ' Gambas class file
  2.  
  3. Public Sub Form_Open()
  4. '*********************************
  5. 'Insert a label and text box
  6. 'on the default window
  7. 'and leave them as the default
  8. 'names
  9. '*********************************
  11.  
  12. Public Sub Form_KeyPress()
  13.  
  14. Dim strChar As String
  15. '*********************************
  16. 'Assign the keycode to strChar
  17. '*********************************
  18. strChar = String.Chr(Key.Code)
  19. '**********************************
  20. 'If the Key.Code is Key.Esc then
  21. 'close the window.
  22. '**********************************
  23. If Key.Code = Key.Esc Then Me.Close
  24.  
  25. '***************************************
  26. 'Check to see if strChar is a number
  27. '***************************************
  28. If IsDigit(strChar) = False Then
  29.   '***********************************************
  30.  'If false then report not a number
  31.  'and report False
  32.  '************************************************
  33.   Label1.Text = "False"
  34.   TextBox1.Text = "Not a number "
  36. '*************************************
  37. 'If strChar is a number then display
  38. 'the number and reprot true
  39. '*************************************
  40.     Label1.Text = "True"
  41.    TextBox1.Text = strChar
  43.  
  45.  
Online now: No Back to the top

Post

Posted
Rating:
#2
cogier
Avatar
Guru
cogier is in the usergroup ‘Guru’
Hi cage,

Have a look at: -

IsNumber
IsLetter

In fact there are quite a few interesting 'Is' commands
IsAlnum
IsAscii
IsBlank
IsDigit
IsLCase
IsLetter
IsLower
IsNumber
IsPunct
IsSpace
IsUCase
IsUpper
Online now: No Back to the top
1 guest and 0 members have just viewed this.