Software Developer's Kit - ChemDraw

Send comments on this topic
Constraints Property
See Also 

Description

Member of ChemDraw Control.Group.

Returns the constraints collection of this group.

Property type

Read-only property

Syntax

Visual Basic
Public Property Constraints() As Constraints

Return Type

Constraints

Remarks

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

myGroup.Constraints.Application      returns the application associated with the constraints collection
myGroup.Constraints.Count             returns the number of constraints in the collection
myGroup.Constraints.Item(i)           returns one constraint from the collection
myGroup.Constraints.Parent            returns the parent of the constraints collection

With myGroup.Constraints.Item(i) all the constraint properties are enabled for constraint(i). This index starts with 1.

Example

'Returns the number of constraints in this group
 Private Sub ctlChemDraw_SelectionChanged(ByVal Selection _
          As ChemDrawControl10Ctl.IChemDrawSelection)
     Set  MyGroup = ctlChemDraw.MakeGroup()
     For  x = 1 To selection.Objects.Count - 1 'removes the value of the created object
          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