MapWinGIS:AxMap ShowToolTip

From MapWindow GIS

ShowToolTip

Displays a tootip under the cursor.

VB.NET Usage

Sub ShowToolTip(Text As String, Milliseconds As Integer)
            Parameters

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

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