Just a reminder to everyone. MS documentation clearly states that in VB you can use the OLE object or the Active X control but not both. I.e., if you place a MapPointCtl object on a form and also instantiate a New MapPoint OLE object, you will get unpredictable results.

Thanks for reminder,

you can be sure no MapPoint OLE object is instantiated together with
the ActiveX control.

I did initially poorly name a VB class as 'MapPoint' and later changed it to
'clsMapPoint' to avoid confusing similarity to MapPoint application (OLE
object) itself.

Sergiy.

In reply to Extending the MapPoint ActiveX Control Question
posted at
http://www.mp2kmag.com/mappoint/disc...pic.asp?t=4192

Nikos:

The ActiveX Control is displayed in the Internet Explorer Browser, and
you're right, it does have something to do with your problem.

My conclusion is that the cause of the problem is the way you assign
m_ParentWnd reference. To remind, m_ParentWnd.hwnd is
the MapPoint control's immediate parent window's handle: in the sample
code it is a handle of the VB frame control which contains the MapPoint.

Unfortunately, your situation is not as conventional as in the article
as you have your MapPoint embedded into some of internal windows of
the IE browser window (as a guess, it is embedded into a window with
the class name "Internet Explorer_Server"). As a general approach,
you have to find out that container window's handle and use it in the
place of m_ParentWnd.hwnd in

TWnd.hWnd = m_ParentWnd.hWnd

You can find that handle dynamically, I am sure about that
But the task is not of easy-to-do kind. You can use the the
article's approach:
get the IE window, then search for its sub-windows until
you get the container's handle. You will need to use Spy++ to
find the windows' unique identifiers (titles/class names).

What do you think?

Sergiy

Thanks to Bob Chase, a bug has been found in TWindow.Valid which shows up in Windows 98.

Where the code reads

Code:

lRet = IsWindow(mvarhWnd)
If (1 = lRet) Then
    Valid = True

it should read

Code:

lRet = IsWindow(mvarhWnd)
If &#40;0 <> lRet&#41; Then
    Valid = True

Posting the changes to MapPoint.cls file in

http://www.mp2kmag.com/mappoint/disc...pic.asp?t=4080

so that the demo project will work with MapPoint 2006.

Thanks,
Sergiy

Code:

Public Property Get hWnd() As Long
    Dim TWnd As New TWindow
    
    If m_hWnd = 0 Then
        TWnd.hWnd = hWnd_Frame
        TWnd.hWnd = TWnd.FindChildWindow("Afx:00400000:8", vbNullString).hWnd
        TWnd.hWnd = TWnd.FindChildWindow("Afx:00400000:8", vbNullString).hWnd
        TWnd.hWnd = TWnd.FindChildWindow("Afx:00400000:8", vbNullString).hWnd
        TWnd.hWnd = TWnd.FindChildWindow("Afx:00400000:8", vbNullString).hWnd
        TWnd.hWnd = TWnd.FindChildWindow("Afx:00400000:8", vbNullString).hWnd
        TWnd.hWnd = TWnd.FindChildWindow("Afx:00400000:8", vbNullString).hWnd
        TWnd.hWnd = TWnd.FindChildWindow("Afx:00400000:8", vbNullString).hWnd
        TWnd.hWnd = TWnd.FindChildWindow("AfxWnd70", vbNullString).hWnd
    
        If "Map Control" = TWnd.Caption Then
            m_hWnd = TWnd.hWnd
        End If
    End If
    hWnd = m_hWnd

End Property

Public Property Get hWnd_EXE() As Long
    
    If m_hWnd_Exe = 0 Then
        On Error Resume Next
        m_hWnd_Exe = FindTopWindow("Afx:00400000:8:00000000:00000000:05A80C17", vbNullString, False).hWnd
        Err.Clear
    End If
    
    hWnd_EXE = m_hWnd_Exe

End Property

Private Property Get hWnd_Frame() As Long
    Dim TWnd As New TWindow
    'm_ParentWnd is a VB frame specifically designated to be the container of MapPoint control
    'This makes life easier
    
    If m_hWnd_Frame = 0 Then
        TWnd.hWnd = m_ParentWnd.hWnd
        TWnd.hWnd = TWnd.FindChildWindow("ATL:", vbNullString, False).hWnd
        If Mid$(TWnd.ClassName, 9, 4) = "4320" Then
            TWnd.hWnd = TWnd.FindChildWindow("ATL:", vbNullString, False).hWnd
            If Mid$(TWnd.ClassName, 9, 4) = "40A0" Then
                m_hWnd_Frame = TWnd.FindChildWindow("AfxFrameOrView70", vbNullString).hWnd
            End If
        End If
    End If
    hWnd_Frame = m_hWnd_Frame

End Property

Private Property Get hWnd_Itinerary() As Long
    Dim TWnd As New TWindow
    
    If m_hWnd_Itinerary = 0 Then
        TWnd.hWnd = hWnd_Frame
        TWnd.hWnd = TWnd.FindChildWindow("Afx:00400000:8", vbNullString).hWnd
        TWnd.hWnd = TWnd.FindChildWindow("Afx:00400000:8", vbNullString).hWnd
        TWnd.hWnd = TWnd.FindChildWindow("Afx:00400000:8", vbNullString).hWnd
        TWnd.hWnd = TWnd.FindChildWindow("Afx:00400000:8", vbNullString).hWnd
        TWnd.hWnd = TWnd.FindChildWindow("AfxWnd70", vbNullString).hWnd
    
        If "Itinerary" = TWnd.Caption Then
            m_hWnd_Itinerary = TWnd.hWnd
        End If
    End If
    hWnd_Itinerary = m_hWnd_Itinerary

End Property

Sergiy's modifications for MapPoint 2006 worked like a charm! Thanks Serge

Is there a sample code for implemting this greats features but in native .Net Framework code, not in Visual Basic 6.0

Thanks in advanced

Hi,

Without checking it is all based on PostMessage and / or SendMessage API functions. You can simply use P/Invoke to use all win32 API functions in dotNet that are not yet implemented.

Thanks

I would like to have this project done in dotNet code. All classes necessary implemented in the Visual Basic project translate to dotNet code in a dll.

But I don´t know how start and do it easily.

Another issue, this project works with MapPoint 2006?

Thanks in advanced

Hi,

To use all the missing win32 API functions in dotNet, you have to declare them yourself. This can be done creating a singleton class where you declare them in using the right dll. I have a small class in C# for the most importand ones, but I assume the syntax is very different in VBnet.