MouseDown event

Article
02/25/2011

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

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.

ByVal Long. The X coordinate of the mouse pointer relative to the map window, in pixels.

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

Share via