MapWinGIS:AxMap ShowToolTip

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

ShowToolTip

Displays a tootip under the cursor.
See also SendMouseMove


VB.NET Usage

Sub ShowToolTip(Text As String, Milliseconds As Integer)

            Parameters

Text The message to display in the tooltip.
Milliseconds The length of time to display the tooltip message measured in milliseconds.

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
Sub ShowToolTip(Text As String, Milliseconds As Long)
            Parameters

Text The message to display in the tooltip.
Milliseconds The length of time to display the tooltip message measured in milliseconds.

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)
        '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_ShowToolTip"

This page has been accessed 2,066 times. This page was last modified on 16 June 2010, at 11:22.