#Mouse coordinates code#
#Mouse coordinates windows#

Microsoft provides examples of Visual Basic for Applications procedures for illustration only, without warranty either expressed or implied, including, but not limited to the implied warranties of merchantability and/or fitness for a particular purpose. The SetCursorPos function can be used in a looping structure to move the cursor across the screen. You can also use another function SetCursorPos to set the cursor position.

#Mouse coordinates windows#

However, you can use the Declare statement in a Microsoft Excel Visual Basic for Applications macro to call a Microsoft Windows function to access the current position. Microsoft Excel does not have the built-in functionality to get or set the cursor position. The current position can be obtained by using the GetCursorPos function in USER32.DLL. This message box shows the coordinates relative to the form's top-left edge.You can make a Windows API (application programming interface) call to a Microsoft Windows DLL (dynamic-link Library) to get and set the current cursor position.

#Mouse coordinates code#

Press 'Enter.' The message box closes, the code continues to run and displays a second message box. Click inside the form and a message box shows the horizontal and vertical coordinates of the point you clicked relative to the panel's top-left edge.

The form opens and displays the form and the panel it contains. The message box displays the horizontal and vertical coordinates. This statement obtains the current mouse position relative to the form instead of the panel. The first line differs, as shown below:Ĭoordinates = Me.PointToClient(MousePosition) This code is almost identical to the last four statements shown in the previous step. The final statement displays a message box that shows those two values when you click the panel.Īdd the following code below the code listed in the previous step:Ĭoordinates = Me.PointToClient(MousePosition) xCoordinate = coordinates.X 圜oordinate = coordinates.Y MessageBox.Show(xCoordinate.ToString() + ' - ' + 圜oordinate.ToString()) The xCoordinate variable contains the horizontal position and the 圜oordinate variable holds the vertical position. Replace 'Panel1' with the name of your panel. The first statement creates a new point variable named 'coordinates.' The PointToClient method - shown on line four - obtains the current mouse position relative to the panel's top-left edge. MessageBox.Show(xCoordinate.ToString() + ' - ' + 圜oordinate.ToString()) Paste the following code into that method:ĭim coordinates As Point Dim xCoordinate As Int16 Dim 圜oordinate As Int16Ĭoordinates = Panel1.PointToClient(MousePosition) xCoordinate = coordinates.X 圜oordinate = coordinates.Y The code window opens and displays the panel's Click method. Visual Studio displays the form in the Design window.ĭrag a Panel control from the Toolbox onto the form and press 'F4' to display the Properties window.Ĭlick the 'Events' button at the top of that window and double-click the 'Click' event button. Double-click that project's start-up form.