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.
[Solved] Keyboard advice
-
- Posts: 359
- Joined: Wednesday 2nd December 2020 12:11am
- Location: Northampton, England
- Contact:
[Solved] Keyboard advice
Last edited by AndyGable on Tuesday 16th February 2021 3:55pm, edited 1 time in total.
Re: Keyboard advice
Public Sub Form_KeyPress()
Debug "Code: "; Key.Code, "Shift: "; Key.Shift
End
- cogier
- Site Admin
- Posts: 1118
- Joined: Wednesday 21st September 2016 2:22pm
- Location: Guernsey, Channel Islands
Re: Keyboard advice
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
- BruceSteers
- Posts: 1521
- Joined: Thursday 23rd July 2020 5:20pm
- Location: Isle of Wight
- Contact:
Re: Keyboard advice
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 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
BruceS
- grayghost4
- Posts: 174
- Joined: Wednesday 5th December 2018 5:00am
- Location: Marengo, Illinois usa
Re: Keyboard advice
Yes it does
Public Sub Form_KeyPress()
Select Key.Text
Case "a"
Print "a"
Case "A"
Print "A"
End Select
End
-
- Posts: 359
- Joined: Wednesday 2nd December 2020 12:11am
- Location: Northampton, England
- Contact:
Re: Keyboard advice
Thanks Bruce this worked perfectly I can now detect the difference between the keys and not relaying on key scan codes etcBruceSteers 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
so it is quicker
- BruceSteers
- Posts: 1521
- Joined: Thursday 23rd July 2020 5:20pm
- Location: Isle of Wight
- Contact:
Re: Keyboard advice
You are welcomeAndyGable wrote: ↑Tuesday 16th February 2021 3:54pmThanks Bruce this worked perfectly I can now detect the difference between the keys and not relaying on key scan codes etcBruceSteers 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
so it is quicker
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
BruceS