VB.NET

VB.NET RSS

How can I get Mouse Position?

Please support our VB.NET advertiser: Intel Parallel Studio Home

•

Join Date: Feb 2009

Posts: 2

Reputation: WarMacre is an unknown quantity at this point

Solved Threads: 0

WarMacre

Offline

Newbie Poster

Re: How can I get Mouse Position?

#11

Feb 21st, 2009

Better still, use:

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
dim mouseLoc as point = myControl.pointToClient(myControl.Cursor)
dim mouseLoc as point = myControl.pointToClient(myControl.Cursor)

This gets the location relative to the container Form, not the screen.

Function:

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
Private Function getMouseLoc() As Point
        getMouseLoc = Me.PointToClient(Me.Cursor.Position)
        Return getMouseLoc
End Function
 
dim mouseLoc as point = getMouseLoc()
Private Function getMouseLoc() As Point
        getMouseLoc = Me.PointToClient(Me.Cursor.Position)
        Return getMouseLoc
End Function

dim mouseLoc as point = getMouseLoc()

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
Dim mouseLocX as integer = getMouseLoc.X
 
Dim mouseLocY as integer = getMouseLoc.Y
Dim mouseLocX as integer = getMouseLoc.X

Dim mouseLocY as integer = getMouseLoc.Y

•

Join Date: Oct 2009

Posts: 1

Reputation: DOT208 is an unknown quantity at this point

Solved Threads: 0

DOT208

Offline

Newbie Poster

RE: 2010 version

#12

Oct 22nd, 2009

•

Originally Posted by Mr.Stupid

Help with Code Tags

VB.NET Syntax (Toggle Plain Text)
  Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
 
        Label1.Text = "X." & e.X & vbCrLf & "Y." & e.Y
 
    End Sub
Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove Label1.Text = "X." & e.X & vbCrLf & "Y." & e.Y End Sub

So I' a re-beginner familiar with older BASIC stuff but not a VISUAL expert. If the MouseMove stuff is gone from the 2010 version toolbox or whatever, how do you do it now? Thanks.