MapForums

Like an earlier post, I need to derive the street address from the Lat/Lon coordinates on a map. However, I am strictly a VB kinda guy, and C# is just Greek to me.

MapPoint has this neat feature where you can click on a street and the street address will just pop right up. Is there no means for just programmatically utilizing this function with the MapPoint VB control? I've worn out my eyes and fingers looking for a way to do this. Since the functionality is there within MapPoint, it seems like it ought to be available.

Any help will be greatly appreciated.

I know this answer is out there, because I found it once and use it quite a bit. I wrote code that automatically displays the current address in a label as you move the mouse over the map.

Don't have time to get to it today, but if you don't get an answer, email me at chet@chetcromer.com and I'll help you out.

Chet

here is some code i use in vb5/6. as the mouse is moved around the map the Lat (lblLat), Lon (lblLon) and address (lblWhere) are displayed

Private Sub ctlMap_MouseMove(ByVal button As Long, ByVal Shift As Long, ByVal X As Long, ByVal Y As Long)
Dim objMouseLoc As mappoint.Location
Dim objMouseResults As mappoint.FindResults
Dim latlon As LatLonType
Dim index As Integer

Set objMouseLoc = objCallMap.XYToLocation(X, Y)
If Not objMouseLoc Is Nothing Then
latlon = calcpos(objCallMap, objMouseLoc)
lblLat.caption = Format(latlon.Lat)
lblLon.caption = Format(latlon.Lon)

Set objMouseLoc = Nothing
Set objMouseResults = objCallMap.ObjectsFromPoint(X, Y)
lblWhere = ""
If objMouseResults.count > 0 Then

If Not (objMouseResults.item(1).Location.StreetAddress) Is Nothing Then
lblWhere = "Mouse is at: " & objMouseResults.item(1).Location.StreetAddress.Str eet
Else
lblWhere = ""
End If

Else
lblWhere(1) = ""
End If
Set objMouseResults = Nothing
End If
Exit Sub

My 'Calcpos' routine is based on the Calcpos routine found in the articles section of this site. It returns LatLon from a mappoint location. I modified it to use a typed variable LatLon

Public Type LatLonType
Lat As Double
Lon As Double
H As Double
End Type

can you provide a link to your CalcPos variation or can you post it?

Thanks,

John