[Solved] Keyboard advice

Post your Gambas programming questions here.
Post Reply
AndyGable
Posts: 359
Joined: Wednesday 2nd December 2020 12:11am
Location: Northampton, England
Contact:

[Solved] Keyboard advice

Post by AndyGable »

Hi All,

I was hoping someone could help me with this

I have a question how do I detect the differance between the Key a being pressed and then then Key A being pressed?

Basically I have need to have different actions happen when the Key a is pressed and another function happen when Key A is pressed

any advice would be most welcomed as I have no idea and I can not even detect the differance in VB.net and no one seems to be able to tell me there either.
Last edited by AndyGable on Tuesday 16th February 2021 3:55pm, edited 1 time in total.
User avatar
PJBlack
Posts: 184
Joined: Tuesday 9th June 2020 10:26pm
Location: Florstadt, Hessen, Germany

Re: Keyboard advice

Post by PJBlack »

Public Sub Form_KeyPress()

    Debug "Code: "; Key.Code, "Shift: "; Key.Shift

End
User avatar
cogier
Site Admin
Posts: 1118
Joined: Wednesday 21st September 2016 2:22pm
Location: Guernsey, Channel Islands

Re: Keyboard advice

Post by cogier »

And here is my input: -
Public Sub Form_KeyPress()

  Dim iKey As Integer
  
  If Not Key.Shift Then iKey = 32
  iKey += Key.Code
  If iKey > 64 And iKey < 123 Then Print Chr(iKey)

End
User avatar
BruceSteers
Posts: 1521
Joined: Thursday 23rd July 2020 5:20pm
Location: Isle of Wight
Contact:

Re: Keyboard advice

Post by BruceSteers »

Does Key.Text not show a or A ?

If Key.Text Then
Select Key.Text
Case "a"

Case "A"
End Select

Endif

Not at home to test it.

Bruce
If at first you don't succeed , try doing something differently.
BruceS
User avatar
grayghost4
Posts: 174
Joined: Wednesday 5th December 2018 5:00am
Location: Marengo, Illinois usa

Re: Keyboard advice

Post by grayghost4 »

Yes it does
Public Sub Form_KeyPress()


 Select Key.Text
Case "a"
  Print "a"

Case "A"
  Print "A"
End Select
 
End
AndyGable
Posts: 359
Joined: Wednesday 2nd December 2020 12:11am
Location: Northampton, England
Contact:

Re: Keyboard advice

Post by AndyGable »

BruceSteers wrote: Monday 15th February 2021 8:54pm Does Key.Text not show a or A ?

If Key.Text Then
Select Key.Text
Case "a"

Case "A"
End Select

Endif

Not at home to test it.

Bruce
Thanks Bruce this worked perfectly I can now detect the difference between the keys and not relaying on key scan codes etc
so it is quicker :)
User avatar
BruceSteers
Posts: 1521
Joined: Thursday 23rd July 2020 5:20pm
Location: Isle of Wight
Contact:

Re: Keyboard advice

Post by BruceSteers »

AndyGable wrote: Tuesday 16th February 2021 3:54pm
BruceSteers wrote: Monday 15th February 2021 8:54pm Does Key.Text not show a or A ?

If Key.Text Then
Select Key.Text
Case "a"

Case "A"
End Select

Endif

Not at home to test it.

Bruce
Thanks Bruce this worked perfectly I can now detect the difference between the keys and not relaying on key scan codes etc
so it is quicker :)
You are welcome :)
The other suggestions will still help if you want to check for non alphabetical keys like F3, TAB, etc with shift differences but for any alphabetical text key Key.Text would do it.

Bruce
If at first you don't succeed , try doing something differently.
BruceS
Post Reply