MapWinGIS:AxMap MouseMove

This is a back-up of the WIKI.
Not all links might work
We're working on a new wiki.

Main Page | Recent changes | View source | Page history | Log in / create account |

Printable version | Disclaimers | Privacy policy

MouseMove

This event is fired when the mouse is moved while the cursor is inside the map control. The map property SendMoveMouse must be set to True for this event to be fired.
See also SendMouseMove


VB.NET Usage

Event MouseMoveEvent(Sender As Object, e As AxMapWinGIS._DMapEvents_MouseMoveEvent)

            Parameters

Sender

The sender of the event.
e.button The button pressed on the mouse to create this event.
e.shift The shift/ctrl modifiers pressed during the creation of this event.
e.x The x coordinate of this event in pixel coordinates.
e.y The y coordinate of this event in pixel coordinates.

Sample Code

    Private Sub Map1_MouseMoveEvent(ByVal sender As Object, ByVal e As AxMapWinGIS._DMapEvents_MouseMoveEvent) Handles Map1.MouseMoveEvent
        Dim hndl As Integer
        Dim projX As Double, projY As Double
        Dim sf As MapWinGIS.Shapefile
        'Get handle for layer at position 0 in map
        hndl = Map1.get_LayerHandle(0)
        'Get shapefile in layer at position 0 in map
        sf = Map1.get_GetObject(hndl)
        'Convert mouse move x and y into projected map coordinates
        Map1.PixelToProj(e.x, e.y, projX, projY)
        'See if the mouse has moved over shape 0 in the shapefile
        If sf.PointInShape(0, projX, projY) Then
            'Show the tooltip for 2 seconds
            Map1.ShowToolTip("Shape 0", 2000)
        End If
    End Sub
  

VB 6 Usage

Event MouseMove(Button As Integer, Shift As Integer, x As Long, y As Long) ReturnVal
            Parameters

Button

The button pressed on the mouse to create this event.
Shift The shift/ctrl modifiers pressed during the creation of this event.
x The x coordinate of this event in pixel coordinates.
y The y coordinate of this event in pixel coordinates.

Sample Code

    Private Sub Map1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Long, ByVal y As Long)
        Dim hndl As Long
        Dim projX As Double, projY As Double
        Dim sf As MapWinGIS.Shapefile
        'Get handle for layer at position 0 in map
        hndl = Map1.LayerHandle(0)
        'Get shapefile in layer at position 0 in map
        Set sf = Map1.GetObject(hndl)
        If sf Is Nothing Then Exit Sub
        'Convert mouse move x and y into projected map coordinates
        Map1.PixelToProj x, y, projX, projY
        With sf
            'See if the mouse has moved over shape 0 in the shapefile
            If .PointInShape(0, projX, projY) Then
                'Show the tooltip for 2 seconds
                Map1.ShowToolTip "Shape 0", 2000
            End If
        End With
    End Sub

Retrieved from "http://mapwindow.org/wiki/index.php/MapWinGIS:AxMap_MouseMove"

This page has been accessed 2,625 times. This page was last modified on 9 November 2005, at 18:37.