NETHostCtrl.BackgroundColor Property (ExNETHost)

By default, the BackgroundColor property indicates the NETHost container's background color. Use the BackgroundColor property to apply a different background color to the NETHost control. The BackgroundColor property does not change the background color of the hosting control. To change the background color of the hosting control, you need to consult the hosting control's documentation, and use it in a Template or Item property like in the following samples. Most of the controls provide a BackColor property that change the control's background color, and so that's the property it must be used to change the hosting control's background color. The BackgroundColor property changes the background color behind the hosting control.

How can I change the control's background color, as BackgroundColor seems to have no effect?

VBA (MS Access, Excell...)

With NETHost1
	.AssemblyLocation = "C:\Windows\assembly\GAC_MSIL\System.Windows.Forms\2.0.0.0__b77a5c561934e089\System.Windows.Forms.dll"
	.AssemblyName = "System.Windows.Forms.TreeView"
	With .Host
		.Template = "BackColor = RGB(240,240,240)"
		With .Item("Nodes.Add(`Root`)")
			Set var_NETHostObject = .Item("Nodes.Add(`Child 1`)")
			Set var_NETHostObject1 = .Item("Nodes.Add(`Child 2`)")
			Set var_Object = .Item("Expand()")
		End With
	End With
End With

VB6

With NETHost1
	.AssemblyLocation = "C:\Windows\assembly\GAC_MSIL\System.Windows.Forms\2.0.0.0__b77a5c561934e089\System.Windows.Forms.dll"
	.AssemblyName = "System.Windows.Forms.TreeView"
	With .Host
		.Template = "BackColor = RGB(240,240,240)"
		With .Item("Nodes.Add(`Root`)")
			Set var_NETHostObject = .Item("Nodes.Add(`Child 1`)")
			Set var_NETHostObject1 = .Item("Nodes.Add(`Child 2`)")
			Set var_Object = .Item("Expand()")
		End With
	End With
End With

VB.NET

Dim var_NETHostObject,var_NETHostObject1,var_Object
With Exnethost1
	.AssemblyLocation = "C:\Windows\assembly\GAC_MSIL\System.Windows.Forms\2.0.0.0__b77a5c561934e089\System.Windows.Forms.dll"
	.AssemblyName = "System.Windows.Forms.TreeView"
	With .Host
		.Template = "BackColor = RGB(240,240,240)"
		With .Item("Nodes.Add(`Root`)")
			var_NETHostObject = .Item("Nodes.Add(`Child 1`)")
			var_NETHostObject1 = .Item("Nodes.Add(`Child 2`)")
			var_Object = .Item("Expand()")
		End With
	End With
End With

VB.NET for /COM

Dim var_NETHostObject,var_NETHostObject1,var_Object
With AxNETHost1
	.AssemblyLocation = "C:\Windows\assembly\GAC_MSIL\System.Windows.Forms\2.0.0.0__b77a5c561934e089\System.Windows.Forms.dll"
	.AssemblyName = "System.Windows.Forms.TreeView"
	With .Host
		.Template = "BackColor = RGB(240,240,240)"
		With .Item("Nodes.Add(`Root`)")
			var_NETHostObject = .Item("Nodes.Add(`Child 1`)")
			var_NETHostObject1 = .Item("Nodes.Add(`Child 2`)")
			var_Object = .Item("Expand()")
		End With
	End With
End With

C++

