Software Developer's Kit - ChemDraw

Send comments on this topic
ArrowHeadPositionAtStart Property
See Also 

Description

Member of ChemDraw Control.Spline.

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

Property type

Read-write property

Syntax

Visual Basic
Public Property ArrowHeadPositionAtStart() As CDArrowHeadPositionType

Return Type

Remarks

Sets and returns the style of arrowhead at the start 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
    ArrowHeadPositionAtStart= vName
End Sub

See Also