Software Developer's Kit - ChemDraw

Send comments on this topic
Bonds Property
See Also 


Member of ChemDrawControl.Objects.

Returns the bonds from the objects in the collection

Property type

Read-only property


Visual Basic
Public Property Bonds() As Bonds

Return Type


'Shows bonds   
 Private Sub cmdShowNumberOfBonds_Click() 
     Dim myBond1 as ChemDrawControl10Ctl.Bond
     Dim myBond2 as ChemDrawControl10Ctl.Bond 
    'Checks if at least two Bonds have been drawn
     If ctlChemDraw.Objects.Bonds.Count > 2 Then 
         Set MyBond1 = ChemDrawControlCtl.Objects.Bonds.Item(1)
         Set MyBond2 = ChemDrawControlCtl.Objects.Bonds.Item(2)
     End If
 End Sub

See Also