I have a series of pickup/drop off address pairs. I make a pushpin for pickup and one for dropoff, and draw a line between them.

I have written a mousedown even that is able to detect if a pushpin is clicked, but I don't seem able to see if the line between them has been clicked on. What I want to be able to do here is process the some code if they click on either pushpin OR the line connecting them. TIA.


Dim oMap As MapPointCtl.Map
Dim oResults As MapPointCtl.FindResults
Dim oResult As Object

On Error Resume Next
Set oMap = Form1.MappointControl1.ActiveMap
Set oResults = oMap.ObjectsFromPoint(X, Y)
For Each oResult In oResults
if Left(oResult.Name, 2) = "PU" or _
Left(oResult.Name, 2) = "DO" Then
<code here to process the Pickup or Dropoff>
Next

Put the getItemType Function in a Module

In a CommandButton you could call the function like this: (with an item on the map selected!)

Code:

Dim objmap As MapPointCtl.Map
Set objmap = MappointControl1.ActiveMap
MsgBox GetItemType(objmap.Selection)

from within the SelectionChange event:

Code:

MsgBox GetItemType(pNewSelection)

Code:

Function GetItemType(ByVal iSelection As Object)

On Error GoTo error:
 
If TypeOf iSelection Is Pushpin Then
GetItemType = "Pushpin"
Exit Function
End If
 
If TypeOf iSelection Is Location Then
Set objLoc = iSelection
    Select Case objLoc.Type
        Case "-1"
            GetItemType = "Road, Street Address, or Other"
        Case "8"
            GetItemType = "City"
        Case "17"
            GetItemType = "Region2"
        Case "18"
            GetItemType = "Region1"
        Case "19"
            GetItemType = "Country"
        Case Else
            GetItemType = "Location Type: " & objLoc.Type
    End Select

'There are more of these but the most common is US are here
Exit Function
End If
 
 
If TypeOf iSelection Is Waypoint Then
Dim objWayPoint As MapPointCtl.Waypoint
Set objWayPoint = iSelection

Select Case objWayPoint.Type
    Case "1"
        GetItemType = "Waypoint type: geoWaypointStart (Start of Route)"
    Case "2"
        GetItemType = "Waypoint type: geoWaypointStop (Intermediate stop)"
    Case "3"
        GetItemType = "Waypoint type: geoWaypointEnd (End of Route)"
    End Select
Exit Function
End If

If TypeOf iSelection Is Route Then
GetItemType = "Route"
Exit Function
End If

Dim obj1 As MapPointCtl.Shape
Set obj1 = iSelection
 
Select Case obj1.Type
    Case Is = "1"
        Select Case obj1.AutoShapeType
        Case "1"
            GetItemType = "Rectangle"
        Case "9"
            GetItemType = "Oval"
        Case "1009"
            GetItemType = "Circle based on a radius"
        End Select
        
    Case Is = "5"
        GetItemType = "geoFreeform"
    Case Is = "9"
        GetItemType = "geoLine"
    Case Is = "17"
        GetItemType = "geoTextBox"
    Case Else
        GetItemType = "Can Not Determine Type of Shape"
End Select



Exit Function
error:
GetItemType = "Can Not Determine Type of Object"


End Function