MouseMove,
MouseDown and MouseUp Events
Lets check out the
Command Button's MouseMove,
MouseDown and MouseUp events.
We will do
that like we've done before,
by inserting different Print command to
every event.
Copy the following code to your program:
Private
Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As
Single)
Print "MouseDown"
End Sub
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)
Print "MouseMove"
End Sub
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As
Single, Y As Single)
Print "MouseUp"
End Sub
Run the program.
Move the mouse over the form -
nothing is happening.
Move the mouse over the Button - The Button's MouseMove
event
is being executed every time you move the mouse over it,
therefore
you see that "MouseMove" is being
printed on the form
every time you move your mouse over the
button.
Click on one of the mouse buttons
when the mouse is over the button,
and hold the button down.
The MouseDown
event is being executed.
Release the button, and the MouseUp event is being
executed.
Lets check out these events
parameters.
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Each one of these events gets the same
parameters:
Button, Shift, X and Y.
The Shift parameter is the same as the KeyDown
event's
Shift paramater.
For example, if you'll press the Shift button while
clicking
the mouse, the Shift value will be 1.
The Button
parameter value is 1 if you've clicked
the left mouse button, and 2 if you've
clicked the
right one.
The X and Y parameters are the X and Y
coordinates of
the mouse cursor, relative to the upper left button
corner.
The coordinates of the upper left button corner are (0, 0)
The
coordinates of the Bottom Right button corner are (Button Width, Button
Height)
You can try a little example.
Put the
following line in the Command Button's MouseMove event:
Print X,
Y
This line will print the X
coordinate, and next to it
the Y coordinates (For example, the line:
Print "Hello", "World"
will print: Hello World).
[ Next ]
|
