Sergiy

I tested your suggestion, it works great!
Thank you,

David

David,

thanks for keeping me informed.

Not sure if "Can you bring up the Window for routing preference" means "More Options" from MP2002 "Route" menu, but if that what you want, then use

objMap.SendCommand MapPointMenu.mnuRoute.cmdRouteOptions

and you'll get it.

Sergiy.

Hi,
im developing an application with the mapPoint Control, in Visual Basic.Net. Im' trying to learn anything i can find about the MapPoint. Please can you say me where find information about undocumented features like the one you used?

Thankyou in Advance

Achille

Originally Posted by baal_2000

Hi,

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

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

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

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

Thank you for being curious,

Sergiy Pavlov

Achille,

Unfortunately, no secrert sources are known to me, except this very forum :)

Let us know if you find one!

Good luck,
Sergiy

Sergiy,

can you add the function to bring up the open file window, i.e. under the menu File -> Open?

I need the open file window to open a map file in *.est, *.ptt, *.sst etc.

Or there are an alternative way to open these files saved by Street & Trips?

Any suggestions are appreciated very much.

David

David:

Not every command could be activated, by now.
I am keeping trying....

Sergiy

I get "Compile error: variable not defined" until I comment out these 3 variables.

Thanks for this great extension to the Map Point ActiveX control.

Thanks Bob,

It might be stuff left from the project that I was actually cutting the example from.

I am in process of updating it, will let you know when the update is ready to download.

Sergiy

I will greatly appreciate that.

In order to get the extensions to work with an Access form (in fact one that not only has the MapPoint Control, but also a sub-form placed on it), I had to modify the "FindChildWindow" procedure to search through each child window's children:

Code:

Public Function FindChildWindow(ByVal szClass As String, _
                                ByVal szTitle As String, _
                                Optional ByVal bExactMatch As Boolean = True) As TWindow

    Dim hWndC As Long
    Dim TWin As TWindow, TWinGrandChild As TWindow, bFoundGrandChild As Boolean
    Set TWin = New TWindow
    Set TWinGrandChild = New TWindow
    
    If bExactMatch Then
        TWin.hWnd = FindWindowEx(mvarhWnd, 0, szClass, szTitle)
    Else
        TWin.hWnd = GetWindow(mvarhWnd, GW_CHILD)
        Do While TWin.Valid
            If vbNullString = szTitle Then
                If InStr&#40;1, TWin.ClassName, szClass&#41; <> 0 Then
                    Exit Do
                End If
            Else
                If InStr&#40;1, TWin.Caption, szTitle&#41; <> 0 Then
                    Exit Do
                End If
            End If
            
            TWinGrandChild.hWnd = GetWindow&#40;TWin.hWnd, GW_CHILD&#41;
            Do While TWinGrandChild.Valid
              If vbNullString = szTitle Then
                  If InStr&#40;1, TWinGrandChild.ClassName, szClass&#41; <> 0 Then
                      bFoundGrandChild = True
                      Exit Do
                  End If
              Else
                  If InStr&#40;1, TWinGrandChild.Caption, szTitle&#41; <> 0 Then
                      bFoundGrandChild = True
                      Exit Do
                  End If
              End If
              TWinGrandChild.hWnd = GetWindow&#40;TWinGrandChild.hWnd, GW_HWNDNEXT&#41;
            Loop
            If bFoundGrandChild Then
              Exit Do
            End If
            TWin.hWnd = GetWindow&#40;TWin.hWnd, GW_HWNDNEXT&#41;
        Loop
    End If

    If Not TWin.Valid Then
        Set TWin = Nothing
    End If
    
    If bFoundGrandChild Then
      Set FindChildWindow = TWinGrandChild
    Else
      Set FindChildWindow = TWin
    End If
      
End Function

To Audience:

Newer version of the ActiveX control extension is under preparation.
It enables few more MapPoint commands: Save_As_Web_Page,
Page_Setup, etc. Download the compiled executable file to find them all,
as well as to help me check if everything works smoothly:

http://www3.sympatico.ca/spavlov/maplepoint.zip

The executable should work on any Windows system with MapPoint2002
and VB6 runtime pre-installed. NorthAmerica runs MaplePoint_NA.exe,
Europe - MaplePoint_EUR.exe

All the application's menu commands are implemented through WinAPI
calls, even those accessible via existing COM interface: i am testing the
technique itself, not the particular set of commands.

Thanks,
Sergiy