Software Developer's Kit - ChemDraw

Send comments on this topic
ArrowHeadPositionAtEnd Property
See Also 

Description

Member of ChemDraw Control.Spline.

Sets and returns the style of arrowhead at the end of the spline.

Property type

Read-write property

Syntax

Visual Basic
Public Property ArrowHeadPositionAtEnd() As CDArrowHeadPositionType

Return Type

Remarks

Sets and returns the style of arrowhead at the end of the spline.

Example

 Private Sub ctlChemDraw_SelectionChanged(ByVal selection _
             As ChemDrawControl10Ctl.IChemDrawSelection)
     If  selection.Spline.Count = 1 Then
         Set MySpline = ctlChemDraw.selection.Objects.Splines.Item(1)
         Label1.Caption = "Object: Spline"
     End If
     cboLoad.Clear
     cboLoad.AddItem ("kCDArrowHeadPositionUnspecified") '0
     cboLoad.AddItem ("kCDArrowHeadPositionNone")        '1
     cboLoad.AddItem ("kCDArrowHeadPositionFull")        '2
     cboLoad.AddItem ("kCDArrowHeadPositionHalfLeft")    '3
     cboLoad.AddItem ("kCDArrowHeadPositionHalfRight")   '4
 End Sub
 Private Sub cboLoad_Click()
     Select Case cboLoad.Text
        Case Is = "kCDArrowHeadPositionUnspecified"
             vName = 0
        Case Is = "kCDArrowHeadPositionNone"
             vName = 1
        Case Is = "kCDArrowHeadPositionFull"
             vName = 2
        Case Is = "kCDArrowHeadPositionHalfLeft"
             vName = 3
        Case Is = "kCDArrowHeadPositionHalfRight"
             vName = 4
     End  Select
     mySpline.ArrowHeadPositionAtEnd = vName
 End Sub

See Also