Container property
Returns the object that contains the specified embedded map. If the container does not support automation, or if the map is not embedded, this property returns "Nothing". Read-only.
Applies to
Objects: Map
Syntax
object.Container
Parameters
| Part | Description |
|---|---|
| object | Required. An expression that returns a Map object. |
Example
Option Explicit
Public myApp As MapPoint.Application
Public myMap As MapPoint.Map
Private Sub Command1_Click()
If (TypeName(myMap.Container) = "Nothing") Then
MsgBox "MapPoint is not embedded in a container."
Else
MsgBox "We're embedded in " & myMap.Container.Name
End If
End Sub
Private Sub Form_Load()
Set myApp = CreateObject("MapPoint.Application.NA")
Set myMap = myApp.ActiveMap
End Sub
To check if the Map is running in the Control
If TypeName(objMap.Container) = "MappointControl" Then
MsgBox "This is in the Control"
objControl = objMap.Container
End If