Software Developer's Kit - ChemDraw

Send comments on this topic
Atom1 Property
See Also 


Member of ChemDraw Control.Bond.

Returns the atom at the first end of this bond

Property type

Read-only property


Visual Basic
Public Property Atom1() As Atom

Return Type


This function returns the atom at the first end of the bond.


'In the form general section (or as public in the module)
 Dim myBond As ChemDrawControl10Ctl.Bond
 Private Sub ctlChemDraw_SelectionChanged(ByVal selection As _ 
     'Checks that there is a bond loaded in the variable 
     If  Selection.Bonds.Count < 1 Then 
         Exit Sub
     End If
 End Sub
 Private Sub Command1_Click()
     Text1.Text = myBond.Atom1.ID 'Enables all atom properties 
     Text2.Text = myBond.Atom1.AtomNumber 'all atom properties are enabled

 End Sub

See Also