[RESOLVED] Very simple keypad application - how to?

[ThomasJohnsen]

Just thought I'd post my solution here, in case anyone someone finds this thread with a search tool.

The simple solution relies on an inherited form with extended params:

Public Class frmMain
 
    Inherits Form
 
    '----------------------------------------------------------------------------
 
    Private Const WS_EX_NOACTIVATE As Int32 = &H8000000
 
    '----------------------------------------------------------------------------
 
    Protected Overrides ReadOnly Property CreateParams() As System.Windows.Forms.CreateParams
 
        Get
            Dim cp As System.Windows.Forms.CreateParams = MyBase.CreateParams
 
            cp.ExStyle = cp.ExStyle Or WS_EX_NOACTIVATE
 
            Return cp
        End Get
 
    End Property
 
    Private Sub TransmitKey(ByVal sKey As String)
 
        'Backspace = "{BS}", Enter = "~"
 
        '.SendWait may be a better solution in some applications.
        System.Windows.Forms.SendKeys.Send(sKey)
 
    End Sub
 
    'Button events consist only of a call to TransmitKey.
 
End Class

The above solution is easily implemented and has the exact same functionality as the Windows keyboard.

A better solution would be to allow activation of the window when clicking with the mouse on the border or title, and only preventing activation when the user clicks in the client area. This requires a rather complex series of calls to API functions, and even with Dan Appleman's guide, I found the task rather tedious and probably not worth the bother in most cases. I at least decided to settle for the simple case, since I found it impossible to prevent a significant loss of speed and some flickering of windows.

If someone else feels up to the task, the key functions I used are listed below:
* GetActiveWindow
* GetWindowThreadProcessId
* SetFocus
* AttachThreadInput
You'll need to override WndProc and listen for WM_ACTIVATEAPP with wParam zero and nonzero and WM_ACTIVE with wParam WA_CLICKACTIVE.

Regards
Tom