| Creates and returns a new object in this container. | |
| Syntax: | Set GefObject = object.AddLicensedActiveXControl ( ClassType, LicenseKey, Left, Top, Width, Height ) |
| Parameters: |
ClassType As
String -
LicenseKey
As String -
Optional Left As long
-
Optional Top
As long -
Optional Width As long
-
Optional Height As long
-
|
| Description: | The ClassType parameter can be found by
inserting an OLE object into a CimEdit screen and looking at
the Class Type field on the General property page.
The LicenseKey value must be obtained from the control
vendor. Example: Sub GefObjects_AddLicActiveXControl() Dim oCimScr As GefScreen Dim oCimObj As GefObject Dim oCimObjs As GefObjects Dim oCimActiveXObj As
GefObject Set oCimScr = CimGetScreen Set oCimObj =
oCimScr.Object Set oCimObjs =
oCimObj.Objects Set oCimActiveXObj =
oCimObjs.AddLicensedActiveXControl("CIMGRAPH.CimGraphCtrl.1",
"MyLicKey", _ 120 *
20, 120 * 20, 120 * 20, 120 * 20) oCimScr.Refresh False End Sub |