property Control.Object as Object
Gets the object.

TypeDescription
Object An Object created with the Create method.

Use the Object property to access to control's properties and methods. The type of the created object depends on ControlID property. The Object property gets nothing if no object was created. Use the Create method to create the inside ActiveX control.

The following VB sample adds the Exontrol.ChartView component:

With ExMenu1.Items
    With .Add(" ActiveX ", EXMENULibCtl.ItemTypeEnum.SubControl, 1234).SubControl
        .Width = 256
        .Height = 256
        .ControlID = "Exontrol.ChartView"
        .Create
        With .Object
            .BeginUpdate
            .BackColor = RGB(255, 255, 255)
            .Appearance = 2
            .HasButtons = 3
            .ButtonsAlign = 0
            .PenWidthLink = 3
            With .Root
                .Caption = "Root
Some information here.
Line 1:1
Line 2:2" .Image = 1 .AddAssistant ("Assistant node") End With With .Nodes With .Add("Item 1", , "Key1") .HasButton = False .LinkTo = "Key2" End With .Add "SubItem 1", "Key1" With .Add("Sub Item 2", , "Key2") Dim s As String s = "gBHJJGHA5MIgAEIe4AAAFhwQiAbCAbigbEsWGAlGA7Eo7HcbIowIpFHZQkZQKA7IsplErlBbLZFmEzLZlMpQmxbOE2mxwn06nZ7n0+PdFMtFOCFQp7pR7SFKQtPSFPTdTTdVq9ZTalralr1fWClWFjsi7s1nYtmYtrtjQt1vbdubdzujlublvF5eDleF9eD7v77fYBwmFw2HxGJxWLxmNx2PyGRyWTymVy2XzGZzWbzmdz2f0Gh0WjzsMAAhfIEAMMf4AFmmhOxIAI1r/BIcJBwEABAQHBQ2FDIOBgAIGB4YODAULCQiIB4cGxoXDQcJERITFBSVBYaICAyGQIQFhsbDAIIERYOCYEGCkaCiYoLDAyNCoEDxMKDAgG1YMZgQFGYpkE0F4vGITAYjGIpFAkEQhEgLBYhmYgDAWBhCBsFh8HgQJCASCYaFYcjqCGBAIBgKhCCwZB6kAAgFgkOBQAQYIAjWABDAqKxYDQcJxEKBgMCMJI0BAeBXiCRAIBGJA+A4RJAlIJoMCWM5sFwQIhkOBwKAsdw3AqFBaBiapOjqQI3A8ZpYHWK4ExgWAWG2YIBnSP4CAgIBGAwQQjAaTgXh8TAmlYDBigMAgtAyXQyiASJzmqA4CEEf5VlAIRim8XwiiPDRzmsQUKhQLAsEqEBJhCAxSBwLZQH+EAIlEYZDAWboNj4AAIiEAhElYAhfnuYoclGAxHAqD4XGAE4EECAkPhAGojmkPgZGoIAsgcSpynACgEhEDBYEyAY" s = s + "fFSEBhikGxSDKbgngIBgoCAAQ7F6IxoACDRCDwAIwg8SxsAqAYHAQWggAGDgaGAKxEgETIzECOoxkqeoAgUFwiHgbQggKHhwBGAYJHIU4AgOXRahuQQFBQcgr4SAjXgiAYLCoLAIkGERUBgIQxA+QoyEmRwGnqfBgAMHBSCADwDg0Jh4CAAIBgAGGKBCDoqikBYIAochrAGFRaCgAQEA2JgQA0IJmA6ApugYFoEBMaYAgmZh8GCBYSDoUBPjMAoansTAGBcVA4AEPINAQOAAEaDREAIYQCgWFATmgO5Hl0GAvCeCweEAYAugoNBgE0BYOiQcAUiaPpij8EBBjINTUi4IIHA4SwMAUEYSNUAxvm6Eg1j6GxwDBEoLDoI4oFcfxOggUA5j4boaBWBpJhKXABD8ZUuACBITkgGhpDmJRmnUYRahechQAGKoSHAHIuiGCZGASYYmhgagTk8OIQjcIBvCqHsNwdRAABAaOAKAwwyAtE4LAboqVnOmDSAoEANhBBVAeDABQ4wrACAIHASAwxXgFAIAAHZAQ" .Picture = s .Expanded = False .ArrangeSiblingNodesAs = 1 End With .Add "SubItem 1", "Key2" .Add "SubItem 2", "Key2" End With .EndUpdate End With End With End With ExMenu1.Refresh

