FlowChart.SetSelfLoopShape Event

Raised when an arrow becomes a self-loop.

 Syntax

VB6

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.

Dispatch ID: 107

 Example

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

VB6

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