22
How can I play animated GIF using the control


oDCOCX_Exontrol1:Create("C:\Windows\assembly\GAC_MSIL\System.Windows.Forms\2.0.0.0__b77a5c561934e089\System.Windows.Forms.dll","System.Windows.Forms.Label")
oDCOCX_Exontrol1:Host:Template := "Image = LoadPicture(`C:\Program Files (x86)\Exontrol\ExNETHost\Sample\wait.gif`)"
21
How can I use the Template property

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"
oDCOCX_Exontrol1:Host:Template := "Nodes { Add(`Root 1`).Nodes { Add(`Child 1`); Add(`Child 2`) }  }"
20
How can I use the TemplateResult property (method 2)
local var_NETHostObject as INETHostObject

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 := "Nodes.Add(`Root 1`){ BackColor = RGB(255,0,0);ForeColor = RGB(255,255,255) }"
	var_NETHostObject:TemplateResult:Template := "Nodes{ Add(`Child 1`); Add(`Child 2`) }; Expand() }"
19
How can I use the TemplateResult property (method 1)
local var_NETHostObject as INETHostObject
local var_NETHostObject1 as INETObjectTemplate

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 := "Nodes.Add(`Root 1`)"
	var_NETHostObject1 := var_NETHostObject:TemplateResult
		var_NETHostObject1:Template := "Nodes.Add(`Child 1`)"
		var_NETHostObject1:Template := "Nodes.Add(`Child 2`)"
		var_NETHostObject1:Template := "Expand()"
18
How can I find the information about the hosting control, like name, version, ...
local var_NETHostObject as INETHostObject

oDCOCX_Exontrol1:AssemblyQualifiedName := "System.Windows.Forms.ListBox, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"
var_NETHostObject := oDCOCX_Exontrol1:Host
	OutputDebugString(String2Psz( AsString(var_NETHostObject:[Item,"ProductName"]:Value) ))
	OutputDebugString(String2Psz( AsString(var_NETHostObject:[Item,"ProductVersion"]:Value) ))
	OutputDebugString(String2Psz( AsString(var_NETHostObject:[Item,"CompanyName"]:Value) ))
17
How do I get the hwnd/handle of the hosting control

oDCOCX_Exontrol1:AssemblyLocation := "C:\Windows\assembly\GAC_MSIL\System.Windows.Forms\2.0.0.0__b77a5c561934e089\System.Windows.Forms.dll"
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Host:[Item,"Handle"]:AsInt) ))
16
How do I get the number of arguments that an event has
METHOD OCX_Exontrol1HostEvent(Ev) CLASS MainDialog
	// HostEvent event - The hosting control fires an event.
	OutputDebugString(String2Psz( "Ev.Arguments.Item(" + CHR(34) + "GetType().GetProperties().Length" + CHR(34) + ").AsString" ))
	OutputDebugString(String2Psz( AsString(Ev) ))
RETURN NIL


oDCOCX_Exontrol1:AssemblyLocation := "C:\Windows\assembly\GAC_MSIL\System.Windows.Forms\2.0.0.0__b77a5c561934e089\System.Windows.Forms.dll"
15
How can I change the control's background color, as BackgroundColor seems to have no effect

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()"]
14
How can I add a TreeView

local var_NETHostObject as INETHostObject
local var_NETHostObject1,var_NETHostObject2,var_NETHostObject3,var_NETHostObject4,var_NETHostObject5,var_NETHostObject6,var_NETHostObject7 as INETObjectTemplate
local var_Object,var_Object1 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_NETHostObject1 := var_NETHostObject:[Item,"Nodes.Add(`Root 1`)"]
		var_NETHostObject := var_NETHostObject1:[Item,"Nodes.Add(`Child 1`)"]
		var_NETHostObject2 := var_NETHostObject1:[Item,"Nodes.Add(`Child 2`)"]
			var_NETHostObject1 := var_NETHostObject2:[Item,"Nodes.Add(`Sub-Child 2.1`)"]
			var_NETHostObject2 := var_NETHostObject2:[Item,"Nodes.Add(`Sub-Child 2.2`)"]
			var_NETHostObject3 := var_NETHostObject2:[Item,"Nodes.Add(`Sub-Child 2.3`)"]
			var_Object := var_NETHostObject2:[Item,"Expand()"]
		var_NETHostObject4 := var_NETHostObject1:[Item,"Nodes.Add(`Child 3`)"]
		var_Object1 := var_NETHostObject1:[Item,"Expand()"]
	var_NETHostObject5 := var_NETHostObject:[Item,"Nodes.Add(`Root 2`)"]
		var_NETHostObject5 := var_NETHostObject5:[Item,"Nodes.Add(`Child 1`)"]
		var_NETHostObject6 := var_NETHostObject5:[Item,"Nodes.Add(`Child 2`)"]
		var_NETHostObject7 := var_NETHostObject5:[Item,"Nodes.Add(`Child 3`)"]
