Share via


ObjectsFromPoint method

Returns a collection of locations and Pushpins (FindResults collection) corresponding to what would be selected or what appears in the Select a Place dialog box for particular screen coordinates at the current elevation. Returns an error if the coordinates are not in the map window.

Applies to

Objects: Map

Syntax

object.ObjectsFromPoint(X, Y)

Parameters

Part

Description

object

Required. An expression that returns a Map object.

X

Required Long. The X coordinate of the desired location on the screen, in pixels.

Y

Required Long. The Y coordinate of the desired location on the screen, in pixels.

Remarks

  • The locations returned by the ObjectsFromPoint method depends on the elevation of the current map view. The closer in the map view, the more detailed the locations returned. For example, if the map view is zoomed in, the locations may be street addresses, where if it is zoomed out, the locations may be large geographic areas.

Example

  Dim WithEvents objApp As MapPoint.Application
  Dim WithEvents objMap As MapPoint.Map

  Private Sub Form_Load()
    'Set up the application
    Set objApp = CreateObject("mappoint.application")
    Set objMap = objApp.ActiveMap
    objApp.Visible = True
    objApp.UserControl = True
  End Sub

  Private Sub objMap_BeforeClick(ByVal Button As Long, ByVal Shift As Long, ByVal X As Long, ByVal Y As Long, Cancel As Boolean)
    Dim objResults As MapPoint.FindResults
    Dim objResult As Object

    'Display the name of each object where user clicks on map
    Set objResults = objMap.ObjectsFromPoint(X, Y)
    For Each objResult In objResults
      MsgBox objResult.Name
    Next
  End Sub