MapForums

Paul Larson shares an API he developed to add programmatic GPS functionality to MapPoint code projects and includes a demo to illustrate how the API works.

"With the release of MapPoint 2006 North America (MP2K6NA) earlier this year, many users have been elated with the new map content and the addition of GPS features and Driving Guidance to the product. Likewise, many developers have thus found issue with the lack of improvement to the MapPoint API, specifically in relation to these new features. Being of the latter group, I decided to roll-my-own API to add programmatic GPS functionality to my MapPoint code projects."

Read the full article --
An API to Control MapPoint 2006 GPS Features - Part I of II - MapPoint Articles - MP2K Magazine

Discuss the article in this thread below by clicking on Post Reply or use the Quick Reply button on the right.

__________________
Order MapPoint 2006 | Read Programming MapPoint in .NET | Start Using the Pushpin Tool - Free Trial Download - click here.

I've finally obtained a copy of MapPoint 2006 EUROPE, and noted a slight change needed in the code to handle a difference in this version.

For some reason, Microsoft embedded a CrLf combo in the text of the button to toggle voice prompting. So, in the module mpGPS.vb, in the New() procedure, add the following code:

'EDIT: In mappoint2006 EUROPE, there is a CrLf in the button caption for voice control:
If hwToggleVoice = 0 Then hwToggleVoice = FindWindowEx(hwChild(3), 0, vbNullString, "Turn Voice" & ControlChars.CrLf & "Off (F7)")

...immediately before the line which reads:
hwRepeatLastInstruction = FindWindowEx(hwChild(3), 0, vbNullString, "Repeat Instruction (Spacebar)")

Also, you will of course need to update the sample project (mpGPSDemo) reference for Interop.MapPoint to the correct version when using it with the European desktop product.

Best Regards,
Paul Larson

Cool thanks, Eric

__________________
Order MapPoint 2006 | Read Programming MapPoint in .NET | Start Using the Pushpin Tool - Free Trial Download - click here.

Wonderful article, thanks.

When will part II be posted.

awesome work ... i'm eagerly waiting for part II.

Here is a version I use that is in C#. This code should compile and provide the basic toggling of the GPS Pane. Enjoy

Attached Files

MapPointWin32API.zip (1.7 KB, 74 views)

Great article, have recompiled for Mappoint Europe and it works fine. Anyone any clues how to extend this to hook the modal warning window pop up when navigation is selected and OK it automatically. Its a really annoying feature of mappoint!.

Cheers Pete

Hi Enigma

I'm not envisioning distributing the code to dismiss this warning as a part of the API, simply for liability reasons. However, if you contact me directly, I'd be happy to provide a code snippet.

Best Regards,
Paul

Hi Paul

Thanks, I have sent you a PM.

Cheers Pete

Greetings!

Since I've had numerous requests for the code to automatically dismiss the "Safety Warning" dialog when calling my ToggleGuidance() method, I'm posting the code here for public use.

Simply replace the entire routine for ToggleGuidance() with the entire code below. (In module mpGPS.vb)

Note: By using this code you assume full responsibility and risk, and agree not to hold Paul Larson nor Paul Larson, LLC liable for damages.


'---BEGIN CODE---
Public Sub ToggleGuidance()
If lGPS_UseDrivingGuidance = False Then Dim myDismisser As New DismissSafetyWarning
SendMessage(hwProvideDrivingGuidance, BM_CLICK, 0, 0)
lGPS_UseDrivingGuidance = Not lGPS_UseDrivingGuidance
End Sub

Private Class DismissSafetyWarning
Private IsDismissed As Boolean = False
Public Sub New()
Dim myThread As System.Threading.Thread
myThread = New System.Threading.Thread(AddressOf DismissWarningThread)
myThread.Start()
End Sub
Private Sub DismissWarningThread()
Dim Retries As Integer
Dim hwWarning As Integer
Dim hwAgree As Integer
For Retries = 1 To 10
'wait 1/8 of a second
System.Threading.Thread.Sleep(125)
hwWarning = FindWindowEx(GetDesktopWindow, 0, vbNullString, "Safety Warning")
If hwWarning <> 0 Then
hwAgree = FindWindowEx(hwWarning, 0, "Button", "I &Agree")
If hwAgree <> 0 Then
SendMessage(hwAgree, BM_CLICK, 0, 0)
IsDismissed = True
End If
End If
Next
End Sub
End Class
'---END CODE---


Best Regards,
Paul Larson