Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 1092
  • Last Modified:

How do I get my vb.net application to record touch screen events from Windows Mobile when it's not in focus?

I have a small program in Windows Mobile using VB.net that has a form (Form1) and and 2 list boxes (Listbox1, Listbox2). What I want to do is simply capture the X and Y coordinates of the stylus on touch screen events, and then put the X and Y coordinate values in their respective list boxes. Can this be done?

If at all possible I would like to find any examples, tutorials etc that show how to do this when the application is 1) in focus; and 2) not in focus. At minimum I would like to know how this is done while my form is in focus....but my main objective is to do this when my program is not in focus.

Thanks....
0
jazjef
Asked:
jazjef
  • 2
1 Solution
 
alexey_gusevCommented:
handle  MouseDown event which is fired with MouseEventArgs - these have X,Y coordinates where the stylus is tapped on the screen
0
 
alexey_gusevCommented:
oops, misread your question, so above is true when the window is in focus
0
 
jazjefAuthor Commented:
alexey:
Here is some code I found that runs error-free...but the code doesn't return anything yet...  how can I tap into it to get the x y values out... will this work for me? Where do I put my statement to return the coordinates? Thanks....


 _
Private Shared Sub mouse_event(dwFlags As MOUSEEVENTF, dx As Integer, dy As Integer, dwData As Integer, dwExtraInfo As Integer)
End Sub

 _
Private Enum MOUSEEVENTF
    MOVE = &H1
    ' mouse move
    LEFTDOWN = &H2
    ' left button down
    LEFTUP = &H4
    'left button up
    RIGHTDOWN = &H8
    'right button down
    RIGHTUP = &H10
    'right button up
    MIDDLEDOWN = &H20
    'middle button down
    MIDDLEUP = &H40
    ' middle button up
    WHEEL = &H800
    'wheel button rolled
    VIRTUALDESK = &H4000
    ' map to entrire virtual desktop
    ABSOLUTE = &H8000
    ' absolute move
    TOUCH = &H100000
    ' absolute move
End Enum


Friend Shared Sub SendTap(x As Integer, y As Integer)
    mouse_event(MOUSEEVENTF.LEFTDOWN Or MOUSEEVENTF.ABSOLUTE, CInt(((65535 / Screen.PrimaryScreen.Bounds.Width) * x)), CInt(((65535 / Screen.PrimaryScreen.Bounds.Height) * y)), 0, 0)
    mouse_event(MOUSEEVENTF.LEFTUP, 0, 0, 0, 0)
End Sub
0

Featured Post

VIDEO: THE CONCERTO CLOUD FOR HEALTHCARE

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now