/*
	Copy and paste the following directives to your header file as
	it defines the namespace 'exontrol_NETHost' for the library: 'Exontrol NETHost ActiveX Component'

	#import <exontrol.NETHost.tlb>
*/
exontrol_NETHost::INETHostCtrlPtr spNETHost1 = GetDlgItem(IDC_NETHOST1)->GetControlUnknown();
spNETHost1->PutAssemblyLocation(L"C:\\Windows\\assembly\\GAC_MSIL\\System.Windows.Forms\\2.0.0.0__b77a5c561934e089\\System.Windows.Forms.dll");
spNETHost1->PutAssemblyName(L"System.Windows.Forms.TreeView");
exontrol_NETHost::INETHostObjectPtr var_NETHostObject = spNETHost1->GetHost();
	var_NETHostObject->PutTemplate(L"BackColor = RGB(240,240,240)");
	exontrol_NETHost::INETObjectTemplatePtr var_NETHostObject1 = var_NETHostObject->GetItem(L"Nodes.Add(`Root`)");
		exontrol_NETHost::INETObjectTemplatePtr var_NETHostObject = var_NETHostObject1->GetItem(L"Nodes.Add(`Child 1`)");
		var_NETHostObject1 = var_NETHostObject1->GetItem(L"Nodes.Add(`Child 2`)");
		ObjectPtr var_Object = ((ObjectPtr)(var_NETHostObject1->GetItem(L"Expand()")));

C++ Builder

NETHost1->AssemblyLocation = L"C:\\Windows\\assembly\\GAC_MSIL\\System.Windows.Forms\\2.0.0.0__b77a5c561934e089\\System.Windows.Forms.dll";
NETHost1->AssemblyName = L"System.Windows.Forms.TreeView";
Exontrol_nethost_tlb::INETHostObjectPtr var_NETHostObject = NETHost1->Host;
	var_NETHostObject->Template = L"BackColor = RGB(240,240,240)";
	Exontrol_nethost_tlb::INETObjectTemplatePtr var_NETHostObject1 = var_NETHostObject->get_Item(L"Nodes.Add(`Root`)");
		Exontrol_nethost_tlb::INETObjectTemplatePtr var_NETHostObject = var_NETHostObject1->get_Item(L"Nodes.Add(`Child 1`)");
		var_NETHostObject1 = var_NETHostObject1->get_Item(L"Nodes.Add(`Child 2`)");
		_tlb::ObjectPtr var_Object = var_NETHostObject1->get_Item(L"Expand()");

exnethost1.AssemblyLocation = "C:\\Windows\\assembly\\GAC_MSIL\\System.Windows.Forms\\2.0.0.0__b77a5c561934e089\\System.Windows.Forms.dll";
exnethost1.AssemblyName = "System.Windows.Forms.TreeView";
exontrol_NETHost.NETHostObject var_NETHostObject = exnethost1.Host;
	var_NETHostObject.Template = "BackColor = RGB(240,240,240)";
	exontrol_NETHost.NETHostObject var_NETHostObject1 = var_NETHostObject["Nodes.Add(`Root`)"];
		exontrol_NETHost.NETHostObject var_NETHostObject = var_NETHostObject1["Nodes.Add(`Child 1`)"];
		var_NETHostObject1 = var_NETHostObject1["Nodes.Add(`Child 2`)"];
		Object var_Object = (var_NETHostObject1["Expand()"] as Object);

JScript/JavaScript

<BODY onload="Init()">
<OBJECT CLASSID="clsid:FDCBA3E0-4E2F-4DC7-B073-EAA7BD7EC565" id="NETHost1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	NETHost1.AssemblyLocation = "C:\\Windows\\assembly\\GAC_MSIL\\System.Windows.Forms\\2.0.0.0__b77a5c561934e089\\System.Windows.Forms.dll";
	NETHost1.AssemblyName = "System.Windows.Forms.TreeView";
	var var_NETHostObject = NETHost1.Host;
		var_NETHostObject.Template = "BackColor = RGB(240,240,240)";
		var var_NETHostObject1 = var_NETHostObject.Item("Nodes.Add(`Root`)");
			var var_NETHostObject = var_NETHostObject1.Item("Nodes.Add(`Child 1`)");
			var_NETHostObject1 = var_NETHostObject1.Item("Nodes.Add(`Child 2`)");
			var var_Object = var_NETHostObject1.Item("Expand()");
}
</SCRIPT>
</BODY>

VBScript

