MapForums

Hi All

In VB6 on form load of main form I have the following code

mc1.OpenMap App.Path + "\MTMap.ptm"
mc1.Units = geoMiles
mc1.Visible = True
mc1.ActiveMap.DragBehavior = 2
mc1.ActiveMap.AllowEdgePan = True
mc1.ItineraryVisible = False
Map_Resize

In vb.net I have the following

mc1.OpenMap(MTDir + "\MTMap.ptm")
mc1.Units = MapPoint.GeoUnits.geoMiles
mc1.Visible = True
mc1.ActiveMap.DragBehavior = 2
mc1.ActiveMap.AllowEdgePan = True
mc1.ItineraryVisible = False
Map_Resize()

And I get the following error on the first line - Exception of type InvalidActiveXStateException was thrown.

Any thoughts folks, I am using a the ocx on the main form

Thanks in advance

I believe you have to use NewMap for a new instance of the map object:

mc1.NewMap(MTDir + "\MTMap.ptm")

Roger

Thanks, will give that a go

Sorry to mislead but you can use OpenMap, the following actually works:

Public Class Form1
Inherits System.Windows.Forms.Form

Public objApp As AxMapPoint.AxMappointControl
Public objMap As MapPoint.Map

Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
objApp = AxMappointControl1
objMap = objApp.NewMap("C:\TestMap.ptm")
objMap = objApp.ActiveMap

If objMap Is Nothing Then
'handle errors
Exit Sub
End If

'Then do everything via objApp and objMap.
'Didn't need to set visible.

End Sub

I can't see the basic diference but it works if thats any help?

Roger

Please ignore previous posting this is what I should have said:

Sorry to mislead but you can use OpenMap, the following actually works:

Public Class Form1
Inherits System.Windows.Forms.Form

Public objApp As AxMapPoint.AxMappointControl
Public objMap As MapPoint.Map

Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)

objApp = AxMappointControl1
objMap = objApp.OpenMap("C:\TestMap.ptm")
objMap = objApp.ActiveMap

If objMap Is Nothing Then
'handle errors
Exit Sub
End If

'Then do everything via objApp and objMap.
'Didn't need to set visible.

End Sub

End Class

I can't see the basic diference but it works if thats any help?

Roger

Thanks Roger