![]() 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.
0 Comments
Leave a Reply. |