MouseDown event

  • Article

Occurs when a mouse button is pressed while the pointer is over the map.

Applies to

Objects:  Map, MappointControl

Syntax

object.MouseDown(Button, Shift, X, Y)

Parameters

Part Description
object An expression that evaluates to a Map or MappointControl object.
Button ByVal Long. An integer that corresponds to the state of the mouse buttons. A bit is set if the button is down. The Button argument is a bit field with bits corresponding to:
GeoMouseButtonConstants Description Value Bit
geoLeftButton Left button
1
0
geoMiddleButton Middle button
4
2
geoRightButton Right button
2
1
geoXButton1 1st X button
8
3
geoXButton2 2nd X button
16
4

Indicates the state of the mouse buttons: one, some, or all of these five bits can be set, indicating that one, some, or all of the buttons are pressed.
Shift ByVal Long. An integer that corresponds to the state of the SHIFT, CTRL, and ALT keys. A bit is set if the key is down. The Shift argument is a bit field with the least-significant bits corresponding to:
GeoShiftConstants Description Value Bit
geoAltMask ALT key
4
2
geoCtrlMask CTRL key
2
1
geoShiftMask SHIFT key
1
0

Indicates the state of these keys: some, all, or none of the bits can be set, indicating that some, all, or none of the keys are pressed. For example, if both CTRL and ALT were pressed, the value of Shift would be 6.
X ByVal Long. The X coordinate of the mouse pointer relative to the map window, in pixels.
Y ByVal Long. The Y coordinate of the mouse pointer relative to the map window, in pixels.

Remarks

Do not make this event infinitely recursive by calling itself or causing itself to be called.

Do not create a modal dialog box—including message boxes—during this event.

Example

    'This code requires that you have a list box on your form
  Dim WithEvents objApp As MapPoint.Application
  Dim WithEvents objMap As MapPoint.Map


  Private Sub Form_Load()
    'Set up the application
    Set objApp = CreateObject("mappoint.application")
    Set objMap = objApp.ActiveMap
    objApp.Visible = True
    objApp.UserControl = True
  End Sub


  Private Sub objMap_MouseDown(ByVal Button As Long, ByVal Shift As Long, ByVal X As Long, ByVal Y As Long)
    List1.AddItem "MouseDown event fired"
  End Sub


  Private Sub objMap_MouseMove(ByVal Button As Long, ByVal Shift As Long, ByVal X As Long, ByVal Y As Long)
    List1.AddItem "MouseMove event fired"
  End Sub


  Private Sub objMap_MouseUp(ByVal Button As Long, ByVal Shift As Long, ByVal X As Long, ByVal Y As Long)
    List1.AddItem "MouseUp event fired"
  End Sub