Creates and returns a new object in this container. | |
Syntax: | Set GefObject = object.AddRectangle ( Left, Top, Width, Height ) |
Parameters: |
Optional Left As long
-
Optional Top
As long -
Optional Width As long
-
Optional Height As long
-
|
Description: | The AddRectangle method addes a new
rectangle to the specified container object. Example: Sub GefObjects_AddRectangle() Dim oCimScr As GefScreen Dim oCimObj As GefObject Dim oCimObjs As GefObjects Dim oCimRectObj As
GefObject Set oCimScr = CimGetScreen Set oCimObj =
oCimScr.Object Set oCimObjs =
oCimObj.Objects Set oCimRectObj =
oCimObjs.AddRectangle(120 * 20, 120 * 20, 220 * 20, 50 *
20) oCimScr.Refresh False End Sub |