How to Detect Keys in VB.Net

Question

0.00/5 (No votes)

See more:

This statement is not working for me... please help

when I type e.Control only e.KeyChr is coming nothing else... If use e.keychr=Chrw(key.alt) then again it gives error. cannot convert to chr.... please help...

VB

Public Class Form1

    <System.Runtime.InteropServices.DllImport("user32.dll")> _
    Private Shared Function GetAsyncKeyState(vKey As Keys) As Short
    End Function

    Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown

    End Sub

    Private Sub Form1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles Me.KeyPress
        If e.Control And e.Alt And e.Shift Then

            If Convert.ToBoolean(GetAsyncKeyState(Keys.LShiftKey)) Then
                MsgBox("CTRL + ALT + LEFT SHIFT")
            ElseIf Convert.ToBoolean(GetAsyncKeyState(Keys.RShiftKey)) Then
                MsgBox("CTRL + ALT + RIGHT SHIFT")
            End If

        End If
    End Sub

End Class

Posted 15-Jan-14 0:27am

Member 10279246

Add a Solution

3 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

StefDaems · Answer 1 · 2014-01-16T23:19:00

On Load check if your KEYPREVIEW is set to true

VB

Private Sub XXXX_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.KeyPreview = True
End Sub

Then you just implement a keydown function

VB

Private Sub XXXX_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.Space Then
             MsgBox("Space button pressed")
        End If
End Sub

This works for me.

F. Xaver · Answer 2 · 2014-01-15T02:07:00

KeyPress won't give you all that info.. and simply isn't fired with only Specialkeys pressed
If you press "SHIF + A" KeyPress only gives you Keys.A

Better have a look at this one here ProcessCmdKey
MSDN Link[^]

http://social.msdn.microsoft.com/Forums/windows/en-US/6907cd57-4789-46ec-a5d5-e5b0975ff993/override-keypress-in-vbnet?forum=winforms[^]

Ganesan Natarajan · Answer 3 · 2014-01-30T19:48:00

Solution 3

Hi,

Try this :

select the form and enable the KeyPress event, thats it...

Posted 30-Jan-14 19:48pm

Ganesan Natarajan

How to Detect Keys in VB.Net

3 solutions

Solution 2

Solution 1

Solution 3

Add your solution here

Preview 0