MapForums

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

MsgBox GetItemType(pNewSelection)

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