Software Developer's Kit - ChemDraw

Send comments on this topic
ReactionSchemes Property
See Also 

Description

Member of ChemDraw Control.Group.

Returns the ReactionSchemes collection of this group.

Property type

Read-only property

Syntax

Visual Basic
Public Property ReactionSchemes() As ReactionSchemes

Return Type

ReactionSchemes

Remarks

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

myGroup.ReactionSchemes.Application      returns the application associated with the ReactionSchemes collection
myGroup.ReactionSchemes.Count             returns the number of ReactionSchemes in the collection
myGroup.ReactionSchemes.Item(i)           returns one reaction scheme from the collection 
myGroup.ReactionSchemes.Parent            returns the parent of the ReactionSchemes collection

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

Example

'Example with myGroup.ReactionSchems
 Private Sub ctlChemDraw_SelectionChanged(ByVal Selection As _
             ChemDrawControl10Ctl.IChemDrawSelection)
     Set  MyGroup = ctlChemDraw.MakeGroup()
     For  x = 1 To Selection.Objects.Count - 1 'Group objects, without including the actual group
          Selection.Objects.Item(x).Group = MyGroup
     Next x
     Dim RSchemes As String
     On Local Error Resume Next
     Select Case MyGroup.ReactionSchemes(1)
            Case Is = 0
                 RSchemes = "kCDReactionSchemeTypeUnspecified"
            Case Is = 1
                 RSchemes = "kCDReactionSchemeTypeEmpty"
            Case Is = 2
                 RSchemes = "kCDReactionSchemeTypePoint"
            Case Is = 4
                 RSchemes = "kCDReactionSchemeTypeLinear"
            Case Is = 8
                 RSchemes = "kCDReactionSchemeTypeBranched"
            Case Is = 16
                 RSchemes = "kCDReactionSchemeTypeCircular "
     End Select
     If Err.Number = 9 Then RSchemes = "There are no reaction schemes"
     Text1.Text = RSchemes
 End Sub

See Also