Thread: Retrieve Lat/Lon of a ShaddedCircle
View Single Post

  #3 (permalink)  
Old 09-09-2005
rorgmanche rorgmanche is offline
Junior Member
White Belt
  
Join Date: Aug 2005
Posts: 8
Hi,

I already have test my following routine with pushpin but the result is the same. I never obtain the lat/lon of the symbols put on the map by import, but, with this routine i obtain each time the lat/lon of any point on the map

Code:
Private Sub AxMappointControl1_SelectionChange(ByVal sender As Object, ByVal e As AxMapPoint._IMappointCtrlEvents_SelectionChangeEvent) Handles AxMappointControl1.SelectionChange
        Dim oPushPin As MapPoint.Pushpin
        Dim Loc, Loc2 As MapPoint.Location
        Dim lat, lon, Altitude As Double
        Dim Type As MapPoint.GeoDataMapType

        Loc = oMap.Selection
        CalcPos(oMap, Loc, lat, lon)
        Loc2 = oMap.GetLocation(lat, lon, Altitude)
        oPushPin = oMap.AddPushpin(Loc2, "Point route")
        oPushPin.Symbol = 82

    End Sub
Something mysterious....
Reply With Quote