13
How can I add a ProgressBar

local var_NETHostObject as INETHostObject

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.ProgressBar"
var_NETHostObject := oDCOCX_Exontrol1:Host
	var_NETHostObject:SetTemplateDef("Dim percent")
	var_NETHostObject:SetTemplateDef(50)
	var_NETHostObject:Template := "Value = percent"
12
How can I add a DateTimePicker

local var_NETHostObject as INETHostObject

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.DateTimePicker"
var_NETHostObject := oDCOCX_Exontrol1:Host
	var_NETHostObject:SetTemplateDef("Dim date")
	var_NETHostObject:SetTemplateDef(SToD("20010101"))
	var_NETHostObject:Template := "Value = date"
11
How can I add CheckedListBox

local var_NETHostObject as INETHostObject

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.CheckedListBox"
var_NETHostObject := oDCOCX_Exontrol1:Host
	var_NETHostObject:Template := "FormattingEnabled = True"
	var_NETHostObject:Template := "Items.Add(`Check 1`)"
	var_NETHostObject:Template := "Items.Add(`Check 2`,True)"
10
How can I specify the list of events to be handled
METHOD OCX_Exontrol1HostEvent(Ev) CLASS MainDialog
	// HostEvent event - The hosting control fires an event.
	OutputDebugString(String2Psz( AsString(Ev) ))
	OutputDebugString(String2Psz( "Button " ))
	OutputDebugString(String2Psz( AsString(Ev) ))
RETURN NIL


oDCOCX_Exontrol1:BackgroundColor := 16777215
oDCOCX_Exontrol1:HostEvents := "MouseUp MouseDown"
oDCOCX_Exontrol1:Create("C:\Windows\assembly\GAC_MSIL\System.Windows.Forms\2.0.0.0__b77a5c561934e089\System.Windows.Forms.dll","System.Windows.Forms.MonthCalendar")
oDCOCX_Exontrol1:Host:Template := "MaxSelectionCount = 1"
9
Is it possible to handle only a specific event
METHOD OCX_Exontrol1HostEvent(Ev) CLASS MainDialog
	// HostEvent event - The hosting control fires an event.
	OutputDebugString(String2Psz( AsString(Ev) ))
RETURN NIL

local var_NETHostObject as INETHostObject

oDCOCX_Exontrol1:BackgroundColor := 16777215
oDCOCX_Exontrol1:Create("C:\Windows\assembly\GAC_MSIL\System.Windows.Forms\2.0.0.0__b77a5c561934e089\System.Windows.Forms.dll","System.Windows.Forms.MonthCalendar")
oDCOCX_Exontrol1:HostEvents := "DateSelected"
var_NETHostObject := oDCOCX_Exontrol1:Host
	var_NETHostObject:Template := "MaxSelectionCount = 1"
8
How can I handle events withing the control
METHOD OCX_Exontrol1HostEvent(Ev) CLASS MainDialog
	// HostEvent event - The hosting control fires an event.
	OutputDebugString(String2Psz( AsString(Ev) ))
RETURN NIL

local var_NETHostObject as INETHostObject

oDCOCX_Exontrol1:BackgroundColor := 16777215
oDCOCX_Exontrol1:Create("C:\Windows\assembly\GAC_MSIL\System.Windows.Forms\2.0.0.0__b77a5c561934e089\System.Windows.Forms.dll","System.Windows.Forms.MonthCalendar")
var_NETHostObject := oDCOCX_Exontrol1:Host
	var_NETHostObject:Template := "MaxSelectionCount = 1"
7
How can I add the Tab page, and pages inside (method 2)

local var_NETHostObject as INETHostObject
local var_NETHostObject1,var_NETHostObject2 as INETObjectTemplate

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.TabControl"
var_NETHostObject := oDCOCX_Exontrol1:Host
	var_NETHostObject1 := var_NETHostObject:[Item,"Dim page; page = CreateObject(`System.Windows.Forms.TabPage, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089`){Text = `new`};Controls.Add(page);page"]
		var_NETHostObject1:Template := "Text = `Page 1`;UseVisualStyleBackColor = True"
		var_NETHostObject1:Template := "Dim c; c = CreateObject(`System.Windows.Forms.Button, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089`){Text=`Button 2`;Dock=1}; Controls.Add(c)"
		var_NETHostObject1:Template := "Dim c; c = CreateObject(`System.Windows.Forms.Button, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089`){Text=`Button 1`;Dock=1}; Controls.Add(c)"
	var_NETHostObject2 := var_NETHostObject:[Item,"Dim page; page = CreateObject(`System.Windows.Forms.TabPage, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089`){Text = `new`};Controls.Add(page);page"]
		var_NETHostObject2:Template := "Text = `Page 1`;UseVisualStyleBackColor = True"
		var_NETHostObject2:Template := "Dim c; c = CreateObject(`System.Windows.Forms.TextBox, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089`){Text=`Edit 2`;Dock=1}; Controls.Add(c)"
		var_NETHostObject2:Template := "Dim c; c = CreateObject(`System.Windows.Forms.TextBox, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089`){Text=`Edit 1`;Dock=1}; Controls.Add(c)"
6
How can I add the Tab page, and pages inside (method 1)

local var_NETHostObject as INETHostObject
local var_NETHostObject1,var_NETHostObject2 as INETObjectTemplate

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.TabControl"
var_NETHostObject := oDCOCX_Exontrol1:Host
	var_NETHostObject1 := var_NETHostObject:[Item,"CreateObject(`System.Windows.Forms.TabPage, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089`)"]
		var_NETHostObject1:Template := "Text = `Page 1`;UseVisualStyleBackColor = True"
	var_NETHostObject:SetTemplateDef("Dim page")
	var_NETHostObject:SetTemplateDef(var_NETHostObject:TemplateResult:Value)
	var_NETHostObject:Template := "Controls.Add(page)"
	var_NETHostObject2 := var_NETHostObject:[Item,"CreateObject(`System.Windows.Forms.TabPage, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089`)"]
		var_NETHostObject2:Template := "Text = `Page 2`;UseVisualStyleBackColor = True"
	var_NETHostObject:SetTemplateDef("Dim page")
	var_NETHostObject:SetTemplateDef(var_NETHostObject:TemplateResult:Value)
	var_NETHostObject:Template := "Controls.Add(page)"
5
Just wondering if I can host your /NET control

local var_NETHostObject as INETHostObject

oDCOCX_Exontrol1:AssemblyLocation := "C:\Program Files\Exontrol\ExG2antt.NET\Sample\exontrol.exg2antt.dll"
var_NETHostObject := oDCOCX_Exontrol1:Host
	var_NETHostObject:Template := "LoadXML(`http://www.exontrol.net/testing.xml`)"
4
How can I insert the MonthCalendar of /NET framework

local var_NETHostObject as INETHostObject

oDCOCX_Exontrol1:BackgroundColor := 16777215
oDCOCX_Exontrol1:Create("C:\Windows\assembly\GAC_MSIL\System.Windows.Forms\2.0.0.0__b77a5c561934e089\System.Windows.Forms.dll","System.Windows.Forms.MonthCalendar")
var_NETHostObject := oDCOCX_Exontrol1:Host
	var_NETHostObject:SetTemplateDef("Dim x")
	var_NETHostObject:SetTemplateDef(SToD("20010101"))
	var_NETHostObject:Template := "MaxSelectionCount = 1;SelectionStart = x"
3
How can I use the AssemblyQualifiedName property

local var_NETHostObject as INETObjectTemplate

oDCOCX_Exontrol1:AssemblyQualifiedName := "System.Windows.Forms.ListBox, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"
var_NETHostObject := oDCOCX_Exontrol1:Host:[Item,"Items"]
	var_NETHostObject:Template := "Add(2001)"
	var_NETHostObject:Template := "Add(4.1234)"
	var_NETHostObject:Template := "Add(#1/1/2001#)"
	var_NETHostObject:Template := "Add(RGB(255,0,0))"
	var_NETHostObject:Template := "Add(1);Add(2);Add(3)"
2
How can I use the AssemblyLocation property

local var_NETHostObject as INETHostObject
local var_NETHostObject1 as INETObjectTemplate

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.ListView"
var_NETHostObject := oDCOCX_Exontrol1:Host
	var_NETHostObject:Template := "Items.Add(`first`)"
	var_NETHostObject1 := var_NETHostObject:[Item,"CreateObject(`System.Windows.Forms.ListViewItem, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089`)"]
		var_NETHostObject1:Template := "Text = `second`;ForeColor = RGB(255,0,0)"
	var_NETHostObject:SetTemplateDef("Dim n")
	var_NETHostObject:SetTemplateDef(var_NETHostObject:TemplateResult:Value)
	var_NETHostObject:Template := "Items.Add(n)"
	var_NETHostObject:Template := "Items.Add(`third`)"
1
How can I insert the PropertyGrid of /NET framework

local var_NETHostObject as INETHostObject

oDCOCX_Exontrol1:AssemblyQualifiedName := "System.Windows.Forms.PropertyGrid, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"
var_NETHostObject := oDCOCX_Exontrol1:Host
	var_NETHostObject:Template := "BackColor = RGB(255,255,255);ViewBackColor = RGB(255,255,255);LineColor = ViewBackColor"
	var_NETHostObject:SetTemplateDef("dim object")
	var_NETHostObject:SetTemplateDef(oDCOCX_Exontrol1)
	var_NETHostObject:Template := "SelectedObject = object"