FlowChartPro.FlowChart.SetSelfLoopShape Event

Raised when an arrow becomes a self-loop.

Syntax

VB6 Copy Code
Public Event SetSelfLoopShape

Event Data

Parameter
Type
Description
arrow
[input] reference to an Arrow
The arrow that becomes a self-loop.
handled
[byref] boolean
Indicates whether the event handler has set a custom loop shape.

Parameter	Type	Description
arrow	[input] reference to an Arrow	The arrow that becomes a self-loop.
handled	[byref] boolean	Indicates whether the event handler has set a custom loop shape.

Dispatch ID: 107

Example

The following sample handlers set the link shape to a rectangle at the top-left corner of a box.

VB6 Copy Code
Private Sub fcx_SetSelfLoopShape(ByVal arrow As FLOWCHARTLibCtl.IArrowItem, handled As Boolean) If arrow.OriginBox Is Nothing Then Exit Sub arrow.Segments = 4 arrow.Style = asPerpendicular arrow.CtrlPtX(0) = arrow.OriginBox.left arrow.CtrlPtY(0) = arrow.OriginBox.top + 15 arrow.CtrlPtX(1) = arrow.OriginBox.left - 15 arrow.CtrlPtY(1) = arrow.OriginBox.top + 15 arrow.CtrlPtX(2) = arrow.OriginBox.left - 15 arrow.CtrlPtY(2) = arrow.OriginBox.top - 15 arrow.CtrlPtX(3) = arrow.OriginBox.left + 15 arrow.CtrlPtY(3) = arrow.OriginBox.top - 15 arrow.CtrlPtX(4) = arrow.OriginBox.left + 15 arrow.CtrlPtY(4) = arrow.OriginBox.top arrow.Update handled = True End Sub

VB6

Copy Code

Private Sub fcx_SetSelfLoopShape(ByVal arrow As FLOWCHARTLibCtl.IArrowItem, handled As Boolean)
If arrow.OriginBox Is Nothing Then Exit Sub

    arrow.Segments = 4
    arrow.Style = asPerpendicular

    arrow.CtrlPtX(0) = arrow.OriginBox.left
    arrow.CtrlPtY(0) = arrow.OriginBox.top + 15
    arrow.CtrlPtX(1) = arrow.OriginBox.left - 15
    arrow.CtrlPtY(1) = arrow.OriginBox.top + 15
    arrow.CtrlPtX(2) = arrow.OriginBox.left - 15
    arrow.CtrlPtY(2) = arrow.OriginBox.top - 15
    arrow.CtrlPtX(3) = arrow.OriginBox.left + 15
    arrow.CtrlPtY(3) = arrow.OriginBox.top - 15
    arrow.CtrlPtX(4) = arrow.OriginBox.left + 15
    arrow.CtrlPtY(4) = arrow.OriginBox.top

    arrow.Update

    handled = True
End Sub

Syntax

Event Data

Example

See Also