<BODY onload="Init()">
<OBJECT CLASSID="clsid:FDCBA3E0-4E2F-4DC7-B073-EAA7BD7EC565" id="NETHost1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With NETHost1
		.AssemblyLocation = "C:\Windows\assembly\GAC_MSIL\System.Windows.Forms\2.0.0.0__b77a5c561934e089\System.Windows.Forms.dll"
		.AssemblyName = "System.Windows.Forms.TreeView"
		With .Host
			.Template = "BackColor = RGB(240,240,240)"
			With .Item("Nodes.Add(`Root`)")
				Set var_NETHostObject = .Item("Nodes.Add(`Child 1`)")
				Set var_NETHostObject1 = .Item("Nodes.Add(`Child 2`)")
				Set var_Object = .Item("Expand()")
			End With
		End With
	End With
End Function
</SCRIPT>
</BODY>

C# for /COM

axNETHost1.AssemblyLocation = "C:\\Windows\\assembly\\GAC_MSIL\\System.Windows.Forms\\2.0.0.0__b77a5c561934e089\\System.Windows.Forms.dll";
axNETHost1.AssemblyName = "System.Windows.Forms.TreeView";
exontrol_NETHost.NETHostObject var_NETHostObject = axNETHost1.Host;
	var_NETHostObject.Template = "BackColor = RGB(240,240,240)";
	exontrol_NETHost.NETHostObject var_NETHostObject1 = var_NETHostObject["Nodes.Add(`Root`)"];
		exontrol_NETHost.NETHostObject var_NETHostObject = var_NETHostObject1["Nodes.Add(`Child 1`)"];
		var_NETHostObject1 = var_NETHostObject1["Nodes.Add(`Child 2`)"];
		Object var_Object = (var_NETHostObject1["Expand()"] as Object);

X++ (Dynamics Ax 2009)

public void init()
{
	COM com_NETHostObject,com_NETHostObject1,com_Object;
	anytype var_NETHostObject,var_NETHostObject1,var_Object;
	;

	super();

	exnethost1.AssemblyLocation("C:\\Windows\\assembly\\GAC_MSIL\\System.Windows.Forms\\2.0.0.0__b77a5c561934e089\\System.Windows.Forms.dll");
	exnethost1.AssemblyName("System.Windows.Forms.TreeView");
	var_NETHostObject = exnethost1.Host(); com_NETHostObject = var_NETHostObject;
		com_NETHostObject.Template("BackColor = RGB(240,240,240)");
		var_NETHostObject1 = com_NETHostObject.Item("Nodes.Add(`Root`)"); com_NETHostObject1 = var_NETHostObject1;
			var_NETHostObject = COM::createFromObject(com_NETHostObject1.Item("Nodes.Add(`Child 1`)")); com_NETHostObject = var_NETHostObject;
			var_NETHostObject1 = COM::createFromObject(com_NETHostObject1.Item("Nodes.Add(`Child 2`)"));
			var_Object = COM::createFromObject(com_NETHostObject1.Item("Expand()")); com_Object = var_Object;
}

Delphi 8 (.NET only)

with AxNETHost1 do
begin
	AssemblyLocation := 'C:\Windows\assembly\GAC_MSIL\System.Windows.Forms\2.0.0.0__b77a5c561934e089\System.Windows.Forms.dll';
	AssemblyName := 'System.Windows.Forms.TreeView';
	with Host do
	begin
		Template := 'BackColor = RGB(240,240,240)';
		with Item['Nodes.Add(`Root`)'] do
		begin
			var_NETHostObject := Item['Nodes.Add(`Child 1`)'];
			var_NETHostObject1 := Item['Nodes.Add(`Child 2`)'];
			var_Object := (Item['Expand()'] as Object);
		end;
	end;
end

Delphi (standard)

