CoCimSafeArray5.GetObjectProperty (method)

Retrieves a named property of another COM object and stores it in the internal array of this object.
Syntax: object.GetObjectProperty Object, PropertyName
Object As object -
PropertyName As String -
Description: The passed COM object must implement IDispatch for this method to work. If the returned property does not happen to be an array a single dimension array with one element of the type of the returned property will be created to hold the value of the property.


Private cimOleObj As CimGraphLib.DCimGraph
Sub OnSmartObject()
  cimOleObj.Series.Add "Plot1", apSeriesStandard
  Dim arX As CoCimSafeArray5
  Dim arY As CoCimSafeArray5
  Set arX = CreateObject("CIMPLICITY.CimSafeArray.5")
  Set arY = CreateObject("CIMPLICITY.CimSafeArray.5")
  arY.CreateVector cimVLong, 0 , 100
  Dim i As Integer
  For i = 0 To 99
    arY.SetVectorElement i, i + 1
  Next i
  Dim sdatax As Object
  Dim sdatay As Object
  Set sdatax = cimOleObj.Series("Plot1").Data.X
  Set sdatay = cimOleObj.Series("Plot1").Data.Y
  arY.SetObjectProperty sdatay, "Value"
  arX.GetObjectProperty sdatay, "Value"
  arX.SetObjectProperty sdatax, "Value"
End Sub
See Also: GetObjectProperty , CallObjectMethod