Hi,

An example project under the link below shows a technique (using
WinAPI) to access MapPoint2002 functionality (like 'Location Sensor' or
'Measure Distance' from 'Tools' menu), which is not readily available in
the ActiveX control.

Download:
http://www3.sympatico.ca/spavlov/mappoint_extended.zip

The code is not well documented and does not pretend to be bug-free.
But, it is not too complex to understand.

Ones who are interested in the technique employed to extend the MapPoint ActiveX
functionality, read the article here: http://www.mp2kmag.com/articles.asp?ArticleID=88

I appreciate responses, fixes as well as reports about new functionality
been accessed and not present in the posted example.

Thank you,

Sergiy Pavlov

Hi ,

just downloaded the extented .zip.
Wonderful things happening here.

You did that great!

As I am new to VB and MapPoint I have some problems
integrating your code into mine:

First: With the MapPoint.cls I have name-conflict. I changed that module to mapoin and pasted the code into.

First I want to include that location sensor.
With

objMap.DragBehavior = MapPointSupport.geoDragLocationSensor

you call that function. And here's where I get an error saying no such objet existing (got a german version). Do have an idea what's the problem?


Thanks a lot

Peter

Peter:

check if you created an instance of objMap BEFORE accessing its property.
You shoould have "Set objMap = New MapPoint" (or whatever the name of the class) somewhere in the code.

Sergiy

Hi Sergiy,

I still do have the name-conflict. I changed the classmodule mappoint to mappoin, did the

Set objMap = New MapPoin

had a problem with the moPan, commented it and... the location sensor is working now!

Thanks a lot!

Peter

Hi,

I tried to port your code into my application and want to use the "print" feature. However I got "Run time error 91 -- Object variable or with block object not set" with the following code line:

Private Property Get hWnd_Frame() As Long
Dim TWnd As New TWindow

TWnd.hWnd = frmMain.hWnd
TWnd.hWnd = TWnd.FindChildWindowByClass("ATL:", False).hWnd '******Problem occured here**********
If Mid$(TWnd.ClassName, 9, 4) = "2748" Then
TWnd.hWnd = TWnd.FindChildWindowByClass("ATL:", False).hWnd
If Mid$(TWnd.ClassName, 9, 4) = "2070" Then
TWnd.hWnd = TWnd.FindChildWindowByClass("AfxFrameOrView42").hW nd
hWnd_Frame = TWnd.hWnd
End If
End If

End Property

I did set:

Set obiMap = New MapPoint
Set Map = frmMain.MappointControl.Activemap

before I call

objMap.SendCommand MapPointMenu.mnuFile.cmdPrint

Do you have any clues? Any suggestions are appreciated very much!

Thanks,

David:

What is Windows version your app runs on?
And did the error happen in the original example application?

I've recently found that on some Win98 systems TWindow.FindChildWindow method fails.

It does not happen when a piece of code
in TWindow.FindChildWindow is changed:


If Not TWin.Valid Then
Set TWin = Nothing
End If


To


If TWin.hWnd = 0 Then
Set TWin = Nothing
End If


Try it out!
Sergiy

Sergiy,

thank you very much for your quick reply.
No luck to get it work. My OS is Windows 2000.
Your original example version works fine.
The only differences is my main form (renamed as frmMain) is much more complicate than yours.

By the way, can you bring up the "More options..." screen of the route planner by using the similar method. I'd like to bring up the screen just by clicking a button, but not on the route planner screen.

Thanks again,

David

The problem is that my program will go through the code

If Not TWin.Valid Then
Set TWin = Nothing
End If

Then no object is set for TWin.

Any clues?

Thanks,

David,

I would suggest that your MapPoint control was not placed directly on your frmMain but rather on some kind of a frame window.

If the container frame name is 'Frame1', for instance, then inside 'Property Get hWnd_Frame' use that object name 'frmMain.Frame1' in place of 'frmMain'.

If it is not your case, and there is indeed an unknown problem with frmMain complexity, then resolve it by creating such a frame (specifically designated to contain MapPoint control in it). Cut and paste MapPoint on the frame and point ''Property Get hWnd_Frame' to it as discussed above.

Hope this should help,
Sergiy

Sergiy,

thank you very much for your recognization of the problem. You are right, the Mappoint is not on the form directly.

I will try it out following your instruction.

Can you bring up the Window for routing preference by using a similar way? My application wants to set the parameters at the system configuration phase.

David