with NETHost1 do
begin
	AssemblyLocation := 'C:\Windows\assembly\GAC_MSIL\System.Windows.Forms\2.0.0.0__b77a5c561934e089\System.Windows.Forms.dll';
	AssemblyName := 'System.Windows.Forms.TreeView';
	with Host do
	begin
		Template := 'BackColor = RGB(240,240,240)';
		with Item['Nodes.Add(`Root`)'] do
		begin
			var_NETHostObject := Item['Nodes.Add(`Child 1`)'];
			var_NETHostObject1 := Item['Nodes.Add(`Child 2`)'];
			var_Object := (IUnknown(Item['Expand()']) as _TLB.Object);
		end;
	end;
end

VFP

with thisform.NETHost1
	.AssemblyLocation = "C:\Windows\assembly\GAC_MSIL\System.Windows.Forms\2.0.0.0__b77a5c561934e089\System.Windows.Forms.dll"
	.AssemblyName = "System.Windows.Forms.TreeView"
	with .Host
		.Template = "BackColor = RGB(240,240,240)"
		with .Item("Nodes.Add(`Root`)")
			var_NETHostObject = .Item("Nodes.Add(`Child 1`)")
			var_NETHostObject1 = .Item("Nodes.Add(`Child 2`)")
			var_Object = .Item("Expand()")
		endwith
	endwith
endwith

dBASE Plus

local oNETHost,var_NETHostObject,var_NETHostObject1,var_Object

oNETHost = form.Activex1.nativeObject
oNETHost.AssemblyLocation = "C:\Windows\assembly\GAC_MSIL\System.Windows.Forms\2.0.0.0__b77a5c561934e089\System.Windows.Forms.dll"
oNETHost.AssemblyName = "System.Windows.Forms.TreeView"
var_NETHostObject = oNETHost.Host
	var_NETHostObject.Template = "BackColor = RGB(240,240,240)"
	var_NETHostObject1 = var_NETHostObject.Item("Nodes.Add(`Root`)")
		var_NETHostObject = var_NETHostObject1.Item("Nodes.Add(`Child 1`)")
		var_NETHostObject1 = var_NETHostObject1.Item("Nodes.Add(`Child 2`)")
		var_Object = var_NETHostObject1.Item("Expand()")

XBasic (Alpha Five)

Dim oNETHost as P
Dim var_NETHostObject as P
Dim var_NETHostObject1 as P
Dim var_Object as P

oNETHost = topparent:CONTROL_ACTIVEX1.activex
oNETHost.AssemblyLocation = "C:\Windows\assembly\GAC_MSIL\System.Windows.Forms\2.0.0.0__b77a5c561934e089\System.Windows.Forms.dll"
oNETHost.AssemblyName = "System.Windows.Forms.TreeView"
var_NETHostObject = oNETHost.Host
	var_NETHostObject.Template = "BackColor = RGB(240,240,240)"
	var_NETHostObject1 = var_NETHostObject.Item("Nodes.Add(`Root`)")
		var_NETHostObject = var_NETHostObject1.Item("Nodes.Add(`Child 1`)")
		var_NETHostObject1 = var_NETHostObject1.Item("Nodes.Add(`Child 2`)")
		var_Object = var_NETHostObject1.Item("Expand()")

Visual Objects

local var_NETHostObject as INETHostObject
local var_NETHostObject1 as INETObjectTemplate
local var_Object as USUAL

oDCOCX_Exontrol1:AssemblyLocation := "C:\Windows\assembly\GAC_MSIL\System.Windows.Forms\2.0.0.0__b77a5c561934e089\System.Windows.Forms.dll"
oDCOCX_Exontrol1:AssemblyName := "System.Windows.Forms.TreeView"
var_NETHostObject := oDCOCX_Exontrol1:Host
	var_NETHostObject:Template := "BackColor = RGB(240,240,240)"
	var_NETHostObject1 := var_NETHostObject:[Item,"Nodes.Add(`Root`)"]
		var_NETHostObject := var_NETHostObject1:[Item,"Nodes.Add(`Child 1`)"]
		var_NETHostObject1 := var_NETHostObject1:[Item,"Nodes.Add(`Child 2`)"]
		var_Object := var_NETHostObject1:[Item,"Expand()"]

