Keypress on a Form

Post

Posted
Rating:
#1 (In Topic #507)
AndyGable
Enthusiast
AndyGable is in the usergroup ‘Enthusiast’
 Hi All,

I am new to Gambas and I have been trying to get a example program to print a message to a label when I press F1 but I can not get it to work

This is the code behind the form


Public Sub Form_Open
'
End

Public Sub Form_KeyPress
 If Key.F1 Then LCDLabel2.text = Time & " F1 Key Pressed"
End

I am use to using VB6 and VB.net but in them languages I had to set the Form keypreview to true but i can not see that option in Gambas.

Can someone please help me as I have big plans for this app.

Also can I ask iof Gambas supports MDI application development?
Online now: No Back to the top

Post

Posted
Rating:
#2
cage
Avatar
Regular
cage is in the usergroup ‘Regular’
Here is examples of how I do it…

Code (gambas)

  1. Take note of when a key is released
  2. Public Sub Form_KeyRelease()
  3.  
  4.   If (Key.Code = Key.ShiftKey) Then
  5.     ShiftPressed = False
  6.     Speed = 1
  7.   End If
  8.   If Key.Code = Key.Up Then UpPressed = False
  9.   If Key.Code = Key.Down Then DownPressed = False
  10.   If Key.Code = Key.Left Then LeftPressed = False
  11.   If Key.Code = Key.Right Then RightPressed = False
  12.   UpdateLabels()
  13.  
  15.  
  16. ' another one
  17. Public Sub Form_KeyPress()
  18.   Print Key.Code, Key.Text
  20.  
  21. Enter and Return.
  22.  
  23. Public Sub Form_KeyPress()
  24.  
  25. 'Main keyboard returns Return and Keypad is Enter
  27.  
  28. TextBox1.Text = "Enter"
  29.  
  30.  
  32.    
  34.  
  35. The Key Code Program
  36. 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.
  37. The Code
  38. Public Sub Form_KeyRelease()
  39. Print key.code
  41. The Key Release Program
  42. With this miniprogram you can check the arrow keys.When they are used And released a New Information Is Shown.
  43. You need a textbox To get the program going.
  44. Once you started the program And you Use an arrow key In the textbox, the content Of the textbox will change.
  45. The Code
  46. Public Sub TextBox1_KeyRelease()
  47. Select Key.code
  49.   Textbox1.Text = "Left"
  51.   Textbox1.Text = "Right"
  52.  Case Key.up
  53.   Textbox1.Text = "Up"
  54.  Case Key.down
  55.   Textbox1.Text = "Down"
  58.  
  59. Input Restrictions
  60.  
  61. If you want a textbox To accept only digits you should Use the command Stop EVENT.
  62. Example
  63. You need a textbox On your form To get it going.
  64. Public Sub MyTextBox_KeyPress()
  65.   If InStr("0123456789", Key.Text) = 0 Then
  66.    Stop Event
  69. Example2
  70. You can reach nearly the same With the following code:
  71. Public Sub TextBox1_KeyPress()
  72.    If key.Code >= 48 And key.Code <= 57 Then
  73.    Else If key.Code = key.BackSpace Then
  74.    Else If key.Code = key.Delete Then
  75.    Else
  76.      Stop Event
  79. Public Sub Form_Open()
  80.  Me.Text = "Only digits accepted !"

Hope that helps.  Yes Gambas does do MDI just not quite like VB did.  Take a look at my Handyman program in the showcase section of the site.  It uses Gambas MDI.
Online now: No Back to the top

Post

Posted
Rating:
#3
cogier
Avatar
Guru
cogier is in the usergroup ‘Guru’
Hi AndyGable and welcome to the forum

Here is my input to your question.

Code (gambas)

  1. Public Sub Form_Open()
  2.  
  3.   ''All the Properies here can be made in the IDE
  4.  
  5.   With Me
  6.     .Height = 150
  7.     .Width = 900
  8.     .Padding = 5
  9.     .Arrangement = Arrange.Fill
  11.  
  12.   With LCDLabel2
  13.     .Alignment = Align.Center
  14.     .Expand = True
  15.     .Padding = 20
  16.     .Sheared = True
  17.     .Background = Color.Black
  18.     .Foreground = Color.Black
  19.     .HighlightColor = Color.Green
  21.  
  23.  
  24. Public Sub Form_KeyPress()
  25.  
  26.   'If Key.F1 Then LCDLabel2.text = Time & " F1 Key Pressed"
  27.   If Key.Code = Key.F1 Then LCDLabel2.text = Str(Time(Now)) & " F1 Key Pressed"
  28.  

<IMG src="https://www.cogier.com/gambas/Time%20-%20F1.png"> </IMG>
Online now: No Back to the top

Post

Posted
Rating:
#4
BruceSteers
Guru
BruceSteers is in the usergroup ‘Guru’
Hi , welcome :)

An alternative way would be if you have set up a menu item (use the menu editor) that does the job and simply Set the F1 shortcut key on it.
Online now: No Back to the top

Post

Posted
Rating:
#5
AndyGable
Enthusiast
AndyGable is in the usergroup ‘Enthusiast’
 Hi All,

THank you for the replay I have to change it to a GTK+ application and now it works

Is there such a thing as a MDI application in gambas? (i can do do a MDI in VB.net) I ask as I want to transfer my Windows application
into Linux and I use multiple forms to create the look I want for the app
Online now: No Back to the top

Post

Posted
Rating:
#6
Technopeasant
Avatar
Regular
Technopeasant is in the usergroup ‘Regular’
You can embed forms into other forms in Gambas, if that is what you are looking for.
Online now: No Back to the top
1 guest and 0 members have just viewed this.