Adds a single item to a collection. Compare this method to XSICollection.AddItems, which adds one or more items at a time or XSICollection.SetAsText, which adds all items in the string list.
XSICollection.Add( Object in_newVal ); |
XSICollection.Add( Item ); |
Parameter | Type | Description |
---|---|---|
Item | CollectionItem, any kind of ProjectItem or String | The new item being added. This may be a generic object (CollectionItem), a specific type of object (ProjectItem) or an Object Name (string expression). |
Dim oColl ' object pointer for collection Dim oMember ' object pointer for members Dim oNull ' object pointer for null object Dim oCollItem ' object pointer for collection item Dim sLightName ' string variable for the camera name ' Create the stuff we will populate the collection with Set oNull = ActiveSceneRoot.AddNull checkType oNull ' = project item Set oCollItem = CreateObject( "XSI.CollectionItem" ) oCollItem.Value = "Camera" checkType oCollItem ' = collection item sLightName = "light*" checkType sLightName ' = string expression ' Create the new collection Set oColl = CreateObject( "XSI.Collection" ) ' Add each item oColl.Add oNull oColl.Add oCollItem oColl.Add sLightName ' What do we have now? LogMessage "----------------" For Each oMember In oColl checkType oMember Next '-------------------------------------------------- function checkType( in_object ) LogMessage in_object & " is a " & TypeName( in_object ) end function '-------------------------------------------------- ' Output of above script: 'INFO : "null is a Null" 'INFO : "Camera is a CollectionItem" 'INFO : "light* is a String" 'INFO : "----------------" 'INFO : "null is a Null" 'INFO : "Camera is a Camera" 'INFO : "light is a Light" |