status bar

Question

0.00/5 (No votes)

See more:

What I want is if I click the NUM LK in the keyboard then it would display NUM in the status bar then if I press capslock it would display CAP but this code is not working how could I possibly do that ehhehe..... Any help will be appreciated ehehe

VB

Private Sub CheckLockKeys()
        ' If the capslock key changes then change the value of the capslock statusbarpanel.
        If My.Computer.Keyboard.CapsLock Then
            capsLock.Text = "CAP"
            capsLock.BorderStyle = Border3DStyle.Raised
        Else
            capsLock.Text = ""
            capsLock.BorderStyle = Border3DStyle.Sunken
        End If

        ' If the numlock key changes then change the value of the numlock statusbarpanel.
        If My.Computer.Keyboard.NumLock Then
            numLock.Text = "NUM"
            numLock.BorderStyle = Border3DStyle.Raised
        Else
            numLock.Text = ""
            numLock.BorderStyle = Border3DStyle.Sunken
        End If
    End Sub

    Private Sub frmMain_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown, MyBase.KeyDown, MyBase.KeyDown, MyBase.KeyDown, MyBase.KeyDown, MyBase.KeyDown, MyBase.KeyDown, MyBase.KeyDown
        ' Check to see if the key pressed was either of the lock keys we're interested in.
        If e.KeyCode = Keys.CapsLock Or e.KeyCode = Keys.NumLock Then
            CheckLockKeys()
        End If
    End Sub

Posted 28-Feb-10 1:23am

xiroH4ck3r

Add a Solution

1 solution

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)

DaveAuld · Answer 1 · 2010-02-28T02:21:00

Add a label to a form and drop in the code below, this works fine.

VB

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    getKeyStates()
End Sub

Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown

    If e.KeyCode = Keys.CapsLock Or e.KeyCode = Keys.NumLock Then
        getKeyStates()
    End If

End Sub


Private Sub getKeyStates()
    Dim outString As String = String.Empty

    If My.Computer.Keyboard.CapsLock Then
        outString = "CAPS"
    End If

    If My.Computer.Keyboard.NumLock Then
        If outString.Length > 0 Then
            outString = outString + " | "
        End If
        outString = outString + "NUM"
    End If

    Label1.Text = outString

End Sub