<-- Previous || Up || Next -->

Cube Property
Sparse Array Class

Public Property Get Cube( _
      ByVal vDim1 As Long _
    , ByVal vDim2 As Long _
    , ByVal vDim3 As Long _
    ) As Variant

Get the Value of an element when using the SparseArray as a three-dimensional array. (A three-dimensional array is known as a Cube within Entisoft Tools.)

Example:
    Assuming
       Dim saTemp As New SparseArray
       saTemp.Cube(23, 45, 67) = "SubName"
    for example
       saTemp.Cube(23, 45, 67) = "SubName"
       saTemp.Cube(24, 45, 67) = EmptyValue
vDim1: First-dimension element number.
vDim2: Second-dimension element number.
vDim2: Third-dimension element number.
Return value: Function returns the value for the specified element. If array element (vDim1, vDim2, vDim3) was not previously set, this function will return an Empty value.
v1.3 BugFix: This Property Get Function has been fixed to support the retrieval of Object and DataObject type Values.

Public Property Let Cube( _
      ByVal vDim1 As Long _
    , ByVal vDim2 As Long _
    , ByVal vDim3 As Long _
    , ByVal vValue As Variant _
    )

Set the Value of an element when using the SparseArray as a three-dimensional array.

Example:
    Assuming
       Dim saTemp As New SparseArray
    for example
       saTemp.Cube(23, 45, 67) = "SubName"
    leaves
       saTemp.Cube(23, 45, 67) = "SubName"
vDim1: First-dimension element number.
vDim2: Second-dimension element number.
vDim3: Third-dimension element number.
vValue: Value to which element number (vDim1, vDim2, vDim3) will be set. vValue can be any type of Variant value (vbString, numeric, vbDate, vbArray, etc.) except an Object or DataObject.
v1.3 BugFix: The corresponding Property Set Subroutine supports the storage of Object and DataObject type Values.

Public Property Set Cube( _
      ByVal vDim1 As Long _
    , ByVal vDim2 As Long _
    , ByVal vDim3 As Long _
    , ByVal vValue As Variant _
    )

Set the Value of an element when using the SparseArray as a three-dimensional array.

Example:
    Assuming
       Dim saTemp As New SparseArray
       Dim objTemp As Object
       Set objTemp = Nothing
    for example
       Set saTemp.Cube(23, 45, 67) = objTemp
vDim1: First-dimension element number.
vDim2: Second-dimension element number.
vDim3: Third-dimension element number.
vValue: Object or DataObject value to which element number (vDim1, vDim2, vDim3) will be set.
v1.3 BugFix: This new Property Set Subroutine has been added to support the storage of Object and DataObject type Values.

Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.