Popular Posts

Thursday, March 5, 2009

MouseMove, MouseDown and MouseUp Events

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 commands 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.

No comments:

Post a Comment