VB.NET form manipulation as system tray

Question

0.00/5 (No votes)

See more:

I have a form that will minimize on tray icon when Esc is press

VB

Private Sub frmMain_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
    If e.KeyCode = Keys.Escape Then
        Me.WindowState = FormWindowState.Minimized
        NotifyIcon1.Visible = True
        Me.Hide()
    End If
End Sub

What I want is make that form appear when I press another hot key (Ctrl+Q) when the form is minimized as system tray

I found this but it is in VB6 codes
http://www.vbforums.com/showthread.php?394845-RESOLVED-Detect-a-Hot-Key-without-looping&highlight=RegisterHotKey[^]

Posted 30-Apr-14 0:46am

hansoctantan

Updated 30-Apr-14 1:40am

v4

Add a Solution

2 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)

F. Xaver · Answer 1 · 2014-04-30T01:59:00

I would use ProcessCmdKey for that ESC Button.. Form.KeyDown never worked well for me ;)

VB

Protected Overrides Function ProcessCmdKey(ByRef msg As Message, keyData As Keys) As Boolean
        If keyData = Keys.Escape Then
             Console.WriteLine("Yeha Esc pushed..")
             Return True
        End If
        Return MyBase.ProcessCmdKey(msg, keyData)
   End Function

Back then in VB6 I used GetAsyncKeyState when I needed to detect Keys pressed outside my App. But unfortunately you need an extra Thread or an Timer for that, as you allways need to check if your Keys are pressed. Don't know if there are better ways now, never needed that functionality in the last years... ^^
(I guess 4 sure there are, but I don't know em)

Here is a litte example

VB

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As IntPtr) As IntPtr
Private Sub Timer_Or_Thread_WhateverRoutine
    Dim result As IntPtr = GetAsyncKeyState(New IntPtr(Keys.F5))
    If result.ToInt32 < 0 Then
        MessageBox.Show("F5 Pushed")
    End If
End Sub

CHill60 · Answer 2 · 2014-04-30T01:44:00

Solution 1

This CodeProject article should help you Simple steps to enable Hotkey and ShortcutInput user control[^]

Posted 30-Apr-14 1:44am

CHill60