Application wide Hotkey

Hi experts,

We have developed an application which is in SDI form and has multiple Forms using VB 2005 with .net framework 2.0. We need to provide hotkeys to perform specific actions. This hotkey may be pressed in any of the forms throughout the application. The system should be able to recognize this key press is required to execute some code.

In the above context i have done some research and got a solution which is very close to the one which i require -
www.experts-exchange.com/Programming/Languages/.NET/Visual_Basic.NET/Q_21584180.html

The limitation in the solution above is that it works system wide. When my application is minimized and user presses the hotkey, my application still responds to that, which is NOT required.

How can this be achieved?

The hotkey we are trying to use are all the function keys and other keys in combination with CTRL key.

Ketan.

LVL 1
s_monaniAsked:
Who is Participating?

[Webinar] Streamline your web hosting managementRegister Today

x
 
Mike TomlinsonConnect With a Mentor Middle School Assistant TeacherCommented:
If you want a "HotKey" across all forms, but ONLY in the application, then use IMessageFilter:
http://msdn2.microsoft.com/en-us/library/system.windows.forms.application.addmessagefilter.aspx

Simple example that traps Ctrl-F1, Ctrl-F2, and Ctrl-F3:
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Application.AddMessageFilter(New MyMessageFilter)
    End Sub
 
    Public Class MyMessageFilter
        Implements IMessageFilter
 
        Private Const WM_KEYDOWN As Integer = &H100
 
        Public Function PreFilterMessage(ByRef m As System.Windows.Forms.Message) As Boolean Implements IMessageFilter.PreFilterMessage
            Select Case m.Msg
                Case WM_KEYDOWN ' (Check for Ctrl being down...w/o the Alt key down)
                    If My.Computer.Keyboard.CtrlKeyDown AndAlso (Not My.Computer.Keyboard.AltKeyDown) Then
                        Select Case m.WParam.ToInt32
                            Case Keys.F1
                                MessageBox.Show("Ctrl-F1")
                                Return True
 
                            Case Keys.F2
                                MessageBox.Show("Ctrl-F2")
                                Return True
 
                            Case Keys.F3
                                MessageBox.Show("Ctrl-F3")
                                Return True
 
                            ' etc...
 
                        End Select
                    End If
 
            End Select
 
            Return False
        End Function
    End Class
 
End Class

Open in new window

0
 
s_monaniAuthor Commented:
Thanks a lot, the code exactly what i needed.
0
All Courses

From novice to tech pro — start learning today.