MapForums

Anonymous · #1 (**permalink**) 08-13-2003

I use this routine in my application:

Private Sub Befehl0_Click()
Dim objApp As New MapPoint.Application
Dim objFindResults As MapPoint.FindResults

objApp.Visible = False
objApp.UserControl = True

'Erstes Ergebnis der Suche ausgeben
Set objFindResults = objApp.ActiveMap.FindAddressResults("Römerstraße 12", "Düren", , , "52349", geoCountryGermany)
MsgBox "Das erste Element in der Ergebnisliste lautet: " _
+ objFindResults.Item(1).Name
objApp.Application.Quit
End Sub

But instead of the name of I would like to get back Lat/Lon. Is this possible?
Ralf

**Eric Frost** · #2 (**permalink**) 08-13-2003

It is.. see Gilles Kohl's article "A More Compact Method for Obtaining the Lat/Lon" in the articles section..

Eric

rms62 · #3 (**permalink**) 08-13-2003

I saw the article but isn´t there simpler way to get lat/lon from the FindAdressResult?
I don´t understand how I can get lat/lon from the given addresses with Gill Kohl´s routine.
Ralf

**Eric Frost** · #4 (**permalink**) 08-13-2003

There's not an easier way.. err, there are some compiled tools that use Gilles routine that you can use without programming, but using programming Gilles CalcPos is the way to go.

First create the Location or Pushpin and then use the CalcPos function to get the lat/lon. You could probably make a wrapper so it's all done in one step.

Eric

rms62 · #5 (**permalink**) 08-18-2003

Sorry but can you help me again?
I´m not able to call the function CalcPos.

Here is my routine:

Private Sub Befehl0_Click()
Dim MPApp As New MapPoint.Application
MPApp.Visible = True
MPApp.UserControl = True
Dim oMap As MapPoint.MAP, oLoc As Object, Strasse As String, Plz As String, stadt As String
Dim oPin As MapPoint.Pushpin
Dim objResults As MapPoint.FindResults
Dim strRevAddress As String
Dim lat As Double, lon As Double
Set oMap = GetObject(, "MapPoint.Application").ActiveMap
Strasse = "Römerstraße 12"
Plz = "52351"
Ort = "Düren"
Set oLoc = oMap.FindAddressResults(Strasse, Ort, , , Plz, geoCountryGermany)
Call CalcPos(oMap, oLoc.Location, lat, lon)
MsgBox oLoc.Item(1).Name & lat & " " & lon
End Sub

I allways get an error.

jwhitt4u · #6 (**permalink**) 09-12-2003

For the second argument of calcpos try using a mappoint.location object.
Define for instance the following

dim oLoc as mappoint.location

then do everything else the same and in the calcpos call just use oLoc instead of oLoc.location

hope this works

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
odd and even address	chris2	MapPoint 2006/2009 Discussion	1	05-24-2006 11:07 AM
Anyone willing to look up an address for me?	Anonymous	MapPoint 2006/2009 Discussion	11	02-07-2004 07:09 PM

MapForums

Getting Lat/Lon from a given address

Getting Lat/Lon from a given address

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)

Similar Threads