Solved

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

Posted on 2008-10-02
3
1,070 Views
Last Modified: 2013-12-21
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
Comment
Question by:jazjef
  • 2
3 Comments
 
LVL 24

Expert Comment

by:alexey_gusev
ID: 22623312
handle  MouseDown event which is fired with MouseEventArgs - these have X,Y coordinates where the stylus is tapped on the screen
0
 
LVL 24

Expert Comment

by:alexey_gusev
ID: 22623317
oops, misread your question, so above is true when the window is in focus
0
 
LVL 4

Accepted Solution

by:
jazjef earned 0 total points
ID: 22626399
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

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

In this article, I will show you HOW TO: Install VMware Tools for Windows on a VMware Windows virtual machine on a VMware vSphere Hypervisor 6.5 (ESXi 6.5) Host Server, using the VMware Host Client. The virtual machine has Windows Server 2016 instal…
How to record audio from input sources to your PC – connected devices, connected preamp to record vinyl discs, streaming media, that play through your audio card: Vista, Windows 7, Windows 8, Windows 8.1 and Windows 10 – both 32 bit & 64.
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
Windows 8 came with a dramatically different user interface known as Metro. Notably missing from that interface was a Start button and Start Menu. Microsoft responded to negative user feedback of the Metro interface, bringing back the Start button a…

948 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

20 Experts available now in Live!

Get 1:1 Help Now