CimCreateSafeArray (function)


CimSafeArray = CimCreateSafeArray()


Returns an Automation object that can create and manipulate an array that be used with Automation methods and properties that require arrays.


The extension can be used.


Native arrays created in Basic cannot be passed to Automation methods that require array parameters. Similarly, Automation methods that return arrays, return Automation arrays – not Basic arrays. The CimSafeArray Automation object allows you to manipulate Automation arrays in Basic.


Dim vtx As CimSafeArrayLib.COCimSafeArray

Dim obj As GefObjectModel.GefObject

Dim bdr As GefObjectModel.GefObject

Set vtx = CimCreateSafeArray()

vtx.CreateVector cimVLong, 0, 8

Set obj = CimGetObject()

'Create a red line around the object

vtx.SetVectorElement 0, obj.Left

vtx.SetVectorElement 1, obj.Top

vtx.SetVectorElement 2, obj.Left + obj.Width

vtx.SetVectorElement 3, obj.Top

vtx.SetVectorElement 4, obj.Left + obj.Width

vtx.SetVectorElement 5, obj.Top - obj.Height

vtx.SetVectorElement 6, obj.Left

vtx.SetVectorElement 7, obj.Top - obj.Height

Set bdr = obj.Parent.AddPolyline(vtx, True)

bdr.Line.ForeColor.RGB = &hFF


CimGetScreen().Refresh False


More information

Basic Extensions.