Software Developer's Kit - ChemDraw

Send comments on this topic
DelocalizedBonds Property
See Also 

Description

Member of ChemDraw control.Graphic.

Returns the bonds collection that are to be considered delocalized due to their proximity to this graphic

Property type

Read-only property

Syntax

Visual Basic
Public Property DelocalizedBonds() As Bonds

Return Type

Remarks

Returns the bonds collection that are to be considered delocalized due to their proximity to this graphic

Example

Private Sub ctlChemDraw_SelectionChanged(ByVal selection As ChemDrawControl10Ctl.IChemDrawSelection)
    If  selection.Graphics.Count = 1 Then
        Set MyGraphic = ctlChemDraw.selection.Objects.Graphics.Item(1)
        Label1.Caption = "Object: Graphic"
    End If
End Sub

Private Sub Command1_Click()
   'If there are no DelocalizedBonds in the selection, an error occurs (number:9) 
    On Local Error Resume Next 

    Text1.Text = MyGraphic.DelocalizedBonds(1).ID
    If Err.Number = 9 Then Text1.Text = 0
End Sub

See Also