The following C++ sample adds the Exontrol.ChartView component:

#include "Item.h"
#include "Menu.h"
#include "Control.h"
#import 
	
CItem item = m_menu.GetItems().Add( " ActiveX ", COleVariant( (long)3 /*SubControl*/ ), COleVariant( (long)1234 ) );
CControl control = item.GetSubControl();
control.SetWidth( 256 );
control.SetHeight( 256 );
control.SetControlID( "Exontrol.ChartView" );
control.Create();
EXORGCHARTLib::IChartViewPtr spChart( control.GetObject() );
if ( spChart != NULL )
{
	spChart->BeginUpdate();
    spChart->BackColor = RGB(255, 255, 255);
	spChart->Appearance = EXORGCHARTLib::Sunken;
	spChart->HasButtons = EXORGCHARTLib::exWPlus;
	spChart->ButtonsAlign = EXORGCHARTLib::UpperLeft;
	spChart->PenWidthLink = 3;
	EXORGCHARTLib::INodePtr spRoot = spChart->Root;
    spRoot->Caption = "Root
Some information here.
Line 1:1
Line 2:2"; spRoot->Image = 1; spRoot->AddAssistant ("Assistant node", vtMissing, vtMissing); EXORGCHARTLib::INodesPtr spNodes = spChart->Nodes; EXORGCHARTLib::INodePtr spNode1 = spNodes->Add("Item 1", vtMissing , "Key1", vtMissing, vtMissing); spNode1->HasButton = false; spNode1->LinkTo = "Key2"; spNodes->Add("SubItem 1", "Key1", vtMissing, vtMissing, vtMissing ); EXORGCHARTLib::INodePtr spNode2 = spNodes->Add("Sub Item 2", vtMissing, "Key2", vtMissing, vtMissing ); CString s( "gBHJJGHA5MIgAEIe4AAAFhwQiAbCAbigbEsWGAlGA7Eo7HcbIowIpFHZQkZQKA7IsplErlBbLZFmEzLZlMpQmxbOE2mxwn06nZ7n0+PdFMtFOCFQp7pR7SFKQtPSFPTdTTdVq9ZTalralr1fWClWFjsi7s1nYtmYtrtjQt1vbdubdzujlublvF5eDleF9eD7v77fYBwmFw2HxGJxWLxmNx2PyGRyWTymVy2XzGZzWbzmdz2f0Gh0WjzsMAAhfIEAMMf4AFmmhOxIAI1r/BIcJBwEABAQHBQ2FDIOBgAIGB4YODAULCQiIB4cGxoXDQcJERITFBSVBYaICAyGQIQFhsbDAIIERYOCYEGCkaCiYoLDAyNCoEDxMKDAgG1YMZgQFGYpkE0F4vGITAYjGIpFAkEQhEgLBYhmYgDAWBhCBsFh8HgQJCASCYaFYcjqCGBAIBgKhCCwZB6kAAgFgkOBQAQYIAjWABDAqKxYDQcJxEKBgMCMJI0BAeBXiCRAIBGJA+A4RJAlIJoMCWM5sFwQIhkOBwKAsdw3AqFBaBiapOjqQI3A8ZpYHWK4ExgWAWG2YIBnSP4CAgIBGAwQQjAaTgXh8TAmlYDBigMAgtAyXQyiASJzmqA4CEEf5VlAIRim8XwiiPDRzmsQUKhQLAsEqEBJhCAxSBwLZQH+EAIlEYZDAWboNj4AAIiEAhElYAhfnuYoclGAxHAqD4XGAE4EECAkPhAGojmkPgZGoIAsgcSpynACgEhEDBYEyAY" ); s = s + "fFSEBhikGxSDKbgngIBgoCAAQ7F6IxoACDRCDwAIwg8SxsAqAYHAQWggAGDgaGAKxEgETIzECOoxkqeoAgUFwiHgbQggKHhwBGAYJHIU4AgOXRahuQQFBQcgr4SAjXgiAYLCoLAIkGERUBgIQxA+QoyEmRwGnqfBgAMHBSCADwDg0Jh4CAAIBgAGGKBCDoqikBYIAochrAGFRaCgAQEA2JgQA0IJmA6ApugYFoEBMaYAgmZh8GCBYSDoUBPjMAoansTAGBcVA4AEPINAQOAAEaDREAIYQCgWFATmgO5Hl0GAvCeCweEAYAugoNBgE0BYOiQcAUiaPpij8EBBjINTUi4IIHA4SwMAUEYSNUAxvm6Eg1j6GxwDBEoLDoI4oFcfxOggUA5j4boaBWBpJhKXABD8ZUuACBITkgGhpDmJRmnUYRahechQAGKoSHAHIuiGCZGASYYmhgagTk8OIQjcIBvCqHsNwdRAABAaOAKAwwyAtE4LAboqVnOmDSAoEANhBBVAeDABQ4wrACAIHASAwxXgFAIAAHZAQ"; spNode2->put_Picture( COleVariant( s ) ); spNode2->Expanded = false; spNode2->ArrangeSiblingNodesAs = EXORGCHARTLib::exHorizontally; spNodes->Add("SubItem 1", "Key2", vtMissing, vtMissing, vtMissing ); spNodes->Add("SubItem 2", "Key2", vtMissing, vtMissing, vtMissing ); spChart->EndUpdate(); } m_menu.Refresh();

The C++ sample requires calling the #import <exorgchart.dll> to import definitions for the Exontrol.ChartView component. It generates the EXORGCHARTLib namespace where you can find all objects of the ExOrgChart component.

The following VB.NET sample adds the Exontrol.ChartView component:

With AxExMenu1.Items
    With .Add(" ActiveX ", EXMENULib.ItemTypeEnum.SubControl, 1234).SubControl
        .Width = 256
        .Height = 256
        .ControlID = "Exontrol.ChartView"
        .Create()
        With .Object
            .BeginUpdate()
            .BackColor = RGB(255, 255, 255)
            .Appearance = 2
            .HasButtons = 3
            .ButtonsAlign = 0
            .PenWidthLink = 3
            With .Root
                .Caption = "Root
Some information here.
Line 1:1
Line 2:2" .Image = 1 .AddAssistant("Assistant node") End With With .Nodes With .Add("Item 1", , "Key1") .HasButton = False .LinkTo = "Key2" End With .Add("SubItem 1", "Key1") With .Add("Sub Item 2", , "Key2") Dim s As String s = "gBHJJGHA5MIgAEIe4AAAFhwQiAbCAbigbEsWGAlGA7Eo7HcbIowIpFHZQkZQKA7IsplErlBbLZFmEzLZlMpQmxbOE2mxwn06nZ7n0+PdFMtFOCFQp7pR7SFKQtPSFPTdTTdVq9ZTalralr1fWClWFjsi7s1nYtmYtrtjQt1vbdubdzujlublvF5eDleF9eD7v77fYBwmFw2HxGJxWLxmNx2PyGRyWTymVy2XzGZzWbzmdz2f0Gh0WjzsMAAhfIEAMMf4AFmmhOxIAI1r/BIcJBwEABAQHBQ2FDIOBgAIGB4YODAULCQiIB4cGxoXDQcJERITFBSVBYaICAyGQIQFhsbDAIIERYOCYEGCkaCiYoLDAyNCoEDxMKDAgG1YMZgQFGYpkE0F4vGITAYjGIpFAkEQhEgLBYhmYgDAWBhCBsFh8HgQJCASCYaFYcjqCGBAIBgKhCCwZB6kAAgFgkOBQAQYIAjWABDAqKxYDQcJxEKBgMCMJI0BAeBXiCRAIBGJA+A4RJAlIJoMCWM5sFwQIhkOBwKAsdw3AqFBaBiapOjqQI3A8ZpYHWK4ExgWAWG2YIBnSP4CAgIBGAwQQjAaTgXh8TAmlYDBigMAgtAyXQyiASJzmqA4CEEf5VlAIRim8XwiiPDRzmsQUKhQLAsEqEBJhCAxSBwLZQH+EAIlEYZDAWboNj4AAIiEAhElYAhfnuYoclGAxHAqD4XGAE4EECAkPhAGojmkPgZGoIAsgcSpynACgEhEDBYEyAY" s = s + "fFSEBhikGxSDKbgngIBgoCAAQ7F6IxoACDRCDwAIwg8SxsAqAYHAQWggAGDgaGAKxEgETIzECOoxkqeoAgUFwiHgbQggKHhwBGAYJHIU4AgOXRahuQQFBQcgr4SAjXgiAYLCoLAIkGERUBgIQxA+QoyEmRwGnqfBgAMHBSCADwDg0Jh4CAAIBgAGGKBCDoqikBYIAochrAGFRaCgAQEA2JgQA0IJmA6ApugYFoEBMaYAgmZh8GCBYSDoUBPjMAoansTAGBcVA4AEPINAQOAAEaDREAIYQCgWFATmgO5Hl0GAvCeCweEAYAugoNBgE0BYOiQcAUiaPpij8EBBjINTUi4IIHA4SwMAUEYSNUAxvm6Eg1j6GxwDBEoLDoI4oFcfxOggUA5j4boaBWBpJhKXABD8ZUuACBITkgGhpDmJRmnUYRahechQAGKoSHAHIuiGCZGASYYmhgagTk8OIQjcIBvCqHsNwdRAABAaOAKAwwyAtE4LAboqVnOmDSAoEANhBBVAeDABQ4wrACAIHASAwxXgFAIAAHZAQ" .Picture = s .Expanded = False .ArrangeSiblingNodesAs = 1 End With .Add("SubItem 1", "Key2") .Add("SubItem 2", "Key2") End With .EndUpdate() End With End With End With AxExMenu1.CtlRefresh()

The following C# sample adds the Exontrol.ChartView component:

EXMENULib.Menu items = axExMenu1.Items;
EXMENULib.Control control = items.Add(" ActiveX ", EXMENULib.ItemTypeEnum.SubControl, 1234).SubControl;
control.Width = 256;
control.Height = 256;
control.ControlID = "Exontrol.ChartView";
control.Create();
EXORGCHARTLib.ChartView chart = control.Object as EXORGCHARTLib.ChartView;
if (chart != null)
{
	chart.BeginUpdate();
	chart.BackColor = ToUInt32(Color.White);
	chart.Appearance = EXORGCHARTLib.AppearanceEnum.Sunken;
	chart.HasButtons = EXORGCHARTLib.ExpandButtonEnum.exWPlus;
	chart.ButtonsAlign = EXORGCHARTLib.PictureDisplayEnum.UpperLeft;
	chart.PenWidthLink = 3;
	EXORGCHARTLib.Node node = chart.Root;
    node.Caption = "Root
Some information here.
Line 1:1
Line 2:2"; node.Image = 1; node.AddAssistant ("Assistant node", null, null); EXORGCHARTLib.Nodes nodes = chart.Nodes; EXORGCHARTLib.Node node1 = nodes.Add("Item 1", null, "Key1", null, null); node1.HasButton = false; node1.LinkTo = "Key2"; nodes.Add("SubItem 1", "Key1", "Key3", null, null); EXORGCHARTLib.Node node2 = nodes.Add("Sub Item 2", null, "Key2", null, null); String s = "gBHJJGHA5MIgAEIe4AAAFhwQiAbCAbigbEsWGAlGA7Eo7HcbIowIpFHZQkZQKA7IsplErlBbLZFmEzLZlMpQmxbOE2mxwn06nZ7n0+PdFMtFOCFQp7pR7SFKQtPSFPTdTTdVq9ZTalralr1fWClWFjsi7s1nYtmYtrtjQt1vbdubdzujlublvF5eDleF9eD7v77fYBwmFw2HxGJxWLxmNx2PyGRyWTymVy2XzGZzWbzmdz2f0Gh0WjzsMAAhfIEAMMf4AFmmhOxIAI1r/BIcJBwEABAQHBQ2FDIOBgAIGB4YODAULCQiIB4cGxoXDQcJERITFBSVBYaICAyGQIQFhsbDAIIERYOCYEGCkaCiYoLDAyNCoEDxMKDAgG1YMZgQFGYpkE0F4vGITAYjGIpFAkEQhEgLBYhmYgDAWBhCBsFh8HgQJCASCYaFYcjqCGBAIBgKhCCwZB6kAAgFgkOBQAQYIAjWABDAqKxYDQcJxEKBgMCMJI0BAeBXiCRAIBGJA+A4RJAlIJoMCWM5sFwQIhkOBwKAsdw3AqFBaBiapOjqQI3A8ZpYHWK4ExgWAWG2YIBnSP4CAgIBGAwQQjAaTgXh8TAmlYDBigMAgtAyXQyiASJzmqA4CEEf5VlAIRim8XwiiPDRzmsQUKhQLAsEqEBJhCAxSBwLZQH+EAIlEYZDAWboNj4AAIiEAhElYAhfnuYoclGAxHAqD4XGAE4EECAkPhAGojmkPgZGoIAsgcSpynACgEhEDBYEyAY"; s = s + "fFSEBhikGxSDKbgngIBgoCAAQ7F6IxoACDRCDwAIwg8SxsAqAYHAQWggAGDgaGAKxEgETIzECOoxkqeoAgUFwiHgbQggKHhwBGAYJHIU4AgOXRahuQQFBQcgr4SAjXgiAYLCoLAIkGERUBgIQxA+QoyEmRwGnqfBgAMHBSCADwDg0Jh4CAAIBgAGGKBCDoqikBYIAochrAGFRaCgAQEA2JgQA0IJmA6ApugYFoEBMaYAgmZh8GCBYSDoUBPjMAoansTAGBcVA4AEPINAQOAAEaDREAIYQCgWFATmgO5Hl0GAvCeCweEAYAugoNBgE0BYOiQcAUiaPpij8EBBjINTUi4IIHA4SwMAUEYSNUAxvm6Eg1j6GxwDBEoLDoI4oFcfxOggUA5j4boaBWBpJhKXABD8ZUuACBITkgGhpDmJRmnUYRahechQAGKoSHAHIuiGCZGASYYmhgagTk8OIQjcIBvCqHsNwdRAABAaOAKAwwyAtE4LAboqVnOmDSAoEANhBBVAeDABQ4wrACAIHASAwxXgFAIAAHZAQ"; node2.Picture = s; node2.Expanded = false; node2.ArrangeSiblingNodesAs = EXORGCHARTLib.ArrangeSiblingEnum.exHorizontally; nodes.Add("SubItem 1", "Key2", "Key4", null, null); nodes.Add("SubItem 2", "Key2", "Key5", null, null); chart.EndUpdate(); } axExMenu1.CtlRefresh();

The C# sample requires a new reference to the Exontrol's ExOrgChart component. Select the Project\Add Reference... and Select COM\ExOrgChart 1.0 Control Library. Once that the component is referred, the EXORGCHARTLib namespace is created, where we can find all objects and definitions for the component being inserted.

The ToUInt32 function converts a Color expression to OLE_COLOR:

private UInt32 ToUInt32(Color c)
{
	long i;
	i = c.R;
	i = i + 256 * c.G;
	i = i + 256 * 256 * c.B;
	return Convert.ToUInt32(i);
}

The following VFP sample adds the Exontrol.ChartView component:

With thisform.ExMenu1.Items
    With .Add(" ActiveX ", 3, 1234).SubControl && EXMENULibCtl.ItemTypeEnum.SubControl
        .Width = 256
        .Height = 256
        .ControlID = "Exontrol.ChartView"
        .Create
        With .Object
            .BeginUpdate
            .BackColor = RGB(255, 255, 255)
            .Appearance = 2
            .HasButtons = 3
            .ButtonsAlign = 0
            .PenWidthLink = 3
            With .Root
                .Caption = "Root
Some information here.
Line 1:1
Line 2:2" .Image = 1 .AddAssistant ("Assistant node") EndWith With .Nodes With .Add("Item 1", , "Key1") .HasButton = .f. .LinkTo = "Key2" EndWith .Add("SubItem 1", "Key1") With .Add("Sub Item 2", , "Key2") local s s = "gBHJJGHA5MIgAEIe4AAAFhwQiAbCAbigbEsWGAlGA7Eo7HcbIowIpFHZQkZQKA7IsplErlBbLZFmEzLZlMpQmxbOE2mxwn06nZ7n0+PdFMtFOCFQp7pR7SFKQtPSFPTdTTdVq9ZTalralr1fWClWFjsi7s1nYtmYtrtjQt1vbdubdzujlublvF5eDleF9eD7v77fYBwm" s = s + "Fw2HxGJxWLxmNx2PyGRyWTymVy2XzGZzWbzmdz2f0Gh0WjzsMAAhfIEAMMf4AFmmhOxIAI1r/BIcJBwEABAQHBQ2FDIOBgAIGB4YODAULCQiIB4cGxoXDQcJERITFBSVBYaICAyGQIQFhsbDAIIERYOCYEGCkaCiYoLDAyNCoEDxMKDAgG1YMZgQFGYpkE0F4vGITAYj" s = s + "GIpFAkEQhEgLBYhmYgDAWBhCBsFh8HgQJCASCYaFYcjqCGBAIBgKhCCwZB6kAAgFgkOBQAQYIAjWABDAqKxYDQcJxEKBgMCMJI0BAeBXiCRAIBGJA+A4RJAlIJoMCWM5sFwQIhkOBwKAsdw3AqFBaBiapOjqQI3A8ZpYHWK4ExgWAWG2YIBnSP4CAgIBGAwQQjAaTgXh" s = s + "8TAmlYDBigMAgtAyXQyiASJzmqA4CEEf5VlAIRim8XwiiPDRzmsQUKhQLAsEqEBJhCAxSBwLZQH+EAIlEYZDAWboNj4AAIiEAhElYAhfnuYoclGAxHAqD4XGAE4EECAkPhAGojmkPgZGoIAsgcSpynACgEhEDBYEyAYfFSEBhikGxSDKbgngIBgoCAAQ7F6IxoACDRCD" s = s + "wAIwg8SxsAqAYHAQWggAGDgaGAKxEgETIzECOoxkqeoAgUFwiHgbQggKHhwBGAYJHIU4AgOXRahuQQFBQcgr4SAjXgiAYLCoLAIkGERUBgIQxA+QoyEmRwGnqfBgAMHBSCADwDg0Jh4CAAIBgAGGKBCDoqikBYIAochrAGFRaCgAQEA2JgQA0IJmA6ApugYFoEBMaYAg" s = s + "mZh8GCBYSDoUBPjMAoansTAGBcVA4AEPINAQOAAEaDREAIYQCgWFATmgO5Hl0GAvCeCweEAYAugoNBgE0BYOiQcAUiaPpij8EBBjINTUi4IIHA4SwMAUEYSNUAxvm6Eg1j6GxwDBEoLDoI4oFcfxOggUA5j4boaBWBpJhKXABD8ZUuACBITkgGhpDmJRmnUYRahechQA" s = s + "GKoSHAHIuiGCZGASYYmhgagTk8OIQjcIBvCqHsNwdRAABAaOAKAwwyAtE4LAboqVnOmDSAoEANhBBVAeDABQ4wrACAIHASAwxXgFAIAAHZAQ" .Picture = s .Expanded = .f. .ArrangeSiblingNodesAs = 1 EndWith .Add("SubItem 1", "Key2") .Add("SubItem 2", "Key2") EndWith .EndUpdate EndWith EndWith EndWith thisform.ExMenu1.Object.Refresh