Setting latitude& longitude in mappoint 2006

hegdek
12-21-2006, 10:25 PM
Hi Friends,
Is it possible to set the latitude and longitude directly to a location
object.
regards
kaushik

shaistasohail
12-21-2006, 10:49 PM
Is this what you are looking for?

Dim StartLocation As New Location
Dim StartGeoCode As New LatLong
StartGeoCode.Latitude = Request.QueryString("LAT")
StartGeoCode.Longitude = Request.QueryString("LON")
StartLocation.LatLong = StartGeoCode

hegdek
12-22-2006, 01:16 AM
Hi,
I refering to the windows mappoint 2006 application.
regards
kaushik

shaistasohail
12-23-2006, 11:41 AM
Since the post is in this forum I thought you were asking about MapPoint Web Service. Anyway try this for ActiveX


Public Sub ShowLocation(ByVal dblLatitude As Double, ByVal dblLongitude As Double)

On Error GoTo Er

Dim objLoc As MapPointCtl.Location
Dim oPushPin As MapPointCtl.Pushpin


Set objLoc = ctlMap.ActiveMap.GetLocation(dblLatitude, dblLongitude)
Set oPushPin = ctlMap.ActiveMap.AddPushPin(objLoc, DispatchLocation.SiteName)
oPushPin.Symbol = cDISPATCHLOCATIONICON

ctlMap.ActiveMap.DataSets.ZoomTo
ctlMap.ActiveMap.Altitude = 60

CleanExit:
Set objLoc = Nothing
Set oPushPin = Nothing
Exit Sub

Er:
'***Handle Error here
Resume CleanExit

End Sub

shaistasohail
12-23-2006, 11:43 AM
Oops! Forgot this declaration


Const cDISPATCHLOCATIONICON = 140

 
Web mp2kmag.com
mapforums.com