dzEventsMagic

[dzt]

Did you ever miss a B4PPC control event? This is the answer.

This library allows you to add more (missed) events to B4PPC controls.

Based on excellent code of the ".NET Compact Framework Team" found here http://blogs.msdn.com/netcfteam/arch...20/420551.aspx

Needs .NET 2.0 (don't forget MyApp.EXE.config file)

DLLs for desktop and device among with sample project (source and exe) are attached.

Windows Events list can be found here http://wiki.winehq.org/List_Of_Windows_Messages and here http://www.autohotkey.com/docs/misc/SendMessageList.htm

A useful windows spy application (Winspector) can be downloaded here http://www.windows-spy.com/

Sample code used to move a label on a form while pressing arrow keys

<font face="Courier New"><font size="2"><font color="#0000ff">Sub </font></font></font><font face="Courier New"><font size="2">Globals</font></font>
 
<font face="Courier New"><font size="2"><font color="#0000ff">End Sub</font></font></font>
 
<font face="Courier New"><font size="2"><font color="#0000ff">Sub </font></font></font><font face="Courier New"><font size="2">App_Start</font></font>
<font face="Courier New"><font size="2"><font color="#008000">  'Add dzEventsMagic object and name it dzem</font></font></font>
<font face="Courier New"><font size="2">  dzem.New1(</font></font><font face="Courier New"><font size="2"><font color="#800000">"Form1"</font></font></font><font face="Courier New"><font size="2">, true)</font></font>
 
<font face="Courier New"><font size="2"><font color="#008000">  'Hook WM_KEYDOWN message</font></font></font>
<font face="Courier New"><font size="2">  dzem.Hook(</font></font><font face="Courier New"><font size="2"><font color="#800080">256</font></font></font><font face="Courier New"><font size="2">)</font></font>
 
<font size="2"><font face="Courier New">  Form1.Show</font></font>
<font face="Courier New"><font size="2"><font color="#0000ff">End Sub</font></font></font>
 
<font face="Courier New"><font size="2"><font color="#0000ff">Sub </font></font></font><font face="Courier New"><font size="2">Form1_Close</font></font>
<font size="2"><font face="Courier New">  dzem.UnHook(</font></font><font face="Courier New"><font size="2"><font color="#800080">256</font></font></font><font face="Courier New"><font size="2">)</font></font>
<font face="Courier New"><font size="2"><font color="#0000ff">End Sub</font></font></font>
 
<font face="Courier New"><font size="2"><font color="#0000ff">Sub </font></font></font><font face="Courier New"><font size="2">dzem_MagicEvent</font></font>
<font face="Courier New"><font size="2"><font color="#008000">  'Left Arrow</font></font></font>
<font face="Courier New"><font size="2"><font color="#0000ff">  If</font></font></font><font face="Courier New"><font size="2"> dzem.wParam = </font></font><font face="Courier New"><font size="2"><font color="#800080">37 </font></font></font><font face="Courier New"><font size="2"><font color="#0000ff">Then</font></font></font>
<font face="Courier New"><font size="2">    label1.Text = </font></font><font face="Courier New"><font size="2"><font color="#800000">"LEFT"</font></font></font>
<font face="Courier New"><font size="2"><font color="#0000ff">    If</font></font></font><font face="Courier New"><font size="2"> label1.Left > </font></font><font face="Courier New"><font size="2"><font color="#800080">0 </font></font></font><font face="Courier New"><font size="2"><font color="#0000ff">Then</font></font></font>
<font face="Courier New"><font size="2">      label1.Left = label1.Left - </font></font><font face="Courier New"><font size="2"><font color="#800080">1</font></font></font>
<font face="Courier New"><font size="2"><font color="#0000ff">    End </font></font></font><font face="Courier New"><font size="2"><font color="#0000ff">If</font></font></font>
<font face="Courier New"><font size="2"><font color="#0000ff">  End </font></font></font><font face="Courier New"><font size="2"><font color="#0000ff">If</font></font></font>
 
<font face="Courier New"><font size="2"><font color="#008000">  'Up Arrow</font></font></font>
<font face="Courier New"><font size="2"><font color="#0000ff">  If</font></font></font><font face="Courier New"><font size="2"> dzem.wParam = </font></font><font face="Courier New"><font size="2"><font color="#800080">38 </font></font></font><font face="Courier New"><font size="2"><font color="#0000ff">Then</font></font></font>
<font face="Courier New"><font size="2">    label1.Text = </font></font><font face="Courier New"><font size="2"><font color="#800000">"UP"</font></font></font>
<font face="Courier New"><font size="2"><font color="#0000ff">    If</font></font></font><font face="Courier New"><font size="2"> label1.Top > </font></font><font face="Courier New"><font size="2"><font color="#800080">0 </font></font></font><font face="Courier New"><font size="2"><font color="#0000ff">Then</font></font></font>
<font face="Courier New"><font size="2">      label1.Top = label1.Top - </font></font><font face="Courier New"><font size="2"><font color="#800080">1</font></font></font>
<font face="Courier New"><font size="2"><font color="#0000ff">    End </font></font></font><font face="Courier New"><font size="2"><font color="#0000ff">If</font></font></font>
<font face="Courier New"><font size="2"><font color="#0000ff">  End </font></font></font><font face="Courier New"><font size="2"><font color="#0000ff">If</font></font></font>
 
<font face="Courier New"><font size="2"><font color="#008000">  'Right Arrow</font></font></font>
<font face="Courier New"><font size="2"><font color="#0000ff">  If</font></font></font><font face="Courier New"><font size="2"> dzem.wParam = </font></font><font face="Courier New"><font size="2"><font color="#800080">39 </font></font></font><font face="Courier New"><font size="2"><font color="#0000ff">Then</font></font></font>
<font face="Courier New"><font size="2">    label1.Text = </font></font><font face="Courier New"><font size="2"><font color="#800000">"RIGHT"</font></font></font>
<font face="Courier New"><font size="2"><font color="#0000ff">    If</font></font></font><font face="Courier New"><font size="2"> label1.left < Form1.Width - label1.Width </font></font><font face="Courier New"><font size="2"><font color="#0000ff">Then</font></font></font>
<font face="Courier New"><font size="2">      label1.Left = label1.Left + </font></font><font face="Courier New"><font size="2"><font color="#800080">1</font></font></font>
<font face="Courier New"><font size="2"><font color="#0000ff">    End </font></font></font><font face="Courier New"><font size="2"><font color="#0000ff">If</font></font></font>
<font face="Courier New"><font size="2"><font color="#0000ff">  End </font></font></font><font face="Courier New"><font size="2"><font color="#0000ff">If</font></font></font>
 
<font face="Courier New"><font size="2"><font color="#008000">  'Down Arrow</font></font></font>
<font face="Courier New"><font size="2"><font color="#0000ff">  If</font></font></font><font face="Courier New"><font size="2"> dzem.wParam = </font></font><font face="Courier New"><font size="2"><font color="#800080">40 </font></font></font><font face="Courier New"><font size="2"><font color="#0000ff">Then</font></font></font>
<font face="Courier New"><font size="2">    label1.Text = </font></font><font face="Courier New"><font size="2"><font color="#800000">"DOWN"</font></font></font>
<font face="Courier New"><font size="2"><font color="#0000ff">    If</font></font></font><font face="Courier New"><font size="2"> label1.Top < Form1.Height - label1.Height </font></font><font face="Courier New"><font size="2"><font color="#0000ff">Then</font></font></font>
<font face="Courier New"><font size="2">      label1.Top = label1.Top + </font></font><font face="Courier New"><font size="2"><font color="#800080">1</font></font></font>
<font face="Courier New"><font size="2"><font color="#0000ff">    End </font></font></font><font face="Courier New"><font size="2"><font color="#0000ff">If</font></font></font>
<font face="Courier New"><font size="2"><font color="#0000ff">  End </font></font></font><font face="Courier New"><font size="2"><font color="#0000ff">If</font></font></font>
<font size="2"><font face="Courier New"><font color="#0000ff">End Sub</font></font></font>

[Cableguy]

From what I could see, with this lib we can now raise an event upon a key stroke, correct?

[agraham]

Great work dzt - I love it.

[Erel]

Very nice job

[dzt]

One more sample. A completely locked TextBox

<font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">Sub </font></font></font><font face="Courier New"><font size="2"><font color="#000000">Globals</font></font></font>
 
<font face="Courier New"><font size="2"><font color="#0000ff">End Sub</font></font></font>
 
<font face="Courier New"><font size="2"><font color="#0000ff">Sub </font></font></font><font face="Courier New"><font size="2"><font color="#000000">App_Start</font></font></font>
<font face="Courier New"><font size="2"><font color="#008000">  'Add dzEventsMagic object and name it dzem</font></font></font>
<font face="Courier New"><font size="2"><font color="#008000">  'Set by default ReturnHandled parameter to true</font></font></font>
<font face="Courier New"><font size="2"><font color="#008000">  'just not to let message to reach the Hooked control</font></font></font>
<font face="Courier New"><font size="2">  dzem.New1(</font></font><font face="Courier New"><font size="2"><font color="#800000">"TextBox1"</font></font></font><font face="Courier New"><font size="2">, true)</font></font>
 
<font face="Courier New"><font size="2"><font color="#008000">  'Hook WM_KEYDOWN message</font></font></font>
<font face="Courier New"><font size="2">  dzem.Hook(</font></font><font face="Courier New"><font size="2"><font color="#800080">256</font></font></font><font face="Courier New"><font size="2">)</font></font>
 
<font face="Courier New"><font size="2"><font color="#008000">  'WM_CHAR</font></font></font>
<font face="Courier New"><font size="2">  dzem.Hook(</font></font><font face="Courier New"><font size="2"><font color="#800080">258</font></font></font><font face="Courier New"><font size="2">)</font></font>
 
<font face="Courier New"><font size="2"><font color="#008000">  'WM_PASTE</font></font></font>
<font face="Courier New"><font size="2">  dzem.Hook(</font></font><font face="Courier New"><font size="2"><font color="#800080">770</font></font></font><font face="Courier New"><font size="2">)</font></font>
 
<font face="Courier New"><font size="2"><font color="#008000">  'WM_CLEAR</font></font></font>
<font face="Courier New"><font size="2">  dzem.Hook(</font></font><font face="Courier New"><font size="2"><font color="#800080">771</font></font></font><font face="Courier New"><font size="2">)</font></font>
 
<font face="Courier New"><font size="2"><font color="#008000">  'WM_CUT</font></font></font>
<font face="Courier New"><font size="2">  dzem.Hook(</font></font><font face="Courier New"><font size="2"><font color="#800080">768</font></font></font><font face="Courier New"><font size="2">)</font></font>
 
<font size="2"><font face="Courier New">  Form1.Show</font></font>
<font face="Courier New"><font size="2"><font color="#0000ff">End Sub</font></font></font>
 
<font face="Courier New"><font size="2"><font color="#0000ff">Sub </font></font></font><font face="Courier New"><font size="2"><font color="#000000">Form1_Close</font></font></font>
<font size="2"><font face="Courier New">  dzem.UnHook(</font></font><font face="Courier New"><font size="2"><font color="#800080">256</font></font></font><font face="Courier New"><font size="2">)</font></font>
<font size="2"><font face="Courier New">  dzem.UnHook(</font></font><font face="Courier New"><font size="2"><font color="#800080">258</font></font></font><font face="Courier New"><font size="2">)</font></font>
<font size="2"><font face="Courier New">  dzem.UnHook(</font></font><font face="Courier New"><font size="2"><font color="#800080">770</font></font></font><font face="Courier New"><font size="2">)</font></font>
<font size="2"><font face="Courier New">  dzem.UnHook(</font></font><font face="Courier New"><font size="2"><font color="#800080">771</font></font></font><font face="Courier New"><font size="2">)</font></font>
<font size="2"><font face="Courier New">  dzem.UnHook(</font></font><font face="Courier New"><font size="2"><font color="#800080">768</font></font></font><font face="Courier New"><font size="2">)</font></font>
<font face="Courier New"><font size="2"><font color="#0000ff">End Sub</font></font></font>
 
<font face="Courier New"><font size="2"><font color="#0000ff">Sub </font></font></font><font face="Courier New"><font size="2"><font color="#000000">dzem_MagicEvent</font></font></font>
<font size="2"><font face="Courier New">  dzem.ReturnHandled = True</font></font>
 
<font face="Courier New"><font size="2"><font color="#008000">  'Allow Arrow Keys only</font></font></font>
<font face="Courier New"><font size="2"><font color="#008000">  'if dzem.msg = WM_KEYDOWN</font></font></font>
<font face="Courier New"><font size="2"><font color="#0000ff">  If</font></font></font><font face="Courier New"><font size="2"> dzem.msg = </font></font><font face="Courier New"><font size="2"><font color="#800080">256</font></font></font><font face="Courier New"><font size="2"><font color="#0000ff">Then</font></font></font>
<font face="Courier New"><font size="2"><font color="#008000">    'if the key is an arrow key</font></font></font>
<font face="Courier New"><font size="2"><font color="#0000ff">    If</font></font></font><font face="Courier New"><font size="2"> dzem.wParam = </font></font><font face="Courier New"><font size="2"><font color="#800080">37 </font></font></font><font face="Courier New"><font size="2"><font color="#0000ff">OR</font></font></font><font face="Courier New"><font size="2"> dzem.wParam = </font></font><font face="Courier New"><font size="2"><font color="#800080">38 </font></font></font><font face="Courier New"><font size="2"><font color="#0000ff">OR</font></font></font><font face="Courier New"><font size="2"> dzem.wParam = </font></font><font face="Courier New"><font size="2"><font color="#800080">39 </font></font></font><font face="Courier New"><font size="2"><font color="#0000ff">OR</font></font></font><font face="Courier New"><font size="2"> dzem.wParam = </font></font><font face="Courier New"><font size="2"><font color="#800080">40 </font></font></font><font face="Courier New"><font size="2"><font color="#0000ff">Then</font></font></font>
<font face="Courier New"><font size="2"><font color="#008000">      'Let the TextBox1 control to handle these keys</font></font></font>
<font face="Courier New"><font size="2">      dzem.ReturnHandled = False</font></font>
<font face="Courier New"><font size="2"><font color="#0000ff">   End </font></font></font><font face="Courier New"><font size="2"><font color="#0000ff">If</font></font></font>
<font face="Courier New"><font size="2"><font color="#0000ff">  End </font></font></font><font face="Courier New"><font size="2"><font color="#0000ff">If</font></font></font>
<font size="2"><font face="Courier New"><font color="#0000ff">End Sub</font></font></font>
</font></font></font>

[magi6162]

Very useful .
As I make to know the values of wParam and lParam controlling.

magi6162

[dzt]

Search using Google for every message of your interest (See message lists in my first post). Usually the first hit is an MSDN article describing the message.

Or/And download and install Winspector (see also my first post). Run it, and drag (while pressing CTRL key) the red circle with a cross to a control or window to see it's messsges. Detailed instructions here http://www.windows-spy.com/features/findwindow.shtml

[dzt]

And... one more sample. A clickable label showing how to add mouse events to controls using dzEventsMagic.

<font size="2"><font face="Courier New"><font color="#0000ff">Sub </font></font></font><font face="Courier New"><font size="2">Globals</font></font>
<font face="Courier New"><font size="2"><font color="#0000ff">  Dim</font></font></font><font face="Courier New"><font size="2"> Label1Clicked</font></font>
<font face="Courier New"><font size="2"><font color="#0000ff">End Sub</font></font></font>
 
<font size="2"><font face="Courier New"><font color="#0000ff">Sub </font></font></font><font face="Courier New"><font size="2">App_Start</font></font>
<font face="Courier New"><font size="2"><font color="#008000">  'Add dzEventsMagic object and name it dzem</font></font></font>
<font face="Courier New"><font size="2"><font color="#008000">  'Set by default ReturnHandled parameter to false</font></font></font>
<font face="Courier New"><font size="2"><font color="#008000">  'so the message can be farther processed </font></font></font>
<font face="Courier New"><font size="2">  dzem.New1(</font></font><font face="Courier New"><font size="2"><font color="#800000">"Label1"</font></font></font><font face="Courier New"><font size="2">, false)</font></font>
 
 
<font face="Courier New"><font color="#008000"><font size="2">  'Hook WM_LBUTTONDOWN</font></font></font>
<font size="2"><font face="Courier New">  dzem.Hook(</font></font><font face="Courier New"><font size="2"><font color="#800080">513</font></font></font><font size="2"><font face="Courier New">)</font></font>
 
<font size="2"><font color="#008000"><font face="Courier New">  'WM_LBUTTONUP</font></font></font>
<font size="2"><font face="Courier New">  dzem.Hook(</font></font><font face="Courier New"><font size="2"><font color="#800080">514</font></font></font><font size="2"><font face="Courier New">)</font></font>
 
<font size="2"><font face="Courier New">  Label1Clicked = false</font></font>
 
 
<font size="2"><font face="Courier New">  Form1.Show</font></font>
<font face="Courier New"><font size="2"><font color="#0000ff">End Sub</font></font></font>
 
<font size="2"><font color="#0000ff"><font face="Courier New">S</font></font></font><font size="2"><font color="#0000ff"><font face="Courier New">ub </font></font></font><font size="2"><font face="Courier New">Form1_Close</font></font>
<font size="2"><font face="Courier New">  dzem.UnHook(</font></font><font face="Courier New"><font size="2"><font color="#800080">513</font></font></font><font size="2"><font face="Courier New">)</font></font>
<font size="2"><font face="Courier New">  dzem.UnHook(</font></font><font face="Courier New"><font size="2"><font color="#800080">514</font></font><font size="2">)</font></font>
<font face="Courier New"><font size="2"><font color="#0000ff">End Sub</font></font></font>
 
<font size="2"><font color="#0000ff"><font face="Courier New">Sub </font></font></font><font size="2"><font face="Courier New">dzem_MagicEvent</font></font>
<font size="2"><font color="#008000"><font face="Courier New">  'WM_LBUTTONDOWN</font></font></font>
<font face="Courier New"><font size="2"><font color="#0000ff">  If</font></font><font size="2"> dzem.msg = </font><font size="2"><font color="#800080">513 </font></font><font size="2"><font color="#0000ff">Then</font></font></font>
<font size="2"><font face="Courier New">    label1.Color = </font></font><font face="Courier New"><font size="2"><font color="#800080">0</font></font><font size="2">,</font><font size="2"><font color="#800080">128</font></font><font size="2">,</font><font size="2"><font color="#800080">0</font></font></font>
<font size="2"><font face="Courier New">    label1.FontSize = </font></font><font size="2"><font color="#800080"><font face="Courier New">12</font></font></font>
<font size="2"><font face="Courier New">    Label1Clicked = true</font></font>
<font face="Courier New"><font size="2"><font color="#0000ff">  End </font></font><font size="2"><font color="#0000ff">If</font></font></font>
 
 
<font size="2"><font color="#008000"><font face="Courier New">  'WM_LBUTTONUP</font></font></font>
<font size="2"><font color="#008000"><font face="Courier New">  'This message fires for the Label only in PC</font></font></font>
<font face="Courier New"><font size="2"><font color="#0000ff">  If</font></font><font size="2"> dzem.msg = </font><font size="2"><font color="#800080">514 </font></font><font size="2"><font color="#0000ff">Then</font></font></font>
<font size="2"><font face="Courier New">    label1.Color = </font></font><font face="Courier New"><font size="2"><font color="#800080">0</font></font><font size="2">,</font><font size="2"><font color="#800080">255</font></font><font size="2">,</font><font size="2"><font color="#800080">0</font></font></font>
<font size="2"><font face="Courier New">    label1.FontSize = </font></font><font size="2"><font color="#800080"><font face="Courier New">9</font></font></font>
<font face="Courier New"><font size="2"><font color="#0000ff">  End </font></font><font size="2"><font color="#0000ff">If</font></font></font>
 
<font face="Courier New"><font size="2"><font color="#0000ff">End Sub</font></font></font>
 
<font size="2"><font color="#008000"><font face="Courier New">'Tip. In PPC WM_LBUTTONUP is received by the form, not the label</font></font></font>
<font size="2"><font color="#008000"><font face="Courier New">'So we catch Form MouseUp event to release label</font></font></font>
<font size="2"><font color="#0000ff"><font face="Courier New">Sub </font></font></font><font size="2"><font face="Courier New">Form1_MouseUp (x,y)</font></font>
<font face="Courier New"><font size="2"><font color="#0000ff">  If</font></font><font size="2"> Label1Clicked </font><font size="2"><font color="#0000ff">Then</font></font></font>
<font size="2"><font face="Courier New">    Label1Clicked = false</font></font>
<font size="2"><font face="Courier New">    label1.Color = </font></font><font face="Courier New"><font size="2"><font color="#800080">0</font></font><font size="2">,</font><font size="2"><font color="#800080">255</font></font><font size="2">,</font><font size="2"><font color="#800080">0</font></font></font>
<font size="2"><font face="Courier New">    label1.FontSize = </font></font><font size="2"><font color="#800080"><font face="Courier New">9</font></font></font>
<font face="Courier New"><font size="2"><font color="#0000ff">  End </font></font></font><font size="2"><font color="#0000ff"><font face="Courier New">If</font></font></font>
<font size="2"><font color="#0000ff"><font face="Courier New">End Sub</font></font></font>

[alfcen]

Hello Dimitris
Perhaps you are already aware of it, the label move demo works only under the condition that no input controls (numerical UpDn, Textbox, Image button) are on that form. MagicEvent does not fire in presence of input controls.
Cheers
Robert

[agraham]

Originally Posted by alfcen

MagicEvent does not fire in presence of input controls.

I am afraid that this isn't something that dzt can do anything about. Once a control that can receive the focus is placed on a form it gets the focus and the form ceases to see key presses.