Software Developer's Kit - ChemDraw

Send comments on this topic
TLCPlates Property
See Also 

Description

Member of ChemDraw Control.AltGroup.

Returns the TLCPlates in this AltGroup.

Property type

Read-only property

Syntax

Visual Basic
Public Property TLCPlates() As TLCPlates

Return Type

Remarks

The TLCPlates property refers to the collection of TLCPlates which is within this AltGroup. The members of this collection will be the TLCPlates in this AltGroup. The properties associated with the collection are the following:

myAltGroup.TLCPlates.Application      returns the application associated with the TLCPlates collection
myAltGroup.TLCPlates.Count             returns the number of TLCPlates in the collection
myAltGroup.TLCPlates.Item(i)           returns one TLCPlate from the collection
myAltGroup.TLCPlates.Parent            returns the parent of the TLCPlates collection

With AltGroup.TLCPlates.Item(i) all the TLCPlate properties are enabled for TLCPlate(i). This index starts with 1.

Example

'Returns the number of TLCPlates in the TLCPlates collection in this AltGroup
 Dim MyAltGroup As ChemDrawControl10Ctl.AltGroup
 Private Sub ChemDrawControl10Ctl_SelectionChanged(ByVal selection As ChemDrawControl10Ctl.IChemDrawSelection)
     If  ChemDrawControl10Ctl.Objects.AltGroups.Count = 1 Then 'Checks if an AltGroup has been drawn
         Set MyAltGroup = ChemDrawControl10Ctl.Objects.AltGroups.Item(1)
         Command1.Enabled = True
     Else
         Command1.Enabled = False
     End If
 End Sub
 Private Sub Command1_Click()
     vMessage = MsgBox("Number of TLCPlates in this alternative group: " & MyAltGroup.TLCPlates.Count & _
               , vbInformation + vbOKOnly, "Info")
 End Sub


See Also