Software Developer's Kit - ChemDraw

Send comments on this topic
StoichiometryGrids Property
See Also 

Description

Member of ChemDraw Control.Group.

Returns the StoichiometryGrids collection of this group.

Property type

Read-only property

Syntax

Visual Basic
Public Property StoichiometryGrids() As StoichiometryGrids

Return Type

StoichiometryGrids

Remarks

The StoichiometryGrids property refers to the collection of StoichiometryGrids which is within this Group. The properties associated with the collection are the following:

myGroup.StoichiometryGrids.Application  returns the application associated with the StoichiometryGrids collection
myGroup.StoichiometryGrids.Count  returns the number of StoichiometryGrids in the collection
myGroup.StoichiometryGrids.Parent  returns the parent of the StoichiometryGrids collection
myGroup.StoichiometryGrids.Item(i)  returns one stoichiometry grid from the collection 

With Group.StoichiometryGrids.Item(i) all the StoichiometryGrid properties are enabled for StoichiometryGrid(i). This index starts with 1.

Example

'StoichiometryGrids
 Private Sub ctlChemDraw_SelectionChanged(ByVal selection As ChemDrawControl10Ctl.IChemDrawSelection)
     Set  MyGroup = ctlChemDraw.MakeGroup()
     For  x = 1 To selection.Objects.Count - 1 'Groups objects, without including the actual group
          Selection.Objects.Item(x).Group = MyGroup
     Next x
     Label1.Caption = "AltGroups: " & MyGroup.AltGroups.Count
     Label2.Caption = "Bonds: " & MyGroup.Bonds.Application
     Label3.Caption = "Captions: " & MyGroup.Captions.Item(1).Text
     Label4.Caption = "Atoms: " & MyGroup.Atoms.Parent.ID
     Label5.Caption = "Constraints: " & MyGroup.Constraints.Count
     Label6.Caption = "Geometries: " & MyGroup.Geometries.Count
     Label7.Caption = "Objects: " & MyGroup.Objects.Count
     Label8.Caption = "Pictures: " & MyGroup.Pictures.Count
     Label9.Caption = "Splines: " & MyGroup.Splines.Count
     Label10.Caption = "StoichiometryGrids: " & MyGroup.StoichiometryGrids.Count
     Label11.Caption = "Tables: " & MyGroup.Tables.Count
     Label12.Caption = "TLCPlates: " & MyGroup.TLCPlates.Count
 End Sub

See Also