PowerBuilder

OleObject oNETHost,var_NETHostObject,var_NETHostObject1,var_Object

oNETHost = ole_1.Object
oNETHost.AssemblyLocation = "C:\Windows\assembly\GAC_MSIL\System.Windows.Forms\2.0.0.0__b77a5c561934e089\System.Windows.Forms.dll"
oNETHost.AssemblyName = "System.Windows.Forms.TreeView"
var_NETHostObject = oNETHost.Host
	var_NETHostObject.Template = "BackColor = RGB(240,240,240)"
	var_NETHostObject1 = var_NETHostObject.Item("Nodes.Add(`Root`)")
		var_NETHostObject = var_NETHostObject1.Item("Nodes.Add(`Child 1`)")
		var_NETHostObject1 = var_NETHostObject1.Item("Nodes.Add(`Child 2`)")
		var_Object = var_NETHostObject1.Item("Expand()")

Visual DataFlex

Procedure OnCreate
	Forward Send OnCreate
	Set ComAssemblyLocation to "C:\Windows\assembly\GAC_MSIL\System.Windows.Forms\2.0.0.0__b77a5c561934e089\System.Windows.Forms.dll"
	Set ComAssemblyName to "System.Windows.Forms.TreeView"
	Variant voNETHostObject
	Get ComHost to voNETHostObject
	Handle hoNETHostObject
	Get Create (RefClass(cComNETHostObject)) to hoNETHostObject
	Set pvComObject of hoNETHostObject to voNETHostObject
		Set ComTemplate of hoNETHostObject to "BackColor = RGB(240,240,240)"
		Variant voNETHostObject1
		Get ComItem of hoNETHostObject "Nodes.Add(`Root`)" to voNETHostObject1
		Handle hoNETHostObject1
		Get Create (RefClass(cComNETHostObject)) to hoNETHostObject1
		Set pvComObject of hoNETHostObject1 to voNETHostObject1
			Variant var_NETHostObject
			Get ComItem of hoNETHostObject1 "Nodes.Add(`Child 1`)" to var_NETHostObject
			Variant var_NETHostObject1
			Get ComItem of hoNETHostObject1 "Nodes.Add(`Child 2`)" to var_NETHostObject1
			Variant var_Object
			Get ComItem of hoNETHostObject1 "Expand()" to var_Object
		Send Destroy to hoNETHostObject1
	Send Destroy to hoNETHostObject
End_Procedure

XBase++

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oNETHostObject
	LOCAL oNETHostObject1,var_NETHostObject,var_NETHostObject1
	LOCAL oNETHost
	LOCAL var_Object

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oNETHost := XbpActiveXControl():new( oForm:drawingArea )
	oNETHost:CLSID  := "Exontrol.NETHost" /*{FDCBA3E0-4E2F-4DC7-B073-EAA7BD7EC565}*/
	oNETHost:create(,, {10,60},{610,370} )

		oNETHost:AssemblyLocation := "C:\Windows\assembly\GAC_MSIL\System.Windows.Forms\2.0.0.0__b77a5c561934e089\System.Windows.Forms.dll"
		oNETHost:AssemblyName := "System.Windows.Forms.TreeView"
		oNETHostObject := oNETHost:Host()
			oNETHostObject:Template := "BackColor = RGB(240,240,240)"
			oNETHostObject1 := oNETHostObject:Item("Nodes.Add(`Root`)")
				var_NETHostObject := oNETHostObject1:Item("Nodes.Add(`Child 1`)")
				var_NETHostObject1 := oNETHostObject1:Item("Nodes.Add(`Child 2`)")
				var_Object := oNETHostObject1:Item("Expand()")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN

		Type	Description
		Long	A Long expression that specifies the color (RGB color) to be applied to the host's background.