|
22
|
How can I play animated GIF using the control
Dim oNETHost as P
oNETHost = topparent:CONTROL_ACTIVEX1.activex
oNETHost.Create("C:\Windows\assembly\GAC_MSIL\System.Windows.Forms\2.0.0.0__b77a5c561934e089\System.Windows.Forms.dll","System.Windows.Forms.Label")
oNETHost.Host.Template = "Image = LoadPicture(`C:\Program Files (x86)\Exontrol\ExNETHost\Sample\wait.gif`)"
|
|
21
|
How can I use the Template property
Dim oNETHost 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"
oNETHost.Host.Template = "Nodes { Add(`Root 1`).Nodes { Add(`Child 1`); Add(`Child 2`) } }"
|
|
20
|
How can I use the TemplateResult property (method 2)
Dim oNETHost as P
Dim var_NETHostObject 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 = "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)
Dim oNETHost as P
Dim var_NETHostObject as P
Dim var_NETHostObject1 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 = "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, ...
Dim oNETHost as P
Dim var_NETHostObject as P
oNETHost = topparent:CONTROL_ACTIVEX1.activex
oNETHost.AssemblyQualifiedName = "System.Windows.Forms.ListBox, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"
var_NETHostObject = oNETHost.Host
? var_NETHostObject.Item("ProductName").Value
? var_NETHostObject.Item("ProductVersion").Value
? var_NETHostObject.Item("CompanyName").Value
|
|
17
|
How do I get the hwnd/handle of the hosting control
Dim oNETHost 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.Host.Item("Handle").AsInt
|
|
16
|
How do I get the number of arguments that an event has
' The hosting control fires an event.
function HostEvent as v (Ev as OLE::Exontrol.NETHost::INETHostEvent)
oNETHost = topparent:CONTROL_ACTIVEX1.activex
? "Ev.Arguments.Item(\"GetType().GetProperties().Length\").AsString"
? Ev
end function
Dim oNETHost 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"
|
|
15
|
How can I change the control's background color, as BackgroundColor seems to have no effect
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()")
|
|
14
|
How can I add a TreeView
Dim oNETHost as P
Dim var_NETHostObject as P
Dim var_NETHostObject1 as P
Dim var_NETHostObject2 as P
Dim var_NETHostObject3 as P
Dim var_NETHostObject4 as P
Dim var_NETHostObject5 as P
Dim var_NETHostObject6 as P
Dim var_NETHostObject7 as P
Dim var_Object as P
Dim var_Object1 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_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
Dim oNETHost as P
Dim var_NETHostObject 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.ProgressBar"
var_NETHostObject = oNETHost.Host
var_NETHostObject.SetTemplateDef("Dim percent")
var_NETHostObject.SetTemplateDef(50)
var_NETHostObject.Template = "Value = percent"
|
|
12
|
How can I add a DateTimePicker
Dim oNETHost as P
Dim var_NETHostObject 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.DateTimePicker"
var_NETHostObject = oNETHost.Host
var_NETHostObject.SetTemplateDef("Dim date")
var_NETHostObject.SetTemplateDef({01/01/2001})
var_NETHostObject.Template = "Value = date"
|
|
11
|
How can I add CheckedListBox
Dim oNETHost as P
Dim var_NETHostObject 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.CheckedListBox"
var_NETHostObject = oNETHost.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
' The hosting control fires an event.
function HostEvent as v (Ev as OLE::Exontrol.NETHost::INETHostEvent)
oNETHost = topparent:CONTROL_ACTIVEX1.activex
? Ev
? "Button "
? Ev
end function
Dim oNETHost as P
oNETHost = topparent:CONTROL_ACTIVEX1.activex
oNETHost.BackgroundColor = 16777215
oNETHost.HostEvents = "MouseUp MouseDown"
oNETHost.Create("C:\Windows\assembly\GAC_MSIL\System.Windows.Forms\2.0.0.0__b77a5c561934e089\System.Windows.Forms.dll","System.Windows.Forms.MonthCalendar")
oNETHost.Host.Template = "MaxSelectionCount = 1"
|
|
9
|
Is it possible to handle only a specific event
' The hosting control fires an event.
function HostEvent as v (Ev as OLE::Exontrol.NETHost::INETHostEvent)
oNETHost = topparent:CONTROL_ACTIVEX1.activex
? Ev
end function
Dim oNETHost as P
Dim var_NETHostObject as P
oNETHost = topparent:CONTROL_ACTIVEX1.activex
oNETHost.BackgroundColor = 16777215
oNETHost.Create("C:\Windows\assembly\GAC_MSIL\System.Windows.Forms\2.0.0.0__b77a5c561934e089\System.Windows.Forms.dll","System.Windows.Forms.MonthCalendar")
oNETHost.HostEvents = "DateSelected"
var_NETHostObject = oNETHost.Host
var_NETHostObject.Template = "MaxSelectionCount = 1"
|
|
8
|
How can I handle events withing the control
' The hosting control fires an event.
function HostEvent as v (Ev as OLE::Exontrol.NETHost::INETHostEvent)
oNETHost = topparent:CONTROL_ACTIVEX1.activex
? Ev
end function
Dim oNETHost as P
Dim var_NETHostObject as P
oNETHost = topparent:CONTROL_ACTIVEX1.activex
oNETHost.BackgroundColor = 16777215
oNETHost.Create("C:\Windows\assembly\GAC_MSIL\System.Windows.Forms\2.0.0.0__b77a5c561934e089\System.Windows.Forms.dll","System.Windows.Forms.MonthCalendar")
var_NETHostObject = oNETHost.Host
var_NETHostObject.Template = "MaxSelectionCount = 1"
|
|
7
|
How can I add the Tab page, and pages inside (method 2)
Dim oNETHost as P
Dim var_NETHostObject as P
Dim var_NETHostObject1 as P
Dim var_NETHostObject2 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.TabControl"
var_NETHostObject = oNETHost.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)
Dim oNETHost as P
Dim var_NETHostObject as P
Dim var_NETHostObject1 as P
Dim var_NETHostObject2 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.TabControl"
var_NETHostObject = oNETHost.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
Dim oNETHost as P
Dim var_NETHostObject as P
oNETHost = topparent:CONTROL_ACTIVEX1.activex
oNETHost.AssemblyLocation = "C:\Program Files\Exontrol\ExG2antt.NET\Sample\exontrol.exg2antt.dll"
var_NETHostObject = oNETHost.Host
var_NETHostObject.Template = "LoadXML(`http://www.exontrol.net/testing.xml`)"
|
|
4
|
How can I insert the MonthCalendar of /NET framework
Dim oNETHost as P
Dim var_NETHostObject as P
oNETHost = topparent:CONTROL_ACTIVEX1.activex
oNETHost.BackgroundColor = 16777215
oNETHost.Create("C:\Windows\assembly\GAC_MSIL\System.Windows.Forms\2.0.0.0__b77a5c561934e089\System.Windows.Forms.dll","System.Windows.Forms.MonthCalendar")
var_NETHostObject = oNETHost.Host
var_NETHostObject.SetTemplateDef("Dim x")
var_NETHostObject.SetTemplateDef({01/01/2001})
var_NETHostObject.Template = "MaxSelectionCount = 1;SelectionStart = x"
|
|
3
|
How can I use the AssemblyQualifiedName property
Dim oNETHost as P
Dim var_NETHostObject as P
oNETHost = topparent:CONTROL_ACTIVEX1.activex
oNETHost.AssemblyQualifiedName = "System.Windows.Forms.ListBox, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"
var_NETHostObject = oNETHost.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
Dim oNETHost as P
Dim var_NETHostObject as P
Dim var_NETHostObject1 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.ListView"
var_NETHostObject = oNETHost.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
Dim oNETHost as P
Dim var_NETHostObject as P
oNETHost = topparent:CONTROL_ACTIVEX1.activex
oNETHost.AssemblyQualifiedName = "System.Windows.Forms.PropertyGrid, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"
var_NETHostObject = oNETHost.Host
var_NETHostObject.Template = "BackColor = RGB(255,255,255);ViewBackColor = RGB(255,255,255);LineColor = ViewBackColor"
var_NETHostObject.SetTemplateDef("dim object")
var_NETHostObject.SetTemplateDef(oNETHost)
var_NETHostObject.Template = "SelectedObject = object"
|