Creates and returns a new object in this container. | |
Syntax: | Set GefObject = object.AddEllipse ( Left, Top, Width, Height ) |
Parameters: |
Optional Left As long
-
Optional Top
As long -
Optional Width As long
-
Optional Height As long
-
|
Description: | The AddEllipse method adds a new ellipse
object to the current container. Example: Sub GefObjects_AddEllipse() Dim oCimScr As GefScreen Dim oCimObj As GefObject Dim oCimObjs As GefObjects Dim oCimBtnObj As
GefObject Set oCimScr = CimGetScreen Set oCimObj =
oCimScr.Object Set oCimObjs =
oCimObj.Objects Set oCimBtnObj =
oCimObjs.AddEllipse(120 * 20, 120 * 20, 120 * 20, 120 *
20) oCimScr.Refresh